Microsoft Excel

Herbers Excel/VBA-Archiv

Export als CSV-Datei | Herbers Excel-Forum


Betrifft: Export als CSV-Datei von: kirsche
Geschrieben am: 25.11.2009 16:28:22

hallo leute,

ich möchte aus einem tabellenblatt eine csv-datei erzeugen.
in der recherche habe ich folgenden code gefunden und angepasst. dieser funktioniert auch super für mein vorhaben.

leider werde hierbei die umlaute zu unlesbaren zeichen umgewandelt.
wie und wo muß ich den code verändern, damit das Ä auch ein Ä bleibt?

Sub prcCreateCSV()
    Dim intFileNumber As Integer
    Dim lngRow As Long
    Dim vntArray As Variant
    Dim strText As String
    Dim i As Integer
    Const strPre As String = ";"
    Reset
    intFileNumber = FreeFile
    
        Application.ScreenUpdating = False
        Sheets("Datenstamm").Visible = True
        Sheets("Datenstamm").Select
      
    With ThisWorkbook
        .Save
        Open .Path & "\" & ("VersandProduktpass") & _
            ".csv" For Output As #intFileNumber
    End With
    With ActiveSheet.UsedRange
        For lngRow = 1 To .Row + .Rows.Count - 1
            vntArray = Range(Cells(lngRow, 1), _
                Cells(lngRow, .Column + .Columns.Count - 1))
            vntArray = WorksheetFunction.Transpose( _
                WorksheetFunction.Transpose(vntArray))
            strText = Join(vntArray, strPre)
            Print #intFileNumber, strText
        Next
    End With
    Close #intFileNumber
        
        Sheets("Datenstamm").Visible = xlVeryHidden
        Sheets("Start").Select
        Application.ScreenUpdating = True
End Sub
gruß dörte

  

Betrifft: AW: Export als CSV-Datei von: kirsche
Geschrieben am: 25.11.2009 17:01:42

frage ist gelöst, beim zweiten aktivieren hat alles geklappt.


Beiträge aus den Excel-Beispielen zum Thema "Export als CSV-Datei"