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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen