Daten anhängen beim Speichern
Jürgen
ich möchte eine Exceltabelle via Ascii speichern - das klappt auch perfekt nunmehr.
Wo ich noch probleme habe, das beim Speichern per Makro jedesmal die alten Daten überschrieben werden.
Ich möchte aber gerne das wenn ich speichere die neuen Daten an den alten Datensatz angehängt werden!
Momentan habe ich dieses Makro eingebaut:
Sub VCkonvert()
Dim r&, c%, s$
Open "X:\Server\daten\excel.dat" For Output As #1
Print #1, "100,1,1,1;10,"; Worksheets("Eingabe").Range("E1"); ";51,1;24,A"
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
s = ""
For c = 1 To Cells(r, Columns.Count).End(xlToLeft).Column
s = s & Cells(r, c).Value & ";"
Next
Print #1, s
Next
Close #1
End Sub
hat jemand eine Idee?
Danke
Anzeige