Gruppe
Extern
Problem
Die Tabelle soll auf Schaltflächenklick aktualisiert werden.
StandardModule: Modul1
Sub Aufruf()
WebAufruf ("https://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