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