Office: Datei ohne Pfad öffnen

Hallo Leute,

ich habe folgendes Problem ich würde gerne eine Excel Datei per Makro über eine Schaltfläche öffnen lassen, das Problem ist der Dateipfad.

Gibt es eine Möglichkeit den Dateipfad auszulassen und sozusagen nur die Datei zu suchen und diese dann zu öffnen.

Mein Code sieht zurzeit so aus:

Workbooks.Open "W:17217212.01 Body5 listenWL Nr.3.xlsx"

Vielen Dank vorab.

Grüsse

:)

 

ja, wenn Du die Datei auf dem gesamten Rechner suchst, was Zeit dauert.

 

Hallo,

nur so als Idee:

wenn kein Pfad angegeben wird, nutzt xl den "Application.Path", den man aber auch vorher ändern kann.

Falls nur das Laufwerk und der Dateiname bekannt ist, gibt es eine API, die den Pfad ermittelt (nur bei Basiskenntnissen von API zu empfehlen)

mfg

 

Moin,

von wem - vom Anwender oder per VBA?

Ganz nebenbei: Der MSO-Editor frisst Backslashes, das lässt sich aber durch Verdoppelung aushebeln.

 

Hallo, *Smilie

das kannst Du am einfachsten mit der API-Funktion "SearchTreeForFile" erreichen: *wink.gif*

Datei suchen - Pfad unbekannt - auslesen - kopieren!

Bedenke aber: *rolleyes.gif*

Bei sehr großen Festplatten solltest Du schon eingrenzen können, dass nicht von "ganz oben" gesucht werden muss - das dauert.

Servus
Case

 

Vielen Dank für eure Hilfe,
ich kann den Dateipfad schon etwas genauer deklarieren ich denke das würde die rechenzeit minimieren.
Wie müsste denn mein Code mit SearchTreeForFile aussehen?

Ich muss mich entschuldigen bin noch ziemlich neu in diesem Thema, aber bin echt dankbar für eure Hilfe

 

Hallo, *Smilie

so: *wink.gif*

Code:

Dateiname anpassen! Pfad anpassen!

Servus
Case

 

Hallo Case,

da hast Du aber Vertrauen in die Dateisuche, daß Du gleich die erstbeste nimmst und öffnest - das kann ja eine uralte Datei sein, die sich da auf der Festplatte noch gemütlich macht.

Gruß von Luschi
aus klein-Paris

 

Hallo Luschi, *Smilie

kann sein, aber ich tue mich schwer mit Interpretationen, was alles sein oder nicht sein kann. *wink.gif*

Wenn das beim Themenersteller der Fall ist, dann sehen wir weiter. *rolleyes.gif*

Servus
Case

 

Vielen Dank

 

Hallo vielen dank für die Antwort Case,
ich habe deinen Code eingefügt doche es geschieht nichts deshalb erkläre ich kurz wie ich vorgegangen bin:
Entwicklertools - VB- "den Code einfügen"- "Ich habe die Ordnernamen angepasst"- Speichern- Entwicklertools- Einfügen- Schaltfläche- Code zuweisen- Test_1.
Code:

Ich habe bestimmt irgendwas vergessen oder falsch eingestellt. ich schicke auch mal ein Bild von meine Oberfläche dazu vieleicht liegt da ja irgendwo ein Fehler vor.
Noch einmal vielen Dank.

http://www.directupload.net/file/d/4...ubkopv_png.htm

Gruss
Julez

 

Hallo, *Smilie

hier darfst Du nur den PFAD eingeben - OHNE Dateinamen! *wink.gif*

Code:

Mit abschließendem Backslash.

Servus
Case

 

vielen Dank daran lag es tatsächlich.
Bei mir hat es nun tatsächlich geklappt das sich die Datei öffnet.
Nur mein Kollege hat die Datei auf einem anderen Laufwerk und in einem anderen Ordner Pfad und konnte diese deshalb nicht öffnen.

Code:

Dieser Teil ist mir nicht ganz schlüssig. Wieso soll ich hier meinen Pfad angeben wenn doch lediglich der Zielordner gesucht werden soll?
Oder kann diesen Part soweit kürzen entsprechend des mir bekannten Ordnerpfads der Zieldatei also Code:

?
Dann wird doch aber auch wieder auf dem laufwerk W: gesucht was ja eigentlich nicht der Fall sein sollte.

Danke vorab
Gruss Julez

 

...
Das Problem ist ja,
angenommen ich sende meinem Kollegen einen Ordner der bei mir den Dateipfad;
("W:Platz/Benutzer/Listen/Werkzeug/WL Nr.3 Fahrzeugpflege.xlsx") hat.

Er erhält von mir aber nur die folgenden Dateipfad z.B. als ZIP:
Listen/Werkzeug/WL Nr.3 Fahrzeugpflege.xlsx

Wie kann ich dann gewährleisten das mein Code unabhängig davon wo er die Datei ablegt zum Beispiel auf seinem "C:" laufwerk, trotzdem noch die Datei öffnet.
Vieleicht könnte man den Pfad von hinten aufrollen oder die suchfunktion benutzen?

Wäre etwas davon möglich?
Danke vorab.

Lieben Gruss
Julez

 

Hallo, *Smilie

also wenn die Datei "irgendwo" liegen kann wird es schwierig bis unmöglich, da nicht mehr Anwenderfreundlich. *wink.gif*

Hier solltest Du das Konzept nochmal überdenken. *rolleyes.gif*

Eine Dateisuche über mehrere Laufwerke ist möglich, aber in der Anwendung unrealistisch. *wink.gif*

Servus
Case