Skip to main content
tags editadas
Link
conteúdo editado
Fonte Link

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.

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.

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.

conteúdo editado
Fonte Link

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 = LinkNome 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.

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.

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.

conteúdo editado
Fonte Link
user28595
user28595
Carregando
Reversão para edição 3
Fonte Link
user28595
user28595
Carregando
adicionou 74 caracteres ao conteúdo
Fonte Link
Carregando
Códiog não identado.
Fonte Link
user28595
user28595
Carregando
Fonte Link
Carregando