前提・実現したいこと
Excel VBAでIEを操作したいです。したいことは、すでに開いているIEのページを認識し
その中にある情報を取得してExcelに転機する操作です。
すでに開いているIEのページを認識するコードとしては、以下のように、コード内にInstr関数で、ページタイトルを入力して認識させる方法が主流なようなのですが
そうではなく、今開いていて、アクティブになっているIEをのページを認識する というコード
で、開いているページに対していちいちコードで特定しなくても動くマクロを作成したいと思っています。
上記のようにするにはどのようにすればいいでしょうか?
よろしくお願いいたします。
発生している問題・エラーメッセージ
エラーメッセージ
該当のソースコード
Sub YahooJapan開いているウインドウを取得する()
Dim colSh As Object
Dim win As Object
Dim objIE As InternetExplorer
Set colSh = CreateObject(“Shell.Application”)
For Each win In colSh.Windows
’開いているすべてのウインドウに対して処理する
If TypeName(win.document) = “HTMLDocument” Then
’開いているファイルの種類がHTMLなら処理を実行する
If InStr(win.document.Title, “Yahoo”) > 0 Then
’開いているファイルの「タイトル」にYahooが含まれているなら
Set objIE = win
’このウインドウをobjIEとして指定する
Exit For
’処理を中断してFor~Nextを終了する
End If
End If
Next
If objIE Is Nothing Then’ウインドウが見つからなければ
MsgBox “入力するページが見つかりません”’メッセージを表示して
Exit Sub’処理を終了する
End If
End Sub
試したこと
ここに問題に対して試したことを記載してください。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/07/02 01:16