Excel VBA。導航錯誤對象必需

以下腳本給我提供了一個424對象必需的錯誤。我已經測試了rCell.Value的輸出，它會生成一個URL，但是當它試圖導航到它時會導致錯誤。如果我放置一個字符串來替換rCell.Value，那麼代碼工作正常。並將執行該URL。Excel VBA。導航錯誤對象必需

Dim MyHTML_Element As IHTMLElement 
Dim MyURL As String 
Dim rCell As Range 
Dim rRng As Range 

Set rRng = Sheet1.Range("A1:A6") 


For Each rCell In rRng 

    Set MyBrowser = New InternetExplorer 
    MyBowser.Silent = True 
    MyBowser.navigate = rCell.Value 
    MyBowser.Visible = True

是否需要將該變量轉換爲字符串？

來源

2016-01-28 Brett

第一個和最後一個單元格是否包含rCell.Value的「」標記？ – justkrys

我剛剛嘗試添加「」標記，我試過每個包裹在它們中的單元格，並且第一個單元格具有條目「最後一個具有結尾」並仍然收到該錯誤。 – Brett

您是否試過'MyBowser.navigate = CStr（rCell.Value）'？ 'rCell.Text'也可以。 –

這裏是我做過什麼，使其工作，我不得不添加一個新的變量，然後刪除瀏覽和變量之間的=。

Dim MyHTML_Element As IHTMLElement 
Dim MyURL As String 
Dim rCell As Range 
Dim rRng As Range 

Set rRng = Sheet1.Range("A1:A6") 


For Each rCell In rRng 
    MyURL = rCell.Value 
    Set MyBrowser = New InternetExplorer 
    MyBowser.Silent = True 
    MyBowser.navigate MyURL 
    MyBowser.Visible = True

來源

2016-01-28 20:26:21 Brett

你可以這樣做： Dim x as String x = """" MyBowser.navigate = x & rCell.Value & x

來源

2016-01-28 16:31:00 justkrys

Excel VBA。導航錯誤對象必需

回答

相關問題