使用Select方法時將Excel.Workbook對象設置為ThisWorkbook的錯誤1004

Question

我無法解決這個問題。 我可以發誓之前我已經做過無數次了，但是由於某種原因，它總是使我誤解。

問題是這樣的：

Dim FromPath As String
Dim ToPath As String
Dim wb As Excel.Workbook
Dim curr_wb As Excel.Workbook
Dim StrFile As String

Set curr_wb = ThisWorkbook
Set wb = Workbooks.Open(FromPath & StrFile)

'grabbing some data from one file
wb.Sheets("Customer Information").Range("A2:AA2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy

'pasting it on current file
 curr_wb.Sheets("Sheet1").Range("A1").Select '<--------error 1004: select method of range failed
'''''''''' The rest of the code not relevant to problem ''''''''''''

現在，我無法為自己的一生弄清楚為什么會失敗。 我查看“本地”窗口，可以看到curr_wb確實設置為運行宏的工作簿。 此工作簿中也存在“ Sheet1”。 curr_wb和wb變量應該是相同類型的數據類型，select方法如何在一個方法上起作用而在另一方法上不起作用？

非常感謝您的幫助，

Answer 1

正如SJR所評論的，如果我在進行選擇之前立即設置curr_wb.Activate，則此代碼有效。

Answer 2

您可以將復制/粘貼代碼減少為

With wb.Sheets("Customer Information")
    .Range("A2:AA2", .Range("A2:AA2").End(xlDown)).Copy curr_wb.Sheets("Sheet1").Range("A1")
End With