Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmte htm Datei mit iexplorer öffnen

Bestimmte htm Datei mit iexplorer öffnen
18.05.2009 23:16:51
Joachim
Hallo Excelfachleute
dieser Code funktioniert sehr gut. Ich will nur nicht jedesmal die htm Datei auswählen müssen, sondern
die Datei index.htm, die sich im Ordner Dokumentation im gleichen Verzeichnis der Exeldatei befindet, soll automatisch angesprochen werden und mit dem ie oder firefox geöffnet werden.
Kann mir jemand den Code anpassen? Ich bekomme es nicht hin.
Vielen Dank für eure Hilfe
Danke Jo.

Sub IExplorerOeffnen()
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 = 1350
.Height = 850
End With
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
index.htm Datei mit iexplorer öffnen
18.05.2009 23:21:40
NoNet
Hallo joachim,
ohne dass ich es getestet habe :

Sub IExplorerOeffnen()
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 activeworkbook.path & "\Dokumentation\index.htm"
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = False
.Offline = True
.Width = 1350
.Height = 850
End With
End Sub


Gruß, NoNet

Danke NoNet, das war es! owT
18.05.2009 23:28:45
Joachim
owT
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige