忍者ブログ

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

EXCELでWEBを開く

エクセルのコマンドボタンから　GOOGLE のページを開くコード。
OBJECT 宣言しないと動かない。開いたらojbectを開放する。

Private Sub CommandButton1_Click()

Dim objIE As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://www.google.co.jp/"

Set objIE = Nothing

End Sub
PR