Excel CSV export

Computer: Software & Programmierung Visual Basic
#1

Moin Moin, ich habe dieses Macro,

Sub SaveCSV()

Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim strMappenpfad As String

strMappenpfad = ActiveWorkbook.FullName
strMappenpfad = Replace(strMappenpfad, „.xls“, „.csv“)

strDateiname = InputBox(„Wie soll die CSV-Datei heißen (c:\test.csv)?“, „CSV-Export“, strMappenpfad)
If strDateiname = „“ Then Exit Sub

strTrennzeichen = InputBox(„Welches Trennzeichen soll verwendet werden?“, „CSV-Export“, „,“)
If strTrennzeichen = „“ Then Exit Sub

Set Bereich = ActiveSheet.UsedRange

Open strDateiname For Output As #1

For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & „“"" & CStr(Zelle.Text) & „“"" & strTrennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = „“
Next

Close #1
Set Bereich = Nothing
MsgBox „Export erfolgreich. Datei wurde exportiert nach“ & vbCrLf & strDateiname

End Sub

leider fügt das Macro auch in der 1 Zeile die " Zeichen ein. Das soll aber nicht so sein. Kan jemand das Macro modifizieren, so das die 1. Zeile augelassen wird.

Vielen Dank

M Braun

#2

leider fügt das Macro auch in der 1 Zeile die " Zeichen ein.
Das soll aber nicht so sein. Kan jemand das Macro
modifizieren, so das die 1. Zeile augelassen wird.

Hallo M.,

diese csv entsteht bei nachfolgender Tabelle. Wie soll denn die csv
aussehen?
Wozu brauchst du die "?

„a“#„b“#„c“
„d“#„e“#„f“
„g“#„h“#„i“

Tabellenblatt: [Mappe1]!Tabelle1
 │ A │ B │ C │
──┼───┼───┼───┤
1 │ a │ b │ c │
──┼───┼───┼───┤
2 │ d │ e │ f │
──┼───┼───┼───┤
3 │ g │ h │ i │
──┴───┴───┴───┘
A1:C3
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard