从一个 Excel 复制到另一个：索引超出有效范围

Question

我正在尝试从一个 Excel 工作簿复制到另一个。下面是相关代码sn-p：

directory = "C:\VBA\Import\"
fileName = Dir(directory & "*.xl??")

Set sourceColumn = Workbooks(directory & fileName).Worksheets(1).Columns(1)
Set targetColumn = ThisWorkbook.Worksheets("IMPORT").Columns(1)
sourceColumn.Copy Destination:=targetColumn

执行此操作时，我在“set sourceColumn”行中收到“运行时错误 9：索引超出有效范围”（翻译自 Excel 的德语版本）。

我不知道这是什么原因。我在执行期间使用调试器仔细检查了文件名，它是正确的。此文件中还存在工作表和列的索引（它有一个包含 5 列的工作表）。

有什么想法吗？提前致谢！

Answer 1

试试这个，它对我有用：

Workbooks.Open directory & Filename
Set sourceColumn = Workbooks(Filename).Worksheets(1).Columns(1)

您不能像这样引用已关闭的工作簿