Blatt als CSV in UTF-8 speichern
29.08.2023 14:20:39
Lizzel Mizzel
ich will ein Blatt als CSV mit Unicode UTF-8 speichern, er speichert mir es aber nur in Westeuropäisch (Windows) ab.
Ich hab schon rausgefunden, das ich über
das Uniformat anpassen kann, aber wie ich jetzt Code A und Code B zusammen bringe, das übersteigt meine Skills doch etwas.
Sub BlattSpeichernAlsCSV()
Dim wsA As Worksheet
Dim filePath As String
Dim dialog As FileDialog
' Blatt A definieren
Set wsA = ThisWorkbook.Sheets("Blatt A") ' Hier den Namen des Blatts A einfügen
' Versuchen Sie, den Dialog zu erstellen
On Error Resume Next
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
On Error GoTo 0
' Überprüfen Sie, ob der Dialog erstellt wurde
If dialog Is Nothing Then
MsgBox "Der Dateispeicherdialog konnte nicht erstellt werden."
Exit Sub
End If
' Dialogeinstellungen
With dialog
.Title = "CSV-Datei speichern unter"
.FilterIndex = 16 ' Wählen Sie das CSV-Dateiformat aus
.InitialFileName = "MeineCSVDatei.csv" ' Standardname
.ButtonName = "Speichern"
If .Show = -1 Then ' Wenn der Benutzer auf "Speichern" klickt
filePath = .SelectedItems(1)
Else
MsgBox "Vorgang abgebrochen."
Exit Sub
End If
End With
End Sub
Danke für eure Hilfe
Anzeige