在两个工作簿之间复制数据

Question

我尝试将数据从已关闭的工作簿复制到另一个已关闭的工作簿但我不断获得Runtime error 9, subscript out of range。这两个文件都放在同一路径下的桌面上。我正在从我正在学习的一本书中尝试这个例子：

Sub CopyRange3()
    Dim Rng1 As Range, Rng2 As Range
    Set Rng1 = Workbooks(“File1.xlsx”).Sheets(“Sheet1”).Range(“A1”)
    Set Rng2 = Workbooks(“File2.xlsx”).Sheets(“Sheet2”).Range(“A1”)
    Rng1.Copy Rng2
End Sub

有人可以解释这段代码出了什么问题吗？

Answer 1

工作簿是当前打开的工作簿的集合。要使用它，您需要打开它们。

您可以关闭屏幕更新，打开它们，复制数据，关闭它们，保存第二本书。

---

您收到错误消息“下标超出范围”，因为“File1.xslx”不是Workbooks的成员，因为它未打开。