Benötige eine Schleife die sich jede Stunde automatisch aktualisiert. Erst wenn ich Zelle a12 oder einem Feld gehe, soll die Schleife beendet werden. Ich möchte eine internetseite immer auf den neusten Stand haben.
Danke im voraus
Michael
Sub Webabfrage_erstellen()
Dim qtQueryTable As QueryTable
Set qtQueryTable = _
ActiveSheet.QueryTables.Add(Connection:= _
_
"URL;http://www.sportego.de/german/sport/olympische_spiele/winter2002/slc2002_19.php"
_
, Destination:=Range("A1"))
'_________________________
Cells.Select
Selection.ClearContents
'_________________________
With qtQueryTable
.Name = "Michael"
.FieldNames = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "8"
.Refresh BackgroundQuery:=False
End With
End Sub
Damit hab ich zwar die aktuelle Seite aber sonst nichts!
Wenn ich das Programm duchlaufen lasse, schreibt er mir nicht die neue Aktualisierung in A1. Liegt es an destination?
Vielen Dank Michael
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen