Microsoft Excel

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 = "http://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