mehrere Tabellenblätter zu CSV
18.08.2022 14:06:02
Silke
für Hilfe wäre ich sehr dankbar, ich nutze bisher nur den VBA Recorder und ändere dann nur noch Kleinigkeiten, besitze
also wenig VBA Kenntnisse.
Ich möchte aus einer Excel Datei mit mehreren Tabellenblättern alle Blätter in jeweils eine CSV Datei exportieren und dies
mittels VBA lösen.
Im Netz habe ich dazu folgendes Makro gefunden:
Sub ExportSheetsToCSV()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xcsvFile = CurDir & "\" & xWs.Name & ".csv"
Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
FileFormat:=xlCSV, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
jedoch das Semikolon als Trennzeichen, da ich nur dann die Dateien in meinem Programm einlesen kann.
Für Hilfe wäre ich dankbar
Silke