✔ Daten zwischen 2 Excel-Dateien kopieren

[gerri80]

Hallo,

ich habe folgendes Problem:
Ich möchte Daten aus einer Excel-Datei in eine andere Excel-Datei kopieren.
Bisher habe ich es nur geschafft Daten aus einer Zeile, einge Zeilen weiter unten wieder einzufügen. Aber eben innerhalb der gleichen Datei.
Dazu habe ich folgenden Code verwendet:

**********************************************************
excelObject.Range("A1:A5").Copy
excelObject.Cells(5, 1).Insert
**********************************************************

Das funktioniert. Aber wenn ich die Daten in ein anderes ExcelObject einfügen will erhalte ich nur eine leere Datei. Hier der Code:

**********************************************************
Set excelObject2 = CreateObject("Excel.Application")
excelObject2.Application.Workbooks.Add
excelObject2.Cells(1, 1).Activate

excelObject.Range("A1:A5").Copy
excelObject2.Cells(1, 1).Insert
**********************************************************

Woran könnte das liegen ? Ich hoffe ich habe mich verständlich ausgedrückt.

 

[gerri80]

Habe selbst ne Möglichkeit gefunden.
Ich darf nicht 2 verschiedene Excel-Objekte verwenden, sondern immer ein neues Workbook mit dem gleichen ExcelObject erzeugen und dort einfügen.