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

我试图编写一个vba脚本来打开一个网站，导航到一个特定的记录，获取协议号的值并将其存储为变量，然后将变量值粘贴到工作表中。目前我有以下内容，它完成了除粘贴到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

---

工作表名称周围缺少引号：

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

应该是

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

---

工作表（Sheet1）

>

工作表（“Sheet1”）

WOW…你知道你错过这一点已经有好几天了。非常尴尬，但非常感激。这解决了我的问题。现在我是否需要以某种方式“关闭”这个问题/标记您的答案？我将我的评论作为答案发布