Verzeichnis rausbekommen

[MarkusS]

Hi,

gibt es eine Möglichkeit per VBA den aktuellen Pfad meiner geöffneten (Excel-)Datei rauszubekommen.

Den Pfad will ich dann in einer Zelle ausgebenlassen und von dort aus damit (weiter-)arbeiten können.

[-roTekuGeL-]

Dim das

das = Excel.ActiveWorkbook.FullNameURLEncoded

?

[MarkusS]

Alles klar, genau das meinte ich.

Kann ich auch Verzeichnis und Dateiname getrennt voneinander ausgeben lassen? So dass ich dann Verzeichnis in einer Variablen und Dateinamen in einer anderen stehen hab.

[Warfox]

dim dies

dies = split(das,"\")

???

[Amstelchen]

split ist da sinnlos. :cool:

?Excel.ActiveWorkbook.FullNameURLEncoded

C:\Dokumente und Einstellungen\schasquastl\Desktop\Mappe12.xls

?Mid(Excel.ActiveWorkbook.FullNameURLEncoded, InStrRev(Excel.ActiveWorkbook.FullNameURLEncoded, "\") + 1)

Mappe12.xls

?Left(Excel.ActiveWorkbook.FullNameURLEncoded, InStrRev(Excel.ActiveWorkbook.FullNameURLEncoded, "\"))

C:\Dokumente und Einstellungen\schasquastl\Desktop\

s'Amstel

[CSC]

Alternativ funktioniert auch:

Excel.ActiveWorkbook.Path

Finde ich schöner

[Warfox]

stimmt ist am schönsten

ajo split geht schon ^^ der letzte array ist der dateiname, der restliche der pfad :bimei: