將動態范圍復制到其他工作簿中

Question

我目前正在嘗試將動態范圍從一個工作簿復制並粘貼到另一個工作簿，以刷新現有的儀表板。

我已經開發了下面的代碼，但是在下面的斜體部分繼續收到錯誤通知：

Sub TransferData()

    Dim x As Workbook
    Dim y As Workbook

    Set x = Workbooks.Open("C:\file1.xlsx")
    Set y = Workbooks.Open("C:\file2.xlsx")
    Set StartCell = Range("A1")    

    finalrow = x.Sheets("Worksheet Name").Cells(Rows.Count, 2).End(xlUp).Row
    'Counts
    FinalColumn = x.Sheets("Worksheet Name").Cells(1,
    Columns.Count).End(xlToLeft).Column

    *x.Sheets("Worksheet Name").Range(StartCell, Cells(FinalRow,
    FinalColumn)).Copy*
    y.Sheets("Worksheet Name").Range(Cells(1, 7), Cells(FinalRow,
    FinalColumn)).Paste

End Sub

Answer 1

您必須聲明工作表，它也是單元格的“父級”。 像這樣：

With x.Sheets("Worksheet Name")
    .Range(StartCell, .Cells(finalrow, FinalColumn)).Copy
End With

With y.Sheets("Worksheet Name")
    .Range(.Cells(1, 7)).PasteSpecial xlPasteAll
End With