Excel VBA。导航错误对象必需

下面的脚本给了我一个424对象所需的错误。 我已经testing了rCell.Value的输出，它会生成一个URL，但是当它试图导航到它的时候会导致错误。 如果我把一个stringreplacerCell.Value代码工作正常。 并执行该URL。

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 

我是否需要将该variables转换为string？

Answer 1

这是我做的工作，我不得不添加一个新的variables，然后删除导航和variables之间的=。

 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 

Answer 2

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