M
MSCom
Neuer Benutzer
Threadstarter
- Dabei seit
- 20.09.2016
- Beiträge
- 1
Hallo.
Kleines Problem mit VBA. Mache gerade meine ersten Gehversuche mit VBA. Also verzeiht mir bitte etwaige "dumme" Fragen.
Zur Aufgabenstellung: Ich habe ein Testverzeichnis mit drei Excel Testdateien angelegt. Zusätzlich befindet sich die Datei mit dem Makro drin (also insgesamt vier). Die drei Testdateien sollen per Makro geöffnet werden.
Ich habe zuerst ein Makro geschrieben, das mir die (alle) Dateien in dem Verzeichnis zählt.
Sub DateienZaehlen()
Dim strPfad As String
Dim strMappe As String
Dim intZ As Integer
strPfad = ThisWorkbook.Path
strMappe = Dir(strPfad & ".xls")
Do While strMappe <> ""
strMappe = Dir
intZ = intZ + 1
Loop
'MsgBox "Anzahl der Dateien: " & intZ
End Sub
Im Anschluss daran sollen die gezählten Dateien geöffnet werden. Das sollte so geschehen.
Workbooks.Open Filename:=strPfad & strMappe, UpdateLinks = xlUpdateLinksNever
Leider scheint dies nicht zu funktionieren. Es kommt der Fehler "Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler". Irritierend ist dies, da dieser Code aus einem schlauen Büchlein stammt, der neben mir liegt. Das zählen der Dateien an sich funktioniert, nur das öffnen nicht. Kann mir jemand helfen, den Verständnisknoten zu entwirren? Danke im voraus.
Kleines Problem mit VBA. Mache gerade meine ersten Gehversuche mit VBA. Also verzeiht mir bitte etwaige "dumme" Fragen.
Zur Aufgabenstellung: Ich habe ein Testverzeichnis mit drei Excel Testdateien angelegt. Zusätzlich befindet sich die Datei mit dem Makro drin (also insgesamt vier). Die drei Testdateien sollen per Makro geöffnet werden.
Ich habe zuerst ein Makro geschrieben, das mir die (alle) Dateien in dem Verzeichnis zählt.
Sub DateienZaehlen()
Dim strPfad As String
Dim strMappe As String
Dim intZ As Integer
strPfad = ThisWorkbook.Path
strMappe = Dir(strPfad & ".xls")
Do While strMappe <> ""
strMappe = Dir
intZ = intZ + 1
Loop
'MsgBox "Anzahl der Dateien: " & intZ
End Sub
Im Anschluss daran sollen die gezählten Dateien geöffnet werden. Das sollte so geschehen.
Workbooks.Open Filename:=strPfad & strMappe, UpdateLinks = xlUpdateLinksNever
Leider scheint dies nicht zu funktionieren. Es kommt der Fehler "Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler". Irritierend ist dies, da dieser Code aus einem schlauen Büchlein stammt, der neben mir liegt. Das zählen der Dateien an sich funktioniert, nur das öffnen nicht. Kann mir jemand helfen, den Verständnisknoten zu entwirren? Danke im voraus.
