Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ergebnis einer WebAbfrage in neue Arbeitsmappe

Gruppe

Internet

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