Skip to main content
9 de 9
tags editadas

Como importar dados da internet para o excel vba

Estou tentando baixar uma tabela do site: "http://www.scoutscartola.com/mercado", e eu já até que "consegui". Mas tem um problema no meu código. Eu quero que o usuário defina o time. Isso é feito pela seleção em uma combo box no site, pois bem, eu até mudo o dado da combo box, porém a tabela não é atualizada.

Abaixo o código para que vocês vejam do que estou falando.

Sub navega_cartola_fc()
 
   Dim ie As Object
   Dim Nome As String
   
   Set ie = New InternetExplorer
   
   Nome = "Botafogo"
 
   ie.navigate "http://www.scoutscartola.com/mercado"
   
   ie.Visible = True
   
   While ie.Busy: Wend

   For Each obj In ie.Document.all.Item("data[filtro_time]")

        If obj.innerText = Nome Then

            obj.Selected = True

        End If

   Next obj
   
   Dim r, c As Integer
   Dim elemCol As Object
  
   Set elemCol = ie.Document.getElementsByTagName("tbody")
   
   Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
   
   For r = 0 To elemCol(0).Rows.Length - 1
   
     For c = 0 To elemCol(0).Rows(r).Cells.Length - 1
     
       ActiveSheet.Cells(r + 1, c + 1) = elemCol(0).Rows(r).Cells(c).innerText
       
     Next c
     
   Next r

Após ativar corretamente esta combo box, o excel deveria mudar também outra combo box na parte inferior do site (uma que diz quantos jogadores deseja filtra, pois essa vem por padrão 25 e eu gostaria de por pelo menos 100, para não correr o risco de ficar jogador de fora da pesquisa)...

Alguém saberia o que fazer neste caso? Pois todos os materiais que vejo, a pessoa muda a combo box assim como fiz, porém tem um botão no próprio site que "atualiza" os dados. Mas neste meu caso não tem botão de atualização, a atualização é feita assim que o time e selecionado na combo box - pelo site - e isso não ocorre quando faço pelo vba.