Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Internet-Tabelle aktualisieren

Gruppe

Internet

Problem

Die Tabelle soll auf Schaltflächenklick aktualisiert werden.

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

StandardModule: Modul1

Sub Aufruf()
    WebAufruf ("http://www.herber.de/cgi-bin/ul_hits.pl")
End Sub

Function WebAufruf(wName$)
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & wName, _
        Destination:=Range("A1"))
        .FieldNames = False
        .RefreshStyle = xlInsertDeleteCells
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .RefreshOnFileOpen = False
        .HasAutoFormat = True
        .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .SavePassword = False
        .SaveData = True
    End With
End Function

Sub Aktualisieren()
   Worksheets("Daten").Range("A1").QueryTable.Refresh _
      BackgroundQuery:=False
End Sub