types不匹配错误13将值从Javascript复制到Excel工作表时

我试图编写一个vba脚本来打开一个网站，导航到一个特定的logging，采取协议号码的值，并将其作为variables存储，然后将variables值粘贴到工作表中。 目前我有以下几点，除了粘贴到excel之外，它完成了所有必需的步骤。 我也尝试在插入到excel行之前插入“msgbox AGR”来检查值，并popup正确的值。

在代码的最后一行，我收到“错误不匹配”对话框。 任何帮助是极大的赞赏。

Sub ReturnAgrNumber() Dim IE As Object Set IE = CreateObject("internetexplorer.application") Dim AGR As Variant IE.Visible = True IE.navigate "http://*************************************.aspx" While IE.busy DoEvents Wend IE.Document.getElementByID("txtUsername").Value = "*****" IE.Document.getElementByID("txtPassword").Value = "*****" While IE.busy DoEvents Wend IE.Document.all("btnLogin").Click While IE.busy DoEvents Wend IE.Document.getElementByID("ctl00$GotoControl$txtJumpToRecord_Header").Value = "A213010" While IE.busy DoEvents Wend IE.Document.getElementByID("ctl00$GotoControl$ddJumpToRecord_Header").selectedIndex = 3 IE.Document.getElementByID("ctl00$GotoControl$ddJumpToRecord_Header").FireEvent ("onchange") While IE.busy DoEvents Wend IE.Document.all("ctl00_GotoControl_btnHeaderJumpTo").Click While IE.busy DoEvents Wend AGR = IE.Document.getElementByID("ctl00_mainContentPlaceHolder_HeaderTop_Agreements2_lblID").InnerText Workbooks("test").Worksheets(Sheet1).Range("a1") = AGR End Sub 

Answer 1

您错过了工作表名称周围的引号：

  Workbooks("test").Worksheets(Sheet1).Range("a1") = AGR 

应该

  Workbooks("test").Worksheets("Sheet1").Range("a1") = AGR