如何將數據從一個Excel工作表復制到另一個Excel工作表？

Question

此代碼僅打開源文件，但不從中復制任何內容。 我想從源文件復制數據並將其粘貼到目標文件。

Sub copy()

Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("Source File")
Set y = Workbooks.Open("Destination File")

y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1")

x.Close

End Sub

Answer 1

嘗試調試，請執行以下操作：

Sub Copy()

    Dim x As Workbook
    Dim y As Workbook

    Set x = Workbooks.Open("Source File")
    Set y = Workbooks.Open("Destination File")

    Debug.Print x.Name
    Debug.Print y.Name

    Debug.Print x.Sheets("Sheet1").Range("A1").value
    Debug.Print y.Sheets("Sheet1").Range("A1")

    Debug.Print x.Sheets("Sheet1").Range("A1").Address
    Debug.Print y.Sheets("Sheet1").Range("A1").Address

End Sub

Answer 2

您缺少.Value和行尾：

y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1").Value

或嘗試：

y.Sheets(1).Cells(1, 1).Value = x.Sheets(1).Cells(1, 1).Value

我猜您在兩個工作簿中都沒有Sheet1，因此讓我們嘗試不同的表示法。

嘗試使用以下方法調試代碼：

msgbox y.Sheets("Sheet1").Range("A1").Value
msgbox x.Sheets("Sheet1").Range("A1").Value

我猜您的文件沒有正確打開。