Windows Verzeichnis ermitteln
Folgendes Makro ermittelt auf ganz einfache Art und Weise das Installationsverzeichnis von Windows.
Public Function WinDir() As String
WinDir = Environ("windir")
End Function
Das Windows Verzeichnis kann hierdurch in allen Makros verwendet werden.
z.B.:
Sub Test()
MsgBox(WinDir)
End Sub