wieder einmal eine bestimmt blöde Frage (habe hierzu im Archiv nichts gefunden, was mir weiterhilft).
Mit folgenden Code von der "Herber-CD" wird ein Verzeichnis zur Auswahl der HTML-Dateien eingeblendet. Ich möchte aber eine bestimmte Datei öffnen, von der LW-Buchstabe und Verzeichnis bekannt sind.
Wie muß ich den Code ändern?
Sub ExplorerOeffnen()
Dim oExplorer As Object
Dim var As Variant
var = Application.GetOpenFilename("HTML-Dateien (*.htm), *.htm")
If var = False Then Exit Sub
Set oExplorer = CreateObject("InternetExplorer.Application")
With oExplorer
.Navigate var
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = False
.Offline = True
.Width = 750
.Height = 550
End With
End Sub
Könnt Ihr mir helfen?
Danke
Gruß
Dieter