Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Import aus dem Internet
Gruppe
Internet
Problem
Wie kann ich eine HTML-Seite aus dem Internet öffnen, einen Zellinhalt herausgreifen und diesen in das aktive Arbeitsblatt übertragen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain Sub HTML() Dim rng As Range Dim sPage As String, sTxt As String Application.ScreenUpdating = False sPage = "https://www.herber.de/mailing/extern.htm" Workbooks.Open Filename:=sPage Set rng = Columns(6).Find( _ what:="232", _ LookIn:=xlValues, _ lookat:=xlPart) ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = _ rng.Offset(0, 1).Value ActiveWorkbook.Close savechanges:=False Application.ScreenUpdating = True End Sub