www.Russ-Jesteburg.de > Excel > VBA > Datei
Export: CSV-Datei per VBA erstellen:

' Werte in CSV-Dateien (Komma-getrennte Werte) werden normalerweise mit
' Semikolons voneinander getrennt. Speichert man eine Tabelle per VBA
' als CSV-Datei, werden die Werte durch Kommas getrennt. Diesen Excel-
' Fehler kann man nur umgehen, indem man sich die CSV-Datei manuell
' Zeile für Zeile zusammenbastelt:
Sub CSV_Export()
    Dim Exportdatei As String
    Dim Trennzeichen As String
    Dim Zellbereich As Range
    Dim Zeile As Long
    Dim Zelle As Object
    Dim TempZeile As String
    
    Exportdatei = ThisWorkbook.Path & Application.PathSeparator & "Datei.csv"
    Trennzeichen = ";"
    Set Zellbereich = ActiveSheet.UsedRange
    
    Open Exportdatei For Output As #1
    ' Zeile für Zeile abarbeiten...
    For Each Zeile In Zellbereich.Rows
        ' in der Zeile Zelle für Zelle...
        For Each Zelle In Zeile.Cells
            TempZeile = TempZeile & Trennzeichen
        Next Zelle
        ' Letztes Trennzeichen entfernen und Zeile in Datei schreiben
        Print #1, Left(TempZeile, Len(TempZeile) - 1)
        TempZeile = ""
    Next Zeile
    Close #1
End Sub
Dieser Tipp ist vom 29.11.2005