CSV Export mit ;
25.01.2005 18:49:29
Sven
Folgendes Macro habe ich in meine Excel Datei eingefügt, damit jede Arbeitsmappe als CSV-Datei gespeichert wird. Das funktioniert schonmal ganz gut, nur dass die Spalten durch ein "," getrennt werden und nicht durch ein ";". Ebenso werden bei Zahlen das "," durch einen "." ersetzt.
Vielen Dank schonmal für Eure Hilfe!
Sven
Sub Einzeln_Speichern()
Dim bla As Integer
Application.ScreenUpdating = False
For bla = 1 To Sheets.Count
Sheets(bla).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" + ActiveSheet.Name & ".csv", FileFormat:=xlCSV, local:=True
ActiveWorkbook.Close
Next bla
Application.ScreenUpdating = False
End Sub
Anzeige