Wie kann ich eine Excel-Tabelle (Office XP) als CSV-Datei exportieren, die mit Kommas (!) - nicht Semikolons - die daten trennt? Wenn ich auf "speicher unter..." gehe kann ich nur mit semikolon exportieren.
Danke!
gruß
jan
Sub Export_Comma_CSV()
Dim i As Long, n As Integer
Dim expPath As String, expFile As String, expStr As String, expDiv As String
expPath = "C:\" 'Exportpfad mit Backslash am Ende !!
expFile = "sqlImport.csv"
expDiv = "'"
Close #1
Open expPath & expFile For Append As #1
'Die Daten beginnen in Apalte A
For i = 1 To Range("A65536").End(xlUp).Row
expStr = ""
'Die Daten beginnen in Zeile 2
For n = 1 To Range("IV2").End(xlToLeft).Column
If n = 1 Then
expStr = expDiv
End If
expStr = expStr & Cells(i, n).Value & expDiv & ",'"
Next n
Print #1, expStr
Next i
Close #1
End Sub
Um eine Excel-Tabelle als CSV-Datei mit Kommas als Trennzeichen zu exportieren, folge diesen Schritten:
Wenn Du spezielle Anforderungen hast, wie das Hinzufügen von Anführungszeichen um die Werte, kannst Du ein VBA-Makro verwenden.
Problem: Excel speichert die CSV-Datei mit Semikolons statt mit Kommas.
Problem: Die Daten werden beim Öffnen der CSV-Datei nicht korrekt angezeigt.
Wenn Du eine CSV aus Excel erstellen mit Komma möchtest und die obige Methode nicht funktioniert, kannst Du auch eine der folgenden Methoden ausprobieren:
Sub Export_Comma_CSV()
Dim i As Long, n As Integer
Dim expPath As String, expFile As String, expStr As String
expPath = "C:\" 'Pfad anpassen
expFile = "sqlImport.csv"
Close #1
Open expPath & expFile For Append As #1
For i = 1 To Range("A65536").End(xlUp).Row
expStr = ""
For n = 1 To Range("IV2").End(xlToLeft).Column
expStr = expStr & Cells(i, n).Value & ","
Next n
Print #1, Left(expStr, Len(expStr) - 1) 'Letztes Komma entfernen
Next i
Close #1
End Sub
Hier sind einige Beispiele, wie Du eine Excel-Tabelle in kommagetrennte CSV umwandeln kannst:
Eine einfache Liste von Namen und E-Mail-Adressen:
Name | E-Mail
John Doe | john@example.com
Jane Smith | jane@example.com'John Doe','john@example.com'
'Jane Smith','jane@example.com'Zahlenwerte, die in einer CSV-Datei gespeichert werden:
Produkt | Preis
Apfel | 1.50
Banane | 0.75'Apfel','1.50'
'Banane','0.75'1. Wie kann ich die Trennzeichen für den CSV-Export ändern? Du kannst die Trennzeichen in den Excel-Optionen anpassen oder ein Makro verwenden, um das Trennzeichen direkt festzulegen.
2. Warum wird meine CSV-Datei mit Semikolons gespeichert? Das hängt von der regionalen Einstellung deines Excel-Programms ab. In einigen Ländern ist das Semikolon das Standard-Trennzeichen. Du kannst die regionalen Einstellungen in Windows anpassen oder ein Makro verwenden, um das Trennzeichen zu ändern.
3. Welche Excel-Version wird für das Makro benötigt? Das oben gezeigte Makro funktioniert in Excel-Versionen ab Office 2000 und sollte in allen nachfolgenden Versionen kompatibel sein.