Data from web

[V S S Sarma]

I am new to VBA and trying to use it to get web data of batting, bowling data of players. For batting, the following code has been used and it worked.

Sub webquery()
  startrow = 1
  For i = 1 To 55
    If i = 1 Then
      curl = "URL;http://stats.espncricinfo.com/ci/engine/stats/index.html?class=2;filter=advanced;orderby=start;size=200;spanmax1=30+Jun+2012;spanmin1=01+Jan+2009;spanval1=span;template=results;type=batting;view=innings;wrappertype=print"
    Else
      curl = "URL;http://stats.espncricinfo.com/ci/engine/stats/index.html?class=2;filter=advanced;orderby=start;page=" & i & ";size=200;spanmax1=30+Jun+2012;spanmin1=01+Jan+2009;spanval1=span;template=results;type=batting;view=innings;wrappertype=print"
    End If
    
    With ActiveSheet.QueryTables.Add(Connection:=curl, Destination:=Range("$A$" & startrow))
        .Name = "Webquery" & i
        .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
    startrow = startrow + 202
  Next i
End Sub

_____________________________________________________

Now to obtain bowling data, I used the following code and it failed due to run time error 1004. I want some expert to correct the mistake.

Sub webquery2()
  startrow = 1
  For i = 1 To 55
    If i = 1 Then
      curl = "http://stats.espncricinfo.com/ci/engine/stats/index.html?class=2;filter=advanced;orderby=start;size=200;spanmax1=30+Jun+2012;spanmin1=01+Jan+2009;spanval1=span;template=results;type=bowling;view=innings;wrappertype=print"
    Else
      curl = "http://stats.espncricinfo.com/ci/engine/stats/index.html?class=2;filter=advanced;orderby=start;page=2;size=200;spanmax1=30+Jun+2012;spanmin1=01+Jan+2009;spanval1=span;template=results;type=bowling;view=innings;wrappertype=print"
    End If
    
    With ActiveSheet.QueryTables.Add(Connection:=curl, Destination:=Range("$A$" & startrow))
        .Name = "Webquery2" & i
        .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
    startrow = startrow + 202
  Next i
End Sub

___________________________________________

[penagate]

Thread moved

[V S S Sarma]

You mean the URL ? I have used the latest URL by visiting the web site.

[westconn1]

You mean the URL ?

no, he means this question has been moved to the correct forum

which line gives error?

[V S S Sarma]

I have noted that in the second macro, I have omitted the word URL just before the actual URL. Once this is put in, macro works fine.

Ofcourse, I do have couple of problems still.