Ok,OK, nicht schlagen
dann versucheich zumindest mal einen Ansatz
also eine bestehenden Datei öffnest du mit
xlapp.workbooks.open "C:\DATEI.XLS"
wenn du jetzt an das Ende der Datei etwas anfügen willst, musst du die erste freie Zelle in der ersten Spalte finden
Komme aber im Moment nicht mehr darauf, wie man das macht. Hab mal unseren Azubi drangesetzt
also in Excel selber geht das mit
Sub leere_zelle()
[A1].Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1; 0).Range("A1").Select
End Sub
Am Anfang musst du dann natürlich noch einen Dialog einbauen, der fragt, ob du eine neue Datei erstellen willst oder eine vorhandene fortschreiben möchtest. ( evtl. mit der Option eine Sicherungskopie der bestehenden Datei zu erstellen )
ich schaue mal, ob ich da auf die Schnelle was zusammengebraten bekomme.
Kannst es aber auch gerne erst einmal selbst versuchen
eknori