Import Web Data problem

[leeksleeks]

Hi,

I am trying to import these tennis stats into a worksheet but there are no yellow arrows to select the data I want to import. Does anyone know if it is possible to import data from the following webpage?

http://www.tennisbetsite.com/index....n=A&id1=5992&id2=1075&tid=11743&type=gameinfo

Cheers

 

[Domenic]

When I query the website, I do get the yellow arrows. When I import the first table while recording the macro, I get the following...

[COLOR=darkblue]Sub[/COLOR] Macro3()
[COLOR=green]'[/COLOR]
' Macro3 Macro
[COLOR=green]'[/COLOR]

'
    [COLOR=darkblue]With[/COLOR] ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tennisbetsite.com/index.php?option=com_mvx_trdb&Itemid=29&association=A&id1=5992&id2=1075&tid=11743&type=gameinfo" _
        , Destination:=Range("$A$1"))
        .Name = _
        "index.php?option=com_mvx_trdb&Itemid=29&association=A&id1=5992&id2=1075&tid=11743&type=gameinfo"
        .FieldNames = [COLOR=darkblue]True[/COLOR]
        .RowNumbers = [COLOR=darkblue]False[/COLOR]
        .FillAdjacentFormulas = [COLOR=darkblue]False[/COLOR]
        .PreserveFormatting = [COLOR=darkblue]True[/COLOR]
        .RefreshOnFileOpen = [COLOR=darkblue]False[/COLOR]
        .BackgroundQuery = [COLOR=darkblue]True[/COLOR]
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = [COLOR=darkblue]False[/COLOR]
        .SaveData = [COLOR=darkblue]True[/COLOR]
        .AdjustColumnWidth = [COLOR=darkblue]True[/COLOR]
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "5"
        .WebPreFormattedTextToColumns = [COLOR=darkblue]True[/COLOR]
        .WebConsecutiveDelimitersAsOne = [COLOR=darkblue]True[/COLOR]
        .WebSingleBlockTextImport = [COLOR=darkblue]False[/COLOR]
        .WebDisableDateRecognition = [COLOR=darkblue]False[/COLOR]
        .WebDisableRedirections = [COLOR=darkblue]False[/COLOR]
        .Refresh BackgroundQuery:=[COLOR=darkblue]False[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

To import the second table, replace...

.WebTables = "5"

with

.WebTables = "6"

To import both the first and second table together...

.WebTables = "5,6"

To import the third table (live scores)...

.WebTables = "8"

Although, for some reason, the data is not actually imported.

 

[leeksleeks]

Hi Domenic,

That works perfectly. Thank you very much. It has stumped me for a long time. For some reason I dont get the yellow ticks so by using the 5,6 method that has done the trick. Thanks again!