Abspeichern als CSV ohne ""

Hallo zusammen,
ich versuche verzweifelt eine Liste als CSV-Datei (Alle Daten stehen in der ersten Spalte mit Kommmas als Trennzeichen, siehe Zitat hierunter) zu exportieren/ abzuspeichern um diese in einem Online-Tool (GPS Visualizer) einsetzen & nutzen zu können.


name,latitude,longitude,n
%0DCust1,51.16,6.49,0
%0DCust2,48.22,11.69,2

Leider erkennt das Online-Tool die Daten nicht, da Excel (beim Abspeichern der Datei als CSV) jeden einzelnen Satz vorne und hinten mit Anführungsstrichen versieht.
So sollte es sein:
%0DCust1,51.16,6.49,0
So ist es in der CSV-Datei(nach Speicherung per VBA):
"%0DCust1,51.16,6.49,0"
Wenn ich die Datei manuell öffne & wieder abspeichere ploppt eine Msgbox auf:


xxxxxxxx.csv kann Merkmale enthalten, die mit CSV (Trennzeichen-getrennt) nicht kompatibel  _
sind.
Möchten sie die Arbeitsmappe in diesem Format speichern?

Bestätige ich nun mit ja, dann wird die CSV-Datei ohne Anführungsstriche abgespeichert und ich kann sie in dem Online-Tool nutzen.
Bei der Speicherung via VBA kommt die Zusatzfrage nicht.


Newbook.SaveAs Filename:="C:\CSV-Datei\Visualisierung.csv", _
FileFormat:=xlCSV, CreateBackup:=False

Gibt es hier irgendeine Lösung (vielleicht der Einbau der Zusatzabfrage), damit die CSV ohen die "" abgespeichert werden kann?
Viele Grüße und danke im Voraus für eure Mühen.
Winfried

Hi,
hier die variable Version:

Option Explicit
Function CSV_Erzeugen(blatt, abZelle$, Pfad$, t$) As String
Dim aSp ' = as variant als Array
Dim z&, s$, maxZ& ' & = as long z wie Zeile, $ = as string, s wie string für Ausgab
Dim d As Integer ' d wie Dateinummer
On Error GoTo fehler
aSp = Sheets(blatt).Range(abZelle).CurrentRegion
If Not IsArray(aSp) Then CSV_Erzeugen = "kein Array": Exit Function
maxZ = UBound(aSp)
For z = 1 To maxZ
If z  0 Then CSV_Erzeugen = Err.Description Else CSV_Erzeugen = "ok"
End Function
Sub aufruf()
Dim Pfad$, Ergebnis$
Pfad = "C:\A_Herber\CSV_Export.csv"
'If Dir(Pfad) = "" Then
'  Ergebnis = CSV_Erzeugen("Tabelle1", "A1", Pfad, vbCrLf)
'  If Ergebnis = "ok" Then
'     MsgBox "Datei " & Pfad & " wurde erzeugt"
'    Else
'     MsgBox "Fehler: " & Ergebnis
'  End If
' Else
'  MsgBox "Datei bereits vorhanden"
'End If
' *** oder ganz einfach:
MsgBox CSV_Erzeugen("Tabelle1", "A1", Pfad, vbCrLf)
' Trennen z.B. mit: vblf, vbcr oder vbcrlf
End Sub

Schöne Grüße,
Michael

Forumthread: Abspeichern als CSV ohne ""

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

CSV-Datei ohne Anführungszeichen abspeichern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)