Das Windowsverzeichnis ermitteln (VBA)
Um das Windows-Verzeichnis zu ermitteln fügen Sie
folgenden Code in ein Modul ein:
{codecitation}
Private Declare Function GetWindowsDirectory Lib _
"KERNEL32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinDir() As String
Dim sDirBuf As String * 255
StrLen = GetWindowsDirectory(sDirBuf, 255)
WinDir = Left$(sDirBuf, StrLen)
End Function
{/codecitation}
Sie können diese Funktion sowohl in Ihren Makros verwenden,
als auch als eine Tabellenfunktion.
Geben Sie hierzu in die entsprechende Zelle die Formel =WinDir() ein
Eine schnellere und einfachere Möglichkeit das
Windows-Verzeichnis zu ermitteln, besteht darin die
Umgebungsvariable WinDir auszuwerten:
{codecitation}
Public Function WinDir() As String
WinDir = Environ("windir")
End Function
{/codecitation}
Das Windows-Systemverzeichnis ermitteln (VBA)
Ähnlich wie das Windows-Verzeichnis können Sie auch
das Windows-System-Verzeichnis ermitteln:
{codecitation}
Private Declare Function GetSystemDirectory Lib _
"KERNEL32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinSysDir() As String
Dim sDirBuf As String * 255
StringLength = GetSystemDirectory(sDirBuf, 255)
WinSysDir = Left$(sDirBuf, StringLength)
End Function
{/codecitation}
Sie können diese Funktion sowohl in Ihren Makros verwenden,
als auch als eine Tabellenfunktion.
Geben Sie hierzu in die entsprechende Zelle
die Formel =WinSysDir() ein.
+49(0) 151 164 55 914 
