Outsider77
Erfahrenes Mitglied
Hallo zusammen,
ich habe ein kleines Problem beim Speichern eines Excel-Sheets in's csv-Format.
Führe ich die Schritte händisch über Datei speichern unter -> csv aus, wird eine csv-Datei erzeugt,
welche die Zeichensätze durch ein Semikolon trennt.
Lasse ich die csv-Datei allerdings per Makro erzeugen, erhalte ich eine kommagetrennte Datei.
Folgender Code zum Erzeugen:
Trotz des Parameters "Local" erhalte ich die csv komma-getrennt.
Der gesamte Code zum Erstellen der csv:
Vielleicht im Kontext besser zu verstehen.
Kann mir bitte jemand bei der Problem-Lösung behilflich sein?
Danke!
Gruß Outi
Edit:
Mein eigentliches Anliegen ist, das aktuell geöffnete Sheet (Tabelle1 in der Excel-Mappe) als semikolon-getrennte csv zu exportieren, eventuell beim Schließen oder Speichern der Mappe.
ich habe ein kleines Problem beim Speichern eines Excel-Sheets in's csv-Format.
Führe ich die Schritte händisch über Datei speichern unter -> csv aus, wird eine csv-Datei erzeugt,
welche die Zeichensätze durch ein Semikolon trennt.
Lasse ich die csv-Datei allerdings per Makro erzeugen, erhalte ich eine kommagetrennte Datei.
Folgender Code zum Erzeugen:
Code:
ActiveWorkbook.SaveAs Filename:=wb_path & "\" & "csv_" & Replace(wb_name, "xlsm", "csv"), FileFormat:=xlCSV, Local:=True
Trotz des Parameters "Local" erhalte ich die csv komma-getrennt.
Der gesamte Code zum Erstellen der csv:
Code:
Sub csv_export()
Dim wb_name As String, wb_path As String
wb_name = ThisWorkbook.name
wb_path = ThisWorkbook.Path
If IsFilePath(wb_path & "\" & "csv_" & Replace(wb_name, "xlsm", "csv")) = True Then
DeleteFile (wb_path & "\" & "csv_" & Replace(wb_name, "xlsm", "csv"))
End If
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveWorkbook.Save
CopyFile wb_path & "\" & wb_name, wb_path & "\" & "csv_" & wb_name, 0
'Application.Visible = False
Workbooks.Open wb_path & "\" & "csv_" & wb_name, ReadOnly:=True
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=wb_path & "\" & "csv_" & Replace(wb_name, "xlsm", "CSV"), FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Close savechanges:=True
'Application.Visible = True
DeleteFile wb_path & "\" & "csv_" & wb_name
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Vielleicht im Kontext besser zu verstehen.
Kann mir bitte jemand bei der Problem-Lösung behilflich sein?
Danke!
Gruß Outi
Edit:
Mein eigentliches Anliegen ist, das aktuell geöffnete Sheet (Tabelle1 in der Excel-Mappe) als semikolon-getrennte csv zu exportieren, eventuell beim Schließen oder Speichern der Mappe.
Zuletzt bearbeitet: