Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: CurDir-Funktion (Beispiel)

In diesem Beispiel wird die CurDir-Funktion verwendet, um den aktuellen Pfad zurückzugeben. Auf dem Macintosh werden Angaben von Laufwerk, die an CurDir übergeben werden, ignoriert. Der Standardlaufwerkname ist "HD", und die Bestandteile des Pfadnamens sind durch Doppelpunkte statt umgekehrter Schrägstriche voneinander getrennt. Außerdem würden Sie auch anstellen von \Windows Macintosh-Ordner angeben.

' Unter Microsoft Windows:
' Aktueller Pfad auf Laufwerk C: ist "C:\WINDOWS\SYSTEM" (unter Microsoft Windows).
' Aktueller Pfad auf Laufwerk D: ist "D:\EXCEL".
' C: ist das aktuelle Laufwerk.
Dim Pfad1
Pfad1 = CurDir' Liefert "C:\WINDOWS\SYSTEM".
Pfad1 = CurDir("C")    ' Liefert "C:\WINDOWS\SYSTEM".
Pfad1 = CurDir("D")    ' Liefert "D:\EXCEL".

' Auf dem Macintosh:
' Laufwerksbuchstaben werden ignoriert. Der Pfad für das 
' aktuelle Laufwerk wird zurückgegeben.
' Aktueller Pfad auf Laufwerk HD ist "HD:ORDNER1".
' HD ist das aktuelle Laufwerk. Außerdem existiert auf dem System
' ein Laufwerk MD.
Dim Pfad1
Pfad1 = CurDir' Liefert "HD:ORDNER1".
Pfad1 = CurDir("HD")    ' Liefert "HD:ORDNER1".
Pfad1 = CurDir("MD")    ' Liefert "HD:ORDNER1".