Guten Abend
Mit nachfolgendem Codeteil erstelle ich aus einem .xlsx File ein .csv File.
Nun habe ich festgestellt, dass mir bei Spalten, die im .xlsx File zuwenig Breite aufweisen (und der Wert am Bildschirm daher mit ### angezeigt wird) ebenfalls ### abgefüllt werden.
Kann das verhindert werden oder ist es zwingend notwendig, dass die Spalten des Quellfiles genügend Breite aufweisen, so dass die Daten alle sichtbar sind?
Gruss, Peter
AWS = SavePath & "\" & File & ".csv"
Open AWS For Output As #DateiNummer
Set dBook = ActiveWorkbook
Set dSheet = dBook.ActiveSheet
'Output: Die einzelnen Zellen der einzelnen Zeilen werden in die Datei geschrieben
For zNR = 1 To dSheet.UsedRange.Rows.Count
For sNr = 1 To Sheets(dSheet.Name).Cells(1, 256).End(xlToLeft).Column
tmp = tmp & CStr(dSheet.Cells(zNR, sNr).Text) & ";"
Next sNr
tmp = Left(tmp, Len(tmp) - 1)
Print #DateiNummer, tmp
tmp = ""
Next zNR
'
'Die virtuell geöffnete Datei wird geschlossen.
Close #DateiNummer
VBA.FileCopy AWS, SaveTempFile & "\" & File & ".csv"