Bom dia..... Necessito de uma ajuda vossa para importar uma tabela da net. O código que se segue abre o IE, faz o login na minha conta, navega até à pagina que quero mas ao importar a tabela não apresenta os valores que quero.....

Ou seja, este site dá-nos informação sobre as odds dos jogos de futebol e eu queria importar essas odds. Eu necessito de fazer o login no site porque me dá a informação que quero. Dá-me as odds de uma determinada casa de apostas. Não fazendo o login, as odds apresentadas são as odds mais altas de todas as casas de apostas. Eu apenas quero as odds da casa de apostas que está determinada na minha conta..... Confuso??!!

Vou dar um exemplo:

Sem Login -> Chelsea - 1,50
Empate - 4,00
Arsenal - 6,00

Com Login -> Chelsea - 1,45
Empate - 3,85
Arsenal - 5,50

O código que tenho é este:

Sub main()

   Dim ie As Object
   
   Set ie = CreateObject("InternetExplorer.Application")
   ie.navigate "http://www.oddstorm.com/login.php"

   'wait until the page loads
   Do While ie.ReadyState <> 4
      DoEvents
   Loop
   ie.Visible = True
   
   With ie.document
      'input username="username"
      .GetElementByID("login-username").Value = "***"
      
       'input name="password"
       .GetElementByID("login-password").Value = "*****"
       
       'input class="gaia le button" name="signIn" id="signIn" value="Sign in" type="submit"
       .getElementsByTagName("button")(0).Click
       
       ie.navigate "http://www.oddstorm.com/odds/?lid=11"
       
        With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.oddstorm.com/odds/?lid=11", Destination:=Range("$C$3"))
        .Name = "?lid=11"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With
                     
   End With
   
     
End Sub

Este código não me dá erro nenhum. O código corre bem. Abre o IE, faz login, navega até à página e importa a tabela. Apenas não devolve os valores que necessito.

Se alguém poder dar uma ajudinha, agradecia imenso. Um abaço.....