ブラウザの情報を取得するサンプルコードです。標準モジュールに以下のコードを追加し、GetBrowserInfoプロシージャを実行します。
GetBrowserInfoプロシージャを実行すると、Googleに接続してブラウザの様々な情報をデバッグウィンドウに出力します。
サンプルコード
【動作確認日】2014年2月11日
【動作確認環境】Windows XP SP3・Excel 2007・Internet Explorer 8
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
'ブラウザの情報を取得する Sub GetBrowserInfo() Dim objIE As Object 'IE起動 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True 'Googleに接続 objIE.navigate "https://www.google.co.jp/" 'IEを待機 Call IEWait(objIE) '3秒停止 Call WaitFor(3) 'ブラウザの情報を取得 Debug.Print "名前：" & objIE.Name Debug.Print "パス：" & objIE.Path Debug.Print "フルパス：" & objIE.FullName Debug.Print "ステータスバーの値：" & objIE.statusText Debug.Print "ウィンドウの幅：" & objIE.Width Debug.Print "ウィンドウの高さ：" & objIE.Height Debug.Print "ウィンドウの左位置：" & objIE.Left Debug.Print "ウィンドウの上位置：" & objIE.Top Debug.Print "現在のタイトル：" & objIE.LocationName Debug.Print "現在のURL：" & objIE.LocationURL '3秒停止 Call WaitFor(3) 'IE終了 objIE.Quit Set objIE = Nothing End Sub 'IEを待機する関数 Function IEWait(ByRef objIE As Object) Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop End Function '指定した秒だけ停止する関数 Function WaitFor(ByVal second As Integer) Dim futureTime As Date futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Function |
解説
IEオブジェクトから様々な情報を単にデバッグウィンドウに出力しています。簡単な内容なので、特に説明する必要はないと思います。IEオブジェクトの細かい仕様については、以下のページが参考になります。
https://msdn.microsoft.com/en-us/library/Aa752084.aspx（英語）