Can no longer Web Query this table.

[j4gg3r]

Hi,
Untill recently the main players stats table on this page was able to be imported into Excel using a Web Query.
http://superrugbydreamteam.sportal.com.au/?p=other_teams&tid=2

Now it seems to be hiden from Excel and can't even be imported by querying the whole page, let alone the individual HTMLTable 3.

This is was what I had that used to work up untill Virtualsports changed things up.
<?xml:namespace prefix = x /><x:QueryTable>
<x:RefreshOnFileOpen></x:RefreshOnFileOpen>
<x:OverwriteCells></x:OverwriteCells>
<x:Name>

    <x:QueryTable>
     <x:RefreshOnFileOpen/>
     <x:OverwriteCells/>
     <x:Name>?p=other_teams&tid=2</x:Name>
     <x:AutoFormatFont/>
     <x:AutoFormatPattern/>
     <x:QuerySource>
      <x:QueryType>Web</x:QueryType>
      <x:EnableRedirections/>
      <x:RefreshedInXl9/>
      <x:URLString
       HRef="http://superrugbydreamteam.sportal.com.au/?p=other_teams&tid=2"/>
      <x:HTMLTables>
       <x:Number>3</x:Number>
      </x:HTMLTables>
      <x:VersionLastEdit>2</x:VersionLastEdit>
      <x:VersionLastRefresh>2</x:VersionLastRefresh>
     </x:QuerySource>
    </x:QueryTable>

</x:Name><x:Name></x:Name>
<x:QuerySource><x:URLString< p></x:QuerySource>
</x:QueryTable>
<x:URLString< p><x:URLString< p>
Is there still a way to query this table?

Using Excel 2003
</x:URLString<>
</x:URLString<>
</x:URLString<>

 

[j4gg3r]

No takers on this?

What about if I post the VBA macro for you to play with.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 23/02/2011 by j4gg3r
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://superrugbydreamteam.sportal.com.au/?p=other_teams&tid=2", _
Destination:=Range("A1"))
.Name = "?p=other_teams&tid=2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebTables = "3"
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub