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

我正试图从一个Excel工作簿复制到另一个。 以下是相关的代码片段：

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 

当执行这个时，我得到了一个“运行时错误9：索引超出有效范围”（从德语Excel版翻译）在“set sourceColumn”行中。

我无法弄清楚这个原因。 我在执行过程中使用debugging器双重检查了文件名，这是正确的。 此外，该文件中还存在工作表和列的索引（它有一个包含5列的单个工作表）。

有任何想法吗？ 提前致谢！

Answer 1

试试这样，它适用于我：

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

你不能像这样引用一个封闭的工作簿