javascript - 将值从 Javascript 复制到 Excel 工作表时出现类型不匹配错误 13

Question

我正在尝试编写一个 vba 脚本来打开网站、导航到特定记录、获取协议(protocol)编号的值并将其存储为变量，然后将变量值粘贴到工作表中。目前我有以下内容，它完成了除粘贴到 Excel 之外的所有必需步骤。我还尝试在插入 Excel 行之前插入“msgbox AGR”来检查值，它会弹出正确的值。

在代码的最后一行，我收到“错误不匹配”对话框。非常感谢任何帮助。

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