Hallo,
ich habe folgendes Problem:
in meinem XLS Datenblatt gibt es ein Beschreibungsfeld, das häufig mehr als 1000 Zeichen hat.
Ich exportiere dieses Blatt: über
' Schreiben der CSV Datei
' speicherort
exportfile = Speicherort & "Export.csv"
Dateinummer = FreeFile
Set tb = ThisWorkbook.Worksheets("CSV Export")
Open exportfile For Output As #Dateinummer
For z = 1 To zeile + 1
For s = 1 To tb.UsedRange.Columns.Count
tmp = tmp & CStr(tb.Cells(z, s).Text) & ";"
Next s
Print #Dateinummer, tmp
tmp = ""
Next z
Close #Dateinummer
Leider wird dabei eine Spalte immer auf ca. 1000 Zeichen reduziert. Hat jemand eine Idee, wie ich in die CSV Datei auch Felder mit mehr als 1000 Zeichen übernehmen kann?
Danke und beste Grüße,
Pascal