Boa noite!!
Desculpa eu não olhei atentamente mas tente a adaptar...

Sub ConsultaNET()
    Dim i As Integer
    Dim firstRow As Integer
    Dim lastRow As Integer
    Dim nextRow As Integer
    Dim URLstart As String
    Dim URLend As String
    Dim shStats As Worksheet
    Dim shQuery As Worksheet
    Dim rgQuery As Range
    Dim found As Range
    Dim TimeOutWebQuery
    Dim TimeOutTime
    Dim objIE As Object
    Application.ScreenUpdating = False
    URLstart = "http://stats.espncricinfo.com/ci/engine/stats/index.html?class=2;filter=advanced;orderby=start;page="
    URLend = ";size=200;spanmax1=12+Jul+2012;spanmin1=13+Jul+2009;spanval1=span;template=results;type=batting;view=innings;wrappertype=print"
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Stats").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Stats"
    Set shStats = Sheets("Stats")
    For i = 1 To 47
        Sheets.Add after:=Sheets(Sheets.Count)
        Set shQuery = ActiveSheet
        Set objIE = CreateObject("InternetExplorer.Application")
        With objIE
            .Visible = False
            .Navigate CStr(URLstart & i & URLend)
        End With
        TimeOutWebQuery = 10
        TimeOutTime = DateAdd("s", TimeOutWebQuery, Now)
        Do Until objIE.ReadyState = 4
            DoEvents
            If Now > TimeOutTime Then
                objIE.stop
                GoTo ErrorTimeOut
            End If
        Loop
        objIE.ExecWB 17, 2
        objIE.ExecWB 12, 2
        shQuery.Range("A1").Select
        shQuery.PasteSpecial NoHTMLFormatting:=True
        objIE.Quit
        Set objIE = Nothing
        Set found = shQuery.Columns(1).Find("Player", , , xlWhole)
        If Not found Is Nothing Then
            firstRow = found.Row
            If i > 1 Then firstRow = firstRow + 1
        Else
            GoTo FormatError
        End If
        Set found = shQuery.Columns(1).Find("Page ", found, , xlPart)
        If Not found Is Nothing Then
            lastRow = found.Row - 1
        Else
            GoTo FormatError
        End If
        Set rgQuery = shQuery.Rows(firstRow & ":" & lastRow)
        nextRow = shStats.Cells(Rows.Count, "A").End(xlUp).Row
        If nextRow > 1 Then nextRow = nextRow + 1
        rgQuery.Copy shStats.Cells(nextRow, 1)
        Application.DisplayAlerts = False
        shQuery.Delete
        Application.DisplayAlerts = True
    Next i
    shStats.Columns.AutoFit
    MsgBox "Consulta completa"
    Exit Sub
FormatError:
    MsgBox "Erro no Formato"
    Exit Sub
ErrorTimeOut:
    objIE.Quit
    Set objIE = Nothing
    MsgBox "Erro no Site"
End Sub

Private Const URL_TEMPLATE As String = "URL;http://www.moneycontrol.com/stocks/hist_stock_result.php?sc_id=RI&pno={0}&hdn=daily&fdt=2000-01-01&todt=2013-03-01"
Private Const NUMBER_OF_PAGES As Byte = 7

Sub test()
    Dim page As Byte
    Dim queryTableObject As QueryTable
    Dim url As String

    For page = 1 To NUMBER_OF_PAGES
        url = VBA.Strings.Replace(URL_TEMPLATE, "{0}", page)
        Set queryTableObject = ActiveSheet.QueryTables.Add(Connection:=url, Destination:=ThisWorkbook.Worksheets.Add.[a1])
        queryTableObject.WebSelectionType = xlSpecifiedTables
        queryTableObject.WebTables = "3"
        queryTableObject.Refresh
    Next page

End Sub

Att

Obrigado pela resposta amigo.
Só tenho um problema, não percebo nada de VBA, será que poderia adaptar essas linhas de comando à página Web que eu pretendo ?
Desculpa o abuso.
Abraço,
RUi

Bom dia Amigo Alexandre,

Antes demais obrigado pela código VBA que enviou

Tentei utilizar os dados, mudando a página Web, mas os meus conhecimentos de VBA são no entanto muito limitados, consegui no máximo a importação de uma pista relativo a um dia.
Estou muito longe de ser um expert com Você.

Sem querer abusar será que poderia dar-me uma mãozinha nesta importação ?
Se eu o fizer manualmente vai demorar uma eternidade.

Envio em anexo uns JPG nos quais vou tentar explicar o que pretendo isto se me puder ajudar é claro:

a) Página inicial:
A página inicial apresenta os resultados das corridas por dias, no dia de hoje a base de dados do site vai do dia 03/03/2013 até ao dia 03/04/2013, ou seja precisamente um mês.
Na imagem em concreto é apresentada a listagem dos estádios onde aconteceram os eventos.
Como pode verificar os estádios repetem-se na listagem (devido às categorias de corrida), no entanto basta importar uma unica vez em "FULL MEETING", para se obter os dados de todas as corridas desse local;
O meu problema começa logo aqui ir estádio a estádio e efetuar a importação pelos processos tradicionais.

b) Páginas de importação:
Os dados que pretendo obter estão sinalizados a amarelo, onde no caso em concreto deveriam ser apresentados no excel de acordo com a estrutura da folha excel em anexo.

Se puder ajudar ficava extremamente agradecido.

Vou publicar no fórum para enviar os anexos

Um abraço,
Rui

Boa noite!!

Rui, eu sinto muito mas mesmo sem tempo, eu não sei como ajuda-lo, aguar de mais um tempo para ver se mais alguém possa ajuda-lo.

Att