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émAlgué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.