Thema: Ergebnis einer WebAbfrage in neue Arbeitsmappe

Home

Gruppe

Allgemein

Problem

Zu dem in Zelle B1 genannten Abfragestring soll das Ergebnis in eine neue Arbeitsmappe importiert werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub ImportHTML()
   Dim sPath As String, sHTML As String
   Application.ScreenUpdating = False
   sHTML = Range("B1").Value
   Workbooks.Add
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;" & sHTML, Destination:=Range("A1"))
      .Name = "Waehrungen"
      If Left(Application.Version, 1) <> "8" Then
         .WebSelectionType = xlEntirePage
         .WebFormatting = True
      End If
      .Refresh BackgroundQuery:=False
    End With
    Application.ScreenUpdating = True
End Sub

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

Text aus Zelle in Internet Seite	internet explorer per handle in Objekt umwandeln
InternetExplorer Object	Einfügen aus Internet-Seite
Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
Absturz Excel bei Internet-Absturz	Internetdienst mit Makro ausführen
Download aus dem Internet Teil2	Einfügen aus Internet 10²
allgemein	Datei aus dem Internet runterladen
XLB Auswirkung auf Internet Explorer	Excel standard Symbolleiste im Internet Explorer
internet frage zum RFC	Datei im Internet bearbeiten
Internetseite Markieren u. in Tabellenb. kopieren	allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage	Internetseite aufrufen
Internetseite öffnen + schließen	Formelassistent allgemein
Internet Browser_Veraluf löschen	allgemeingültig Blattschutz aufheben
Daten Export aus dem internet	Email & Internet Adresse
Filesuche auf Internet-Server	allgemeine Frage...
Solver - allgemein	Solver - allgemein
VBA Download aus Internet / Prüfung ob vorhanden	Exeldatei im Internet
Internetseite starten	Excel - Internet
Internet Files auslesen	Frage zum Forum allgemein
Allgemeine Frage - Finanz-Planungsmodell	hile zum internetexplorer.application objekt
Pivoteingrenzung Formel verallgemeinern	Internet Explorer starten und Cursor positioneren
Wetter aus dem Internet	Internet Explorer geöffnet abprüfen ?
makro verallgemeinern	Existiert Internetseite
Office allgemein, bitte hilfe	Internetseiten in Exel kopieren
allgemein	Automatisches Update übers Internet
internetseite einbetten	Internetformular aus Excel heraus ausfüllen