HERBERS Excel-Forum - die Beispiele

Thema: Import aus dem Internet

Home

Gruppe

Extern

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

Text aus Zelle in Internet Seite Dateiname externer Datei ändern
internet explorer per handle in Objekt umwandeln Tabellenblatt aus externer Exceldatei kopieren
InternetExplorer Object ConboBox mit externe Daten füllen
Einfügen aus Internet-Seite Absturz Excel bei Internet-Absturz
Wert in externer Datei suchen Aufruf externer Programme
Internetdienst mit Makro ausführen Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Pivot mit Externer DB am Limit?
Externe Verknüpfungen Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen Download aus dem Internet Teil2
Externe Datenquelle via VBA Einfügen aus Internet 10²
Pivot mit Externer DB UNION funzt nich Nur externe Bezüge rausnehmen
Datei aus dem Internet runterladen XLB Auswirkung auf Internet Explorer
Excel standard Symbolleiste im Internet Explorer *xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen internet frage zum RFC
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge.... Externe Verknüpfung finden
Datei im Internet bearbeiten externe Bezüge
Summenprodukt + Externe Bezüge Datenbank in externer Datei
Fehler beim Kopieren von externer Tabelle anzahl Blätter externer Excel-Datei
Externe Daten aus Access Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge
Internetseite Markieren u. in Tabellenb. kopieren Zeitanzeige auf USF wenn ein externes Progr. läut