Microsoft Excel

Herbers Excel/VBA-Archiv

Erstellen und Speicherung von CSV Dateie

Betrifft: Erstellen und Speicherung von CSV Dateie von: Emil Jakob
Geschrieben am: 13.08.2020 09:01:41

Hallo,


Ich habe folgendes Problem:

Ich möchte in einem erstellten Ordner gerne CSV-Dateien speichern.

Die CSV Dateien werden vorher selbst erstellt und bekommen den Namen aus Spalte $A:$A, des Tabellenblatts "Eingabe".

Zum Ausprobieren nutze ich aber ersteinmal nur $A$2


[code]


Sub Erstellen_Ordner() 
    Const Pfad As String = "C:"
    MkDir Pfad & "CSV_Dateien" & Format(Date, (ddmm))
End Sub



Sub Erstellen_Dateien()

'neue Tabelle

'Erstellen der Dateien im Ordner CSV Dateien nach

'Tabellenblatt Eingabe A2 - Ende

lw = Workbooks("Automsatiesierung der erstellung von CSV Dateien (Automatisch gespeichert).xlsm" _
).Sheets("Eingabe").Cells(Rows.Count, 1).End(xlUp).Rows.Row

Dim name As String

name = Workbooks("Automsatiesierung der erstellung von CSV Dateien (Automatisch gespeichert). _

xlsm").Sheets("Eingabe").Cells(2, 1)



Set NewBook = Workbooks.Add

With NewBook

.Title = name

.SaveAs Filename:="C:" & "CSV_Dateien" & Format(Date, (dd.mm)) & "/" & name & ".csv", _

_

FileFormat:=6, ReadOnlyRecommended:=False, CreateBackup:=False

End With



'Workbooks.Add

'ActiveWorkbook.SaveAs Filename:="C:/CSV_Dateien" & Format(Date, (dd.mm)) & "/" & name & ". _

_

csv", FileFormat:=6, ReadOnlyRecommended:=False, CreateBackup:=False

'ActiveWorkbook.Close

End Sub


[/code]


Leider wird mir bei SAVEAS immer der Fehler "Laufzeitfehler '424': Objekt erforderlich" angezeigt.


Ich bitte um Hilfe :-)


Vielen Dank,

icelandshark

Betrifft: dir fehlen \ und ...
von: Rudi Maintaire
Geschrieben am: 13.08.2020 11:20:29

/ im Dateinamen ist nicht zulässig.
SaveAs Filename:="C:\" & "CSV_Dateien\" & Format(Date, (dd.mm)) & "_" & name & ".csv"