Office: Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Hallo Leute,

Hoffentlich könnt ihr mir hier helfen, ich krieg den Syntax einfach nicht hin (wahrscheinlich ist es auch totaler käse den ich programmiert habe).

Also im Grunde soll eine Datei geöffnet werden, das funktioniert auch. Diese hat immer den gleichen namen: „Test.xlsx“

Wenn es nur eine Datei ist, dann kann ich sie so aufrufen:

Jetzt kann es aber sein das die datei nicht immer auf C:\Temp\ liegt sondern evt. Auf D:\Temp\Test.xlsx oder E:\Temp\ usw.

Wie könnte ich das nun am geschicktesten machen das er zuerst im 1 verzeichnis schaut, wenn dort nichts ist im 2ten, wenn dort nichts ist im 3ten und dann irgendwann nach 3-4 verzeichnissen sagt: nööö – Datei nicht vorhanden?!

Wäre toll wenn mir wer unter die Arme greifen könnte!

LG Lizzz

 

Hi,

wenn es immer der Temp-Ordner ist, dann nutze Environ$("Temp").

 

Hi Lizz,

wenn alle zu durchsuchenden Verzeichnisse bekannt sind dann z.B. nach diesem Prinzip:

Code:

Sub Suchen()
    Dim strPfad As String
    Dim arrPfade()
    Dim intPfad As Integer
    Dim blnDa As Boolean
    arrPfade = Array("C:\Temp\", "D:\Temp\", "E:\Temp\") '<== alle gewünschten Verzeichnisse
    For intPfad = 0 To UBound(arrPfade())
        If Dir(arrPfade(intPfad) & "Test.xlsx") <> "" Then
            Workbooks.Open arrPfade(intPfad) & "Test.xlsx"
            blnDa = True
        End If
    Next intPfad
    If blnDa = False Then MsgBox "Datei Test.xlsx nicht gefunden"
End Sub

---

 

Hi, Du kannst mit Dir die Datei suchen:

Dim Datei as string
Datei = Dir(”C:\Pfad1\*.xls*”)
If Datei <> ”" then
'Datei öffnen
else
Datei = Dir("C:\Pfad2\*.xls*")
.....
Der * ist ein Platzhalter falls der Dateiname nicht zu Gänze bekannt sein sollte

 

@Beverly

Boaaaah,

Das ist der Wahnsinn, das funktioniert auf anhieb super.
Einen kleinen schönheitsfehler (wobei fehler falsch ist) gäbe es noch.. Wenn die Datei nicht gefunden wird, bringt er die msg, aber geht in debug modus mit einem fehler.
Vermutlich da das ganze versucht weiter zu laufen, gibt es eine Saubere möglichkeit das Workbook zu schließen?

Wenn ich einfach unter die Msg box oder in den Errorhandler:

Setze, dann schließt er es auch wenn er die Datei gefunden hat, was natürlich nicht im Sinne des Erfinders ist.

Wäre super cool,

Vielen Vielen Dank,

 

Hi Lizz,

in welcher Zeile geht Excel in den Debugg-Modus und was sagt der Debugger genau? Wie sieht denn dein jetziger Code aus, denn einen ErrorHandler gibt es in meinem Code nicht. Und welche Mappe soll geschlossen werden?

---

 

@Beverly

Hey,

Danke mal wieder.

Das Macro macht genau was es machen soll, das funktioniert super. Er sollte nur wenn die „blnDa“ msg ausgelöst wird, die datei schließen.
Diese wird mit „curFile“ angesprochen.

Nach dem man die msgbox bestätigt hat, geht er weiter im Macro und dann kommt der debug fehler erst. (Subscript out of range).

Also theoretisch..

Das funktioniert auch, aber er schließt das File auch wenn die Datei vorhanden ist. Sollte es natürlich erst machen wenn die datei nicht gefunden wurde und dann nach dem die msgbox mit „ok“ bestätigt wurde..


Vielen Dank,


Lizz

 

Hi Lizz,

wenn ich dich richtig verstanden habe, dann so:

Code:

    If blnDa = False Then
        MsgBox "Datei Test.xlsx nicht gefunden"
        Workbooks(curFile).Close SaveChanges:=False
    End If

Frage: ist Workbooks(curFile) die Mappe mit dem Code? Dann kannst du anstelle Workbooks(curFile) auch ThisWorkbook verwenden. Oder - falls es nicht die Mappe mit dem Code sondern eine andere, aber gerade aktive Mappe ist - stattdessen ActiveWorkbook.

---

 

Funktioniert Super, da war es wohl nur ein fehler in der Anordnung das es nicht geklappt hat.

VIELEN DANK! DANK!

 

Das ist nicht ganz 100%ig korrekt - es lag nicht an der Anordnung selbst sondern daran, dass du deine Codeausführung an keine Bedingung geknüpft hast. Folglich wurde sie in jedem Fall ausgeführt. So wäre es richtig gewesen:

Code:

    If blnDa = False Then MsgBox "Datei Test.xlsx nicht gefunden"
    If blnDa = False Then Workbooks(curFile).Close SaveChanges:=False

Und diese beiden Zeilen kann man halt beide in dieselbe If-Anweisung schreiben, da für beide dieselbe Bedingung gilt.

---

 

Nur interessehalber: Geht es immer um den Temp-Ordner?