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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

sub SaveAsCSV_RPP() dim FullName as string FullName = Application.GetSaveAsFilename("DeinDateiName", "CSV-Dateien (*.csv), *.csv") if FullName "" then activesheet.SaveAs FullName, xlCSVMSDOS end if end sub

Sub wr_Txt_File() sPfad = "c:\temp\" sFile = "wr-test.txt" Open sPfad & sFile For Output As #1 Print #1, "Hallo World" Print #1, "Bye" Print #1, Cells(1, 1) Write #1, "new line" Write #1, Cells(1, 1) Close #1 End Sub

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

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

16 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abspeichern als CSV ohne ""

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

16 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread