起動済みのＩＥのメニューをExcelのマクロでクリック動作させたいのですが。

質問

起動済みのＩＥのメニュー（例えば、ヤフーのトップページの「オークション」メニュー）を、Excelのマクロを作ってクリック動作をさせていたいのですが、知識の乏しい私にはちょっと分かりません。
ご教授頂けますと幸いです。。よろしくお願い致します。

回答No.2

Wendy02

こんばんは。

以下のようなコードは、ほんの入り口です。なるべく、事前バインディングすることをお勧めします。コメントブロックしたところが、事前バインディング用です。以下のEndProcess:　とあるのは、実際は、トラブル等があった時の回避用のジャンプ先です。
IEが起動していないときは、IEが起動します。

'------------------------------------------

Sub TestConnection()

　IE_Open "http://auctions.yahoo.co.jp/jp/"

End Sub

Sub IE_Open(arg)
Dim objIE As Object ' InternetExplorer
Dim objShell As Object 'Shell
Dim WinFlg As Boolean
Dim objWin As Object
Set objShell = CreateObject("Shell.Application")
　'Set objShell = New Shell
For Each objWin In objShell.Windows
If TypeName(objWin.Document) = "HTMLDocument" Then
　WinFlg = True
　Set objIE = objWin
End If
Next
Set objShell = Nothing
If Not WinFlg = True Then
　objIE = CreateObject("InternetExplorer.Application")
　'Set objIE = New InternetExplorer
End If
　objIE.Navigate2 arg
　objIE.Visible = True
EndProcess:
Set objIE = Nothing
End Sub

お礼

この度はご丁寧なご回答、感謝申し上げます。
早速、記載いただきましたマクロを参考に、いろいろ試してみたいと思います。ありがとうございました。
それでは、今後ともよろしくお願い致します♪
失礼致します。

回答No.1

nobu555

マクロじゃなくてハイパーリンクで出来ます。
「挿入」の「ハイパーリンク」から、
「表示文字列」に”Yahoo!オークション”と入力して、
IEで閲覧していれば、
「ファイル、Webページ」で「ブラウズしたページ」で閲覧の履歴がでるので、”Yahoo!オークション”を選ぶか、
「アドレス」に”http://auctions.yahoo.co.jp/jp/”と直接入力して、「ＯＫ」を選択する。
これで、”Yahoo!オークション”と表示しているセルをクリックすると
Yahoo!オークションのページが開きます。

お礼

この度はご丁寧なご回答、感謝申し上げます。
一度トライし、また質問が出てまいりましたら今後ともアドバイス頂けます様よろしくお願い申し上げます。
それでは、今後ともよろしくお願い致します。
失礼致します。