1つの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

あなたは.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 

私はあなたがSを持っていないと思います両方のワークブック内のheet1、異なる表記を試してみましょう。

をして、あなたのコードをデバッグしてみてください。

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

私はあなたのファイルが正常に開かれていないと思います。

Answer 2

次の操作を実行し、デバッグしよう：

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