Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Makro - File aus Verzeichnis öffnen

Forumthread: Makro - File aus Verzeichnis öffnen

Makro - File aus Verzeichnis öffnen
28.03.2006 10:53:08
Stefan
Hi,
öffne mittels einem Makro im aktuellen Verzeichnis eine Datei mit
Workbooks.Open Filename:= _
Application.ActiveWorkbook.Path & "\MIM.XLS"
Nun möchte ich eine Datei aus dem VORGELAGERTEN Verzeichnis öffnen, kann aber den "richtigen" Pfad nicht verwenden, da sich dieser immer wieder mal ändert.
Hat jemand eine Idee ?
Danke & LG
Stefan
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - File aus Verzeichnis öffnen
28.03.2006 11:00:13
Sylvio
Hallo Stefan,
kürze den Pfad doch einfach um eine Ebene über eine Schleife, wenn der Pfad immer ne Ebene höher ist.
path = Application.ActiveWorkbook.Path
temp = path
Do While InStr(Len(temp), temp, "\") = 0
temp = Left(temp, Len(temp) - 1)
Loop
newpath = temp
Gruß Sylvio
Anzeige
AW: Makro - File aus Verzeichnis öffnen
28.03.2006 11:11:55
Stefan
Hi Sylvio,
danke für Deine Antwort. Bin leider kein Makro / VBA Spezialist und weis nicht wo ich den Code einfüge...
Der Teil meines Makros sieht so aus :
Workbooks.Open Filename:= _
Application.ActiveWorkbook.Path & "\MMMO .XLS"
Workbooks.Open Filename:= _
Application.ActiveWorkbook.Path & "\KI.XLS"
Workbooks.Open Filename:= _
Application.ActiveWorkbook.Path & "\KIZ.XLS"
Das Verwendete Verzeichnis heißt ../Vorlage/Daten/
Wo muss ich den Code einfügen ?
Danke und LG
Stefan
Anzeige
AW: Makro - File aus Verzeichnis öffnen
28.03.2006 11:18:21
Sylvio
Hallo Stefan,
welche von den drei aufgeführten Dateien befinden sich denn in dem Ordner darüber?
Gruß Sylvio
AW: Makro - File aus Verzeichnis öffnen
28.03.2006 11:33:28
Stefan
Hi,
Das Makro hat folgenden Pfad ../Vorlage/Daten/Zusammenführen.xls
Alle Dateien die geöffnet werden sollen sind im Verzeichnis ../Vorlage/
LG Stefan
AW: Makro - File aus Verzeichnis öffnen
28.03.2006 11:44:18
Sylvio
OK dann schreib es so davor:
ICh gehe jetzt davon aus das sich MMMO.XLS, KI.XLS und KIZ.XLS eine Ebene über deinem Workbook befinden wo dieser Code ausgeführt wird.
path = Application.ActiveWorkbook.Path
temp = path
Do While InStr(Len(temp), temp, "\") = 0
temp = Left(temp, Len(temp) - 1)
Loop
newpath = temp
Workbooks.Open Filename:= _
newpath & "MMMO.XLS"
Workbooks.Open Filename:= _
newpath & "KI.XLS"
Workbooks.Open Filename:= _
newpath & "KIZ.XLS"
Gruß Sylvio
Anzeige
AW: Makro - File aus Verzeichnis öffnen
28.03.2006 16:54:19
Stefan
Hi Sylvio,
danke für die Hilfe !!!!!!!!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18