Extrair dados da Web

[wellplzz]

Boa noite a todos

Gostaria primeiramente de me apresentar por ser novo no fórum. Me chamo Welington e atualmente atuo no mercado de pesquisa, em algumas situações me deparo com informações que preciso para realizar análises mais detalhadas, é por ter essa necessidade que despertei o interesse em extrair tais dados da web. Todos sabemos o quanto é chato, trabalhoso e improdutivo ficar copiando e colando paginas e mais paginas de dados. Tenho conhecimento básico em vba, sempre busco alternativas nos principais sites e pessoas que compartilham conhecimento do assunto. Vou expor a vocês a minha dificuldade. Estou tentando extrair dados da página a seguir: [ http://www.dataescolabrasil.inep.gov.br ... olaBrasil/ ], porém antes de gerar a tabela com os dados é necessário aplicar alguns filtros, no meu caso são: UF, CIDADE, DEPENDÊNCIA ADMINISTRATIVA (PRIVADA), SITUAÇÃO DE FUNCIONAMENTO (EM ATIVIDADE), MODALIDADE (ENSINO REGULAR).

Código: Selecionar todos

Sub ImportaDADOS()

Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application")
        With objIE
            .Visible = True
            .Navigate "http://www.dataescolabrasil.inep.gov.br/dataEscolaBrasil/"
            Do While .Busy: DoEvents: Loop
            Do While .ReadyState <> 4: DoEvents: Loop

    objIE.document.GetElementById("depAdmPrivada").Item(0).Checked = "True"
    objIE.document.GetElementById("situacaoEmAtividade").Item(0).Checked = "True"
    objIE.document.GetElementById("modalidadeRegular").Item(0).Checked = "True"
    
    objIE.document.GetElementById ("estadoDecorate:estadoSelect")
       
    For i = 1 To UF.Options.Length
        If UF.Options(i).Text = "RS" Then
           UF.selectedindex = i
           Exit For
        End If
    Next i
    
    Set Cidade = objIE.document.GetElementById("municipioDecorate:municipioSelect")
    
    For i = 1 To Cidade.Options.Length
        If Cidade.Options(i).Text = "PORTO ALEGRE" Then
           Cidade.selectedindex = i
           Exit For
        End If
    Next i
        
    objIE.document.GetElementsbyid("pesquisar").Click

End With

Set objIE = Nothing
End Sub

Espero que possam me ajudar, o código acima é somente para aplicar o Filtro da pesquisa dos dados.

Fico no aguardo, atenciosamente
Welington Jr.

[webmaster]

Welington,

Recomendo que comece por aqui:

http://tomasvasquez.com.br/blog/?s=selenium

[wellplzz]

Obrigado pela dica, Administrador.

Porém já tentei através do selenium e apresenta erro duas condições quando colo no vba. Segue abaixo o código:

Código: Selecionar todos

Public Sub Untitled()
  Dim selenium As New SeleniumWrapper.WebDriver
  selenium.Start "firefox", "http://www.dataescolabrasil.inep.gov.br/"

  selenium.Open "/dataEscolaBrasil/"
  selenium.Select "id=estadoDecorate:estadoSelect", "label=RS"
  selenium.Select "id=estadoDecorate:estadoSelect", "label=RS"
  selenium.click "css=option[value=""43"]"
  selenium.Select "id=municipioDecorate:municipioSelect", "label=PORTO ALEGRE"
  selenium.Select "id=municipioDecorate:municipioSelect", "label=PORTO ALEGRE"
  selenium.click "css=option[value=""4314902"]"
  selenium.Click "id=depAdmPrivada"
  selenium.Click "id=depAdmPrivada"
  selenium.Click "id=situacaoEmAtividade"
  selenium.Click "id=situacaoEmAtividade"
  selenium.Click "id=modalidadeRegular"
  selenium.Click "id=modalidadeRegular"
  selenium.Click "id=pesquisar"
  selenium.clickAndWait "id=pesquisar"

  selenium.stop
End Sub

Destaca em vermelho as seguintes linhas de código:
selenium.click "css=option[value=""43"]"
selenium.click "css=option[value=""4314902"]"

No aguardo, atenciosamente
Welington Jr.