Fehler beim Speichern in CSV- oder TXT-Datei

Hallo zusammen,
habe ein Problem beim Speichern von Daten aus Excel in eine CSV- oder TXT-Datei.
Hier ein Beispiel:
"00166000272757;12.11.2018;06:19:54;0010109;03;325;001;001;DPD Deutschland GmbH,Gewerbegebiet,1,DE,;
00000000;0000000;;16.30;001+++++++++++++++++++;
010.015.104.244;;0000;DPD Deutschland GmbH;Gewerbegebiet;1;09337;Callenberg;;;;"
00166000272757;12.11.2018;08:07:31;0010109;13;325;001;001;;;0079002;;0.00;001+++++++++++++++++++;
010.015.104.244;;0000;DPD Deutschland GmbH;Gewerbegebiet;1;09337;Callenberg;KRAMER;;;
Insgesamt sind es ca. 60.000 bis 100.000 Zeilen. Manchmal macht Excel beim speichern Gänsefüßchen an den Anfang und an das Ende der Zeile, manchmal nicht.
Beim Import in Access entstehen zwei Fehler:
1. sage ich dem Import-Manager, dass es keinen Textqualifier gibt, dann steht im ersten und im letzten Feld je ein Gänsefüßchen zusätzlich. Sage ich ihm, dass es Gänsefüßchen als Textqualifier gibt, dann interpretiert er alles in den Gänsefüßchen als ein Feld.
Beides ist Mist.
Hier der Code, mit dem ich speichere:
Application.DisplayAlerts = False
'ActiveWorkbook.SaveAs Filename:="D:\Datenbanken\BerichtNeu\Bericht1.csv", FileFormat:=6 'csv
ActiveWorkbook.SaveAs Filename:="D:\Datenbanken\BerichtNeu\Bericht1.txt", FileFormat:=-4158 'txt
Application.DisplayAlerts = True
Was mache ich falsch?
Danke
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Armin, eine kleine VBA-Sequenz holt die Daten via HTML von einem Server. Dieser übergibt sie im CSV-Format mit Trennzeichen Semikolon. Diese Daten werden dann stumpf in der Zelle A1 abgelegt.
Bin jetzt einen Schritt weiter durch Deine Bemerkung:
"Ich Speichere sie deshalb lieber mit einem Makro ab, denn dort bestimme ich das Format."
Jetzt splitte ich die Daten gleich in der Excel-Tabelle in die einzelnen Spalten, setze auch gleich den richtigen Datentyp drauf und habe jetzt das Problem, dass wenn ich sie aus dem VBA-Tool heraus speichere, dass als Trennzeichen nicht das Semikolon sondern das Komma verwendet wird. Speichere ich sie "von Hand", dann sind da Semikolons drin.
Wie bekomme ich das hin, dass da auch Semikolons verwendet werden, wenn ich sie mit dem VBA speichere.
Danke
Thomas

'Splitten Sheets("Tabelle1").Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ _ TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 2), Array(2, 1), Array(3, 1), Array(4, 2), Array(5, 2), Array(6, 2), _ Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array( _ 13, 1 _ ), Array(14, 1), Array(15, 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), _ Array _ (20, 2), Array(21, 2), Array(22, 2), Array(23, 2), Array(24, 1), Array(25, 2), Array(26, _ 1)) _ , TrailingMinusNumbers:=True Columns("A:A").EntireColumn.AutoFit 'Speichern Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\Datenbanken\BerichtNeu\Bericht1.csv", FileFormat:=6 'csv Application.DisplayAlerts = True

Sub CSVDatei_schreiben() Dim strVerzeichnis As String, nFileNr Dim K As Integer, N As Integer Dim FileName As String Dim Daten As Variant Dim Tb As Range On Error GoTo ErrorHandler strVerzeichnis = ActiveWorkbook.Path & "\" FileName = "CSV_Daten" 'kann man auch modifizieren z.Bsp. aus Zelle nFileNr = FreeFile Set Tb = Worksheets(ActiveSheet.Name).Range("A1") Open strVerzeichnis & FileName & ".csv" For Output As #nFileNr For N = 1 To Tb.Cells(Rows.Count, 1).End(xlUp).Row For K = 0 To 26 'Anzahl der Spalten die Ausgegeben werden sollen Daten = Daten & Tb.Offset(N - 1, K).Value & ";" Next Print #nFileNr, Daten Daten = "" Next N Close #nFileNr ErrorHandler: Set Tb = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Fehler beim Speichern in CSV- oder TXT-Datei

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler beim Speichern in CSV- oder TXT-Datei

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread