現在表示されているURLを取得したいのですが

質問

Sub test1()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.goo.ne.jp/"

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop

Debug.Print objIE.Navigate

Set objIE = Nothing
End Sub
////////////////////////////////////////////////
をやろうとすると、
Debug.Print objIE.Navigate
の部分で、「引数は省略できません。」とエラーになります。

どう修正すればいいか教えてください。

（"http://www.goo.ne.jp/"はダミーです）

回答No.1

cj_mover · ベストアンサー

こんにちは。

> 現在表示されているURLを取得したいのですが
最初に objIE.Navigate で指定したURLを確認するということでしたらば

Sub Re7759864()
　　Dim objIE As InternetExplorer
　　Set objIE = New InternetExplorer
　　objIE.Visible = True
　　objIE.Navigate "http://www.goo.ne.jp/"

　　Do While objIE.Busy = True Or objIE.ReadyState <> 4
　　　　DoEvents
　　Loop

　　Debug.Print objIE.LocationURL
　　Set objIE = Nothing
End Sub

という感じで如何でしょう。

お礼

LocationURLでうまくいきました！ありがとうございました。