復制工作簿並粘貼到新工作簿中

Question

我正在嘗試從文件夾中打開工作簿FName從中復制一個范圍並粘貼到新的工作簿WBNew ，但是我一直收到錯誤消息

下標超出范圍或1004-應用定義

錯誤。

知道為什么嗎？

Sub NewNumbers()

Dim FName As Workbook, WBNew As Workbook

Set FName = Workbooks.Open(Range("C3") & "\" & Range("C2"))
Set WBNew = Workbooks.Add

FName.Worksheets("Numbers").Range("U2", Range("U2").End(xlToRight)).Copy    
WBNew.Sheets("Sheet1").Paste

End Sub

Answer 1

復制>>粘貼是1行命令，還可以在"Sheet1"定義要粘貼的Range 。

Dim NumbersSht As Worksheet

' set the copied sheet object
Set NumbersSht = FName.Worksheets("Numbers")

With NumbersSht
    .Range("U2", .Range("U2").End(xlToRight)).Copy Destination:=WBNew.Sheets("Sheet1").Range("A1")  '<--- Modify "A1" to your desired range
End With