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”等。