ich exportiere Daten in eine CSV-Datei:
Sub ExportArtikel()
Dim TB As Worksheet
Dim TMP$
Dim z%, s%
Set TB = Worksheets(1)
Open "c:\daten.dat" For Output As #1
For z = 3 To TB.UsedRange.Rows.Count
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & "|"
Next s
Print #1, TMP
TMP = ""
Next z
Close 1
End Sub
Nun soll diese ggf. andernorts geänderte Datei wieder importiert werden können. Leider habe ich absolut keine Ahnung von dem VB-Code und wäre für eure Hilfe sehr dankbar.
Wichtig ist, dass die Zeilen erst ab der 3. Zeile eingefügt werden, weil die ersten beiden Zeilen für Überschriften reserviert sind. Feldtrenner ist die Pipe (|), Feldbegrenzer ist keiner vorhanden. Anzahl Spalten = so lange Daten vorhanden sind, Anzahl Zeilen ebenso.
mfG. Arthur