Ich möchte über einen Command-Button (kommt in der Arbeitsmappe auf 6 Tabellenblättern vor) eine HTML-Datei im IE öffnen. Hierzu benutze ich folgen "Herber" Code.
Sub OpenIE()
Dim ie As Object
Dim sFile As String
sFile = Range("AA1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate sFile
ie.Visible = True
End Sub
Meine Frage:
Wie kann ich das Verzeichnis für diese Datei variabel gestalten?
Bei mir liegt diese Datei in LW E:. Wenn ich das Verzeichnis auf CD brenne um meine Applikation weiterzugeben, ist aber logischer Weise das LW des Users nicht unbedingt "E:" sonder kann auch "D:" oder "F:" oder ähnlich lauten.
Wie kann ich das lösen?
Danke für Eure Hilfe.
Gruß
Dieter