Hallo,
mein Makro soll mir die Möglichkeit bieten, dass ich eine .csv-Datei auswählen und dann importieren kann. Soweit geschieht dies, jedoch wird mir stetig die Fehlermeldung
"Laufzeitfehler '1004': Der eingegebene Name für ein Blatt oder Diagramm ist ungültig. Stellen Sie folgendes sicher: - der eigegebene Name weist maximal 31 Zeichen auf - der Name enthält keines der folgenden Zeichen: : \ / ? * [ oder ] - es wurde ein Namen eingegeben."
Die Antwort mag trivial sein, aber ich bin neu in diesem Bereich, also seht es mir nach.
Sub DateinImport()
Dim Zielmappe As Object
Dim Quellen As Object
Dim Pfad As String
Dim Datei As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Zielmappe = ActiveWorkbook
Datei = Application.GetOpenFilename("Exceldateien öffnen(*.csv*),*.csv*", , "Gewünschte Datei auswählen")
Workbooks.Open (Datei), Local:=True
Do While Datei <> ""
Set Quellen = Workbooks.Open(Pfad & Datei, False, True)
Quellen.Sheets().Copy after:=Zielmappe.Sheets(Zielmappe.Sheets.Count)
Zielmappe.Sheets(Zielmappe.Sheets.Count).Name = Datei
Quellen.Close
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Dateien erfolgreich importiert"
Set Zielmappe = Nothing
Set Quellen = Nothing
End Sub
|