Wie kopiere ich Daten von einem Excel-Blatt zu einem anderen Excel-Blatt?

Question

Dieser Code öffnet nur die Quelldatei, kopiert aber nichts davon. Ich möchte die Daten aus meiner Quelldatei kopieren und in die Zieldatei einfügen.

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

Du .Value Ameise das Ende der Linie fehlt:

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

Oder Versuchen:

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

Ich nehme an, du hast S nicht het1 in beiden Arbeitsmappen, also lasst uns verschiedene Schreibweisen ausprobieren.

Versuchen Sie den Code debuggen mit:

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

Ich denke, Ihre Dateien nicht richtig geöffnet werden.

Answer 2

Versuchen zu debuggen, die folgenden Schritte ausführen:

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