VBA IE制御 まとめ 指定したURLを別ウィンドウで開く

整理しないと・・（汗；

指定したURLを別ウィンドウで開く場合　↓

Set IE = CreateObject("InternetExplorer.Application")

URL01 = "http://www.choix.jp/ "
IE.Navigate URL01
IE.Visible = True

別ウィンドウの場合はこれでOK♪

VBA IE制御 今開いているIEのドメイン名、URLを取得する

なるほど。

こうして、ドメイン名を取得して判定すればいいのかな？

メモ書き↓

Set objIE = CreateObject("InternetExplorer.application")
On Error Resume Next

Set objShell = CreateObject("Shell.Application")
　　Set objShellWindows = objShell.Windows()
　
　　'ShellWindowループ
　　For Each objIE In objShellWindows
　　　　Set objIEDoc = objIE.Document
　　　　'ドメイン
　　　　strDomain = ""
　　　　strDomain = objIEDoc.domain
　　　　If strDomain <> "" Then
　　　　　　'情報出力
　　　　　　strOutPut = "[" & objIE.LocationName & "] "
　　　　　　strOutPut = strOutPut & objIE.LocationURL
　　　　　　Debug.Print strOutPut
　　　　End If
　　Next
　　
　　Set objIEDoc = Nothing
　　Set objIE = Nothing
　　Set objShellWindows = Nothing
　　Set objShell = Nothing

VBA IE制御 開いているIE HTMLDocumentの取得では動作が不安定。。 (悩)

HTMLDocumentの取得では動作が不安定なんですよ。

なぜか、一度実行エラーがでると、そのあとは、、

”HTMLDocument"の行でエラーになってしまうので、このコードは使えない。。

For Each objWindow In objShell.Windows

If TypeName(objWindow.document) = "HTMLDocument" Then
　　　 OpenCount = OpenCount + 1
End If

Next

別の方法で。