VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Import aus dem Internet

Gruppe

Extern

Bereich

Internet

Thema

Import aus dem 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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Internet