Öffnen einer HTML-Seite in einem Makro (Microsoft Excel)
Excel ist ein „webfähiges“ Programm, dh es weiß, wie man mit Hyperlinks umgeht. Sie können einem Dokument einen Hyperlink hinzufügen, auf diesen Link klicken, und Excel öffnet Ihren Webbrowser und zeigt den Inhalt dieses Links im Browser an. (Sie können auch einen Hyperlink zu anderen Office-Dokumenten erstellen, einschließlich Excel-Arbeitsmappen.) Sie können sogar Hyperlinks zu verschiedenen Objekten in Ihrem Arbeitsblatt erstellen, z. B. zu einer Befehlsschaltfläche in einem Formular.
Was ist, wenn Sie den Browser starten und eine HTML-Datei in einem VBA-Makro öffnen möchten? Es gibt verschiedene Möglichkeiten, dies zu tun.
Das erste besteht darin, einfach ein neues Internet Explorer-Objekt in Ihrem Code zu öffnen. Ein Makro dazu würde wie folgt aussehen:
Sub DoBrowse1() Dim ie As Object Set ie = CreateObject("Internetexplorer.Application") ie.Visible = True ie.Navigate "c:\temp\MyHTMLfile.htm" End Sub
Dieses Makro öffnet die Datei c: \ temp \ MyHTMLfile.htm in einem neuen Internet Explorer-Fenster. Wenn Sie stattdessen eine Webseite über das Internet öffnen möchten, können Sie dies einfach tun, indem Sie ändern, wohin Sie navigieren möchten.
(Ersetzen Sie den Dateipfad durch eine URL.)
Eine andere Möglichkeit, dieselbe Aufgabe auszuführen, besteht darin, sich auf Excel zu verlassen, um herauszufinden, was Ihr Standardbrowser ist, und die HTML-Ressource zu öffnen. Das folgende Makro macht den Trick:
Sub DoBrowse2() ActiveWorkbook.FollowHyperlink _ Address:="c:\temp\MyHTMLfile.htm", _ NewWindow:=True End Sub
Der Browser öffnet erneut ein neues Fenster und zeigt die angegebene Datei an.
Sie können den Adressparameter in eine beliebige URL ändern.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (154) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: