実行時エラー番号5（「無効なプロシージャ呼び出しまたは引数」）LocationURL

Question

を返すようにしようとしたとき、私は、Internet ExplorerのオブジェクトのLocationURLプロパティを保存しようとしているが、私は

実行]を取得しています-timeエラー5（「無効なプロシージャ呼び出しまたは引数」）

そう、問題が何であるかを把握することはできません - ここに私のコードだ：

Sub MyMacro() 
Dim IE As Object 
Dim URL As String 

Set IE = CreateObject("InternetExplorer.Application") 

With sh.Windows(0) 
    .Visible = True 
    .navigate "www.google.com" 
End With 

Do 
    DoEvents 
Loop While IE Is Nothing 
Do 
    DoEvents 
Loop While IE.ReadyState <> 4 
Do 
    DoEvents 
Loop While IE.Document.ReadyState <> "complete" 

URL = IE.LocationURL 'Here's where it crashes 

End Sub 

I私は "？IE.LocationURL"を直接ウィンドウに入力して入力すると、私は期待していた "https://www.google.ie/"を私に渡します。なぜこれを刺すことができず、見つけられないのか分かりません。それを把握するにはエラー自体で十分です。私は見つけられたことも何もオンラインではない...誰かが私が間違ってやっていることを助言することはできますか？

Answer 1

これは

Option Explicit 

Sub MyMacro() 
    Dim IE As Object 
    Dim URL As String 

    Set IE = CreateObject("InternetExplorer.Application") 

    IE.Visible = True 
    IE.navigate "www.google.com" 

    Do 
     DoEvents 
    Loop While IE.ReadyState <> 4 Or IE.busy 

    URL = IE.LocationURL 'Here's where it crashes 
    Debug.Print URL 

    IE.Quit 
    Set IE = Nothing 
End Sub