Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

CSV-Dateien

CSV-Dateien
thomas
Hi,
ich möchte per Makro aus einer Excel-Datei csv-Dateien erzeugen. Klappt auch wunderbar. Ich hätte Kommas als Trennzeichen erwartet, habe jedoch Smikolon in der csv-Datei. Gibt es irgendeine Einstellung
mit dem ich das beeinflussen kann?
Und noch eine Frage in diesem Zusammenhang. Kann ich als Texterkennungszeichen Anführungszeichen mitgeben oder geht dies nicht?
Schon mal vorab vielen Dank
Gruß aus dem sonnigen aber ziemlich kalten Rheinböllen oder helau und alaf
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
als Letztes
03.03.2011 15:50:44
Holger,
Anscheinend benutzt du diese Excel eigene Funktion.
Ich mache das so. Als Parameter übergibst du den Dateinamen und den Range, den du in csv exportieren möchtest. Trennzeichen kannst du festlegen (bei mir eine Tilde) und wenn das Trennzeichen im String vorkommt, erfolgt eine Encapsulierung. Damit bist du auf der sicheren Seite.
Und hier der Code :-)
03.03.2011 15:51:05
Holger,

Sub CreateCSV(strDateiname As String, Bereich As Object)
Dim Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strTrennzeichen As String
strTrennzeichen = "~"
Open strDateiname For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
End If
Next
If Right(strTemp, 1) = strTrennzeichen Then
strTemp = Left(strTemp, Len(strTemp) - 1)
End If
Print #1, strTemp
strTemp = ""
Next
Close #1
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige