【Excel VBA】インターネットのホームページを表示する方法

皆さんこんにちは、エンジニアのIMMRです。

VBAでは、インターネットのホームページを開いて表示することも出来ます。

その方法について説明します。

1.インターネットのブラウザーを立ち上げる方法

VBAからインターネットのブラウザーつまり、他のアプリケーションを起動するにはShell関数を使います。

記載のは

Shell　＋　他のアプリケーションのパス　＋　参照したいホームページです。

まず、ブラウザーですが、今回は、「Google Chrome」と「Microsoft Edge」で試したいと思います。

ブラウザーのパスは、以下になります。

「Google Chrome」：C:\Program Files (x86)\Google\Chrome\Application\chrome.exe

「Microsoft Edge」：C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe

もちろんこのほかのインターネットブラウザーでも表示できます。

表示を試すサイトですが、今回は

ワークテリア（workteria）というホームページを表示しようと思います。

URL：https://workteria.forward-soft.co.jp/

そして、記載は

Shell　＋　他のアプリケーションのパス　＋　参照したいホームページ　　と説明しましたが、

最後に「vbMaximizedFocus」と記載することで、

インターネットブラウザーが最大画面で表示されます。

２.インターネットのブラウザーを立ち上げる方法（サンプルプログラム）

では、実際にプログラムを作成していきます。

サンプルプログラム（Google Chrome）

Sub test1()

  Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe " & _
        "https://workteria.forward-soft.co.jp/", vbMaximizedFocus

End Sub

Chromeのインターネットブラウザーで

上記、URLを実行します。そして、最大画面で表示します。

サンプルプログラム（Microsoft Edge）

Sub test2()

  Shell "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe " & _
        "https://workteria.forward-soft.co.jp/", vbMaximizedFocus

End Sub

Edgeのインターネットブラウザーで

上記、URLを実行します。そして、最大画面で表示します。

３.インターネットのブラウザーを立ち上げる方法（サンプルプログラム）の実行

上記、プログラムの実行結果です。

図１　（Google Chrome）の実行結果

Chromeのインターネットブラウザーで上記URLが表示されていることが確認できます。

図２　（Microsoft Edge）の実行結果

Edgeのインターネットブラウザーで上記URLが表示されていることが確認できます。

インターネットのホームページを表示することができました。