Excel宏将一个工作簿中的列复制到另一个工作簿

Question

我有一本工作簿：“检查日志”。 我要从其中复制“ A”列并将其粘贴到工作簿中：“单元测试模板”。 在“ A”列中。

我一直在尝试使用以下代码：

Private Sub CopyColumnsButton_Click()

Dim sourceColumn As Range, targetColumn As Range

Set sourceColumn = Workbooks("Check for logging.xlsm").Worksheets("Parameters").Columns("A")
Set targetColumn = Workbooks("Unit test template.xlsm").Worksheets("Sheet1").Columns("A")

sourceColumn.Copy Destination:=targetColumn

End Sub

尽管每次尝试运行宏时，我都会收到一条消息：“运行时错误'9'：下标超出范围”，然后此行突出显示：

Set targetColumn = Workbooks("Unit test template.xlsm").Worksheets("Sheet1").Columns("A")

当我尝试运行宏时，两个工作簿都是打开的。

如果有人可以帮助我，我将非常感激

Answer 1

“运行时错误'9'：下标超出范围”。

通常无法在工作簿中找到两个“单元测试template.xlsm”或“ Sheet1”之一。

工作簿问题
1.检查文件名是否为“ Unit test template.xls x ”（不是.xls m ）
2.检查是否在与“检查logging.xlsm”相同的会话中打开文件“ Unit test template.xlsm”（如果Ctrl + Tab不能将您带到下一个工作簿，则意味着它们以两种不同的方式打开申请表）
3.文件名略微关闭。

工作表问题
1.检查“ Sheet1”是否已删除。 因此实际上可能是“ Sheet2”等。