Skip to main content
1 de 9

Como importar dados da internet para o excel vba

Boa noite a todos.

Sou novo aqui e novo em 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 = Link 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.