Office: Pfad zum Workbook

Hallo an Alle,

habe eine ganz simple Frage, zu der ich allerdings noch keine Antwort im Forum gefunden habe: Wie kann ich per VBA auf den Pfad meines geöffneten Workbooks zugreifen?

Hintergrund ist, dass ich verschiedene Daten aus weiteren Dateien auslesen will, die sich im selben Ordner befinden. Der Code soll allerdings noch funktionieren, wenn ich einen neuen Ablageort wähle.

Vielen Dank für eure hilfe
Steve

:)

 

Hi Steve
Mit nachfolgendem Code bekommst du den Pfad deines Workbooks
Code:

 

Moin, ergo1,

Application ist eigentlich überflüssig (aus Excel heraus ist die Application immer Excel *wink.gif*), und ActiveWorkbook.FullName liefert Pfad und Name direkt. Außerdem fehlt zwischen der ersten Variablen und dem Namen dann der schließende Pfadtrenner, z.B.

Code:

 

Hallo ergo1, hallo jinx,

auf ActiveWorkbook hätte ich echt auch selbst drauf kommen können.
Danke nochmal für eure Lösungsansätze, das war genau das wonach ich gesucht habe.

Ciao Steve

 

Hallo,

weil ich gerade mal einen Thread aufgemacht habe, kann ich hier vielleicht noch was anderes fragen.
Wie oben schon kurz beschrieben, brauche ich den Pfad, um verschiedene Workbooks in diesem Ordner auszulesen. Ich habe in diesem Zusammenhang schon im Forum gestöbert, allerdings noch keine befriedigende Lösung gefunden.
Eine Lösung habe ich schon implementiert, allerdings werden bei dieser die Workbooks geöffnet - ausgelesen - geschlossen. Das Problem, man sieht, dass sie geöffnet werden - das finde ich unschön.

Gibt es eine schöne und (vom Code her) einfache Lösung???

Ich freue mich über jede Antwort...

Danke Steve

 

Moin, Steve,

hast Du es schon einmal über eine neue Instanz per CreateObject versucht oder durch ExcelExecute4Macros? Gem. dem bei Ron de Bruin in Copy a range from closed workbooks (ADO) beschriebenen Vorgehen?

 

Hi jinx,

danke für den lösungsansatz mit ExecuteExcel4Macro. Darüber hatte ich zwar auch schon gelesen, aber hatte eine andere Implementierung (mit OpenWorkbook und dann schliessen). Im Gegensatz zu meiner Implementung wird hier nichts geöffnet - sehr gut.

Danke Steve

 

Hallo jinx

Warum denn in die Ferne schweifen...*Smilie
Danke für den Hinweis.

 

Hier gibts noch ein Beispiel für Excecute4ExcelMacros:

http://www.dailydoseofexcel.com/inde...&name=&paged=2

MfG
Steve