Microsoft Excel

Herbers Excel/VBA-Archiv

aktive Webseite importieren | Herbers Excel-Forum


Betrifft: aktive Webseite importieren von: Ferenz
Geschrieben am: 02.01.2010 11:51:36

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
Freue mich über jedes konstruktive Feedback.
Gruß Ferenz

  

Betrifft: Edit: aktive Webseite importieren von: Ferenz
Geschrieben am: 02.01.2010 12:05:03

Ups, Sorry.
Das erste Makro funzt nicht.

Dieser hier funktioniert:

Sub Test_2_BetAbfrage()
'
' Test_2_BetAbfrage Makro
'
    With ActiveSheet.QueryTables.Add(Connection:= _
"URL;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

Sorry nochmal
Gruß Ferenz


Beiträge aus den Excel-Beispielen zum Thema "aktive Webseite importieren"