Gute Gesundheit und viel Glück in 2010 an Alle,
ich wollte wissen, ob VBA eine dynamische Webseite importieren kann. Die Struktur der Webseite ist immer gleich aufgebaut. Es handelt sich um die Seiten vom Sportwettanbieter "Betfair" http://soccer.betfair.com/
. Als Beispiel-Seite habe ich das Spiel " Osasuna vs. Real Madrid" am Sonntag um 2100 Uhr ausgewählt. Zu finden unter dem folgenden Link.
http://uk.site.sports.betfair.com/betting/LoadRunnerInfoAction.do?marketId=101032076&selectionId=2426&timeZone=CET&locale=de®ion=GBR&brand=betfair¤cy=EUR
Der Link ist folglich nur bis zum kommenden Sonntag bis ca. 2300 Uhr gültig. Danach gebe ich einen neuen Link.
Diese Webseite gibt die Quoten und das Wettvolumen an. Um zur Hauptseite des Spiels zu gelangen muss man sich durchhangeln zu den Sonntag In-Play Spielen. Aber denke nicht, dass das nötig sein wird. Es dreht sich alles um die Abfrage der Quoten und Wettvolumen. Das sind nur 3 Informationen.
Habe eine Makro Aufzeichnung gemacht in der leider die Webseite statisch ist. Wie bekomme ich es hin, dass er mir das aktive Webfenster herausliest? Um das Fenster aktiv zu halten müsste ich das Makro mit einer Tastenkombination aktivieren (das ist mit der Makroaufzeichnung kein Problem), oder?!
Hier die Aufzeichnung:
Sub Test_1_BetAbfrage()
' Test_1_BetAbfrage Makro
With ActiveSheet.QueryTables.Add(Connection:= _
"http://uk.site.sports.betfair.com/betting/LoadRunnerInfoAction.do?marketId=101032076& _
selectionId=2426&timeZone=CET&locale=de®ion=GBR&brand=betfair¤cy=EUR" _
, Destination:=Range("$A$1"))
.Name = _
"LoadRunnerInfoAction.do?marketId=101032076&selectionId=2426&timeZone=CET&locale=de& _
region=GBR&brand=betfair¤cy=EUR"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Gruß Ferenz