No.1ベストアンサー
- 回答日時:
一例です。
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.AppActivate("MSN Japan - Microsoft Internet Explorer") 'IEをアクティブに
WScript.Sleep 400 ' WAIT 400
objShell.SendKeys "%E" ' Alt+Eで編集モード
objShell.SendKeys "^a" ' Ctrl+Aですべてを選択
objShell.SendKeys "^c" ' Ctrl+Cでコピー
※AppActivateでアクティブにしているページのキャプションは、適当に変更してください。
この回答へのお礼
お礼日時:2008/09/17 01:44
ありがとうございます。
簡潔でわかりやすくて動作もPERFECTでしたー。
本当にありがとうございました。
今後ともよろしくお願いします。
No.2
- 回答日時:
初めてなので自信はないですが。
Set objShell = WScript.CreateObject("Shell.Application")
Set objWs = CreateObject("WScript.Shell")
For Each objIE In objShell.Windows()
If InStr(LCase(objIE.FullName), "iexplore.exe") Then
While Not objWs.AppActivate(objIE.document.Title)
WScript.Sleep 100
Wend
objWs.SendKeys "^a"
objWs.SendKeys "^c"
Exit For
End If
Next
Set objShell = Nothing
Set objWS = Nothing
意味合いが違っていたらスル~して下さい。
No.3
- 回答日時:
こんな方法も。
Dim MyShell
Dim w
Dim objIE
Set MyShell = CreateObject("Shell.Application")
For Each w In MyShell.Windows
If UCase(Right(w.FullName, 12)) = "IEXPLORE.EXE" Then
Set objIE = w: Exit For
End If
Next
Set MyShell = Nothing
If objIE Is Nothing Then
Wscript.Echo "IEが起動していません。", 48
Wscript.Quit
End If
With objIE
.Visible = True
.ExecWB 17, 2, 0, 0
.ExecWB 12, 2, 0, 0
End With
Set objIE = Nothing
この回答へのお礼
お礼日時:2008/09/17 01:47
ありがとうございます。
正常に動作しました。
いろいろな方法があるものだと勉強になりましたー。
今後ともよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- Microsoft ASP C#からvbsを実行したい 5 2022/11/24 17:31
- その他(ブラウザ) IE・edgeで日増しに観られるサイトが減ってくる。 1 2022/10/04 22:40
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- Excel(エクセル) エクセルのショートカットの別のキーへ割当。Ctrl+CをCtrl+1へ変更など 3 2022/11/10 00:03
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
- タブレット 第10世代 Fire HD 8 △(左向き)、〇、□のマークが表示されない 2 2022/12/18 17:02
- ホームページ作成・プログラミング メールフォームで送信すると「通信に失敗しました。ページの再読み込みを...」で送信できません。 2 2023/05/26 18:11
- Chrome(クローム) グーグルクロムをマイクロソフト・エッジに切り替える方法 2 2022/06/20 10:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
stable diffusionのインストー...
-
pcゲームの優先度の設定につい...
-
バッチファイル 特定ウインドウ...
-
cygwin上でのTeraPadの起動
-
PL/SQLで作成したストア...
-
[バッチファイル]InternetExplo...
-
gccがコマンドプロンプト上で使...
-
ExcelVBAにてアプリをタスクマ...
-
VB.NETでDOSコマンドの複数実行
-
vbsでループさせる
-
DOS窓の非表示について
-
C&C++からC#のexeを呼ぶ方法
-
プログラムを実行すると、なぜ...
-
あるショートカットだけ既定と...
-
createprocessで起動させる別.e...
-
大量のフォルダからひとつのフ...
-
コマンドプロンプトのエラーに...
-
コマンドプロンプトの「%1」と...
-
ホームページのリンクからプロ...
-
テキストファイルのタブをカン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチファイル 特定ウインドウ...
-
stable diffusionのインストー...
-
ExcelVBAにてアプリをタスクマ...
-
EXCELをバッチコマンドで...
-
ショートカットの作成とコピー
-
VB.NETでDOSコマンドの複数実行
-
gccがコマンドプロンプト上で使...
-
バッチファイル実行時に起動す...
-
VBAからキャッシュを削除する方...
-
c#でコマンドプロンプトを実行...
-
batファイルで立ち上げたaplを...
-
64bitのwindowsサーバーで32bit...
-
Shiftキーを押しながら起動
-
Visual basic6.0からショートカ...
-
VB.NETでコマンドプロンプトの操作
-
exe間での引き値の受け取り方法
-
プログラムを実行すると、なぜ...
-
相対パスのショートカットフォ...
-
PL/SQLで作成したストア...
-
バッチへ値を返す
おすすめ情報