VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ergebnis einer WebAbfrage in neue Arbeitsmappe

Gruppe

Allgemein

Bereich

Internet

Thema

Ergebnis einer WebAbfrage in neue Arbeitsmappe

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