Excel 无法将数据从其他工作表复制到主工作表。执行vba下标时出错超出范围调用子副本时出错9

从表2中的网站获取数据

Sub Button1_Click()

    strSearch = Range("a1")
    With Sheet2.QueryTables.Add( _
                     Connection:="URL;https://iban.codes/validate/ " & strSearch & "&safe=active", _
                     Destination:=Sheet2.Range("a5"))`

       .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .SaveData = True
    End With
    Call copy
    Application.ScreenUpdating = True
    Sheet2.UsedRange.Delete
    End Sub

将数据从图纸2复制到图纸1

Sub copy()
        Sheets("Sheet2").Range("A5").copy Destination:=Sheets("Sheet1").Range("A5") 
 End Sub

---

子脚本超出范围，因为我的excel工作表名称不同。我改变了它，它成功了。

你会遇到什么错误，如果有，会发生什么，你预计会发生什么？在我看来，它似乎完全复制了您告诉它的内容。每次我运行宏时，它都会得到超出范围的错误下标错误9弹出。您在哪一行得到错误？另外，所有这些都应该在你的问题正文中，考虑通过你的问题添加它。我犯了一个错误。