VBA Consulta Internet Site

[genebaldo]

Prezados,

Por gentileza, alguém poderia me ajudar no VBA abaixo?

O código envolve list box para escolher a UF (state) radiobox para marcar sim ou não para contribuinte icms e text box para digitar o código do produto (produto code) clicar no botão avançar e trazer a consulta para outra planilha da mesma pasta de trabalho e de possível fazer condultas em lote.

Quando cheguei nessa parte do código não consiga clicar para avançar IE.Document.all("submit")("Avançar").Click

Até agora conseguir fazer com que a macro marcasse a radiobox com a opção sim para icms, mas não conseguir fazer a selecionar a UF nem clicar no botao avançar. Segue código : 

'Inclui referência ao Microsoft Internet Controls

Sub lReferenciaIE()

    Dim ObRef

    On Error Resume Next

 

    ThisWorkbook.VBProject.References.AddFromGuid "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}", 1, 1

End Sub

Sub lConsultaMDA()

    'Inclui a referência se não houver

    lReferenciaIE

   

    Dim IE                  As InternetExplorer

    Dim ICódigoMDA             As String

    Dim lAddPolygon2         As String

    Dim lUltimaLinhaAtiva   As Long

    Dim lContador           As Long

   

    'Identifica a última célula ativa da lista

   

    lUltimaLinhaAtiva = Worksheets("Coordenadas").Cells(Worksheets("Coordenadas").Rows.Count, 1).End(xlUp).Row

   

    'Cria um objeto Internet Explorer

    Set IE = New InternetExplorer

       

    'Torna o objeto visível

    IE.Visible = True

 

    'Faz um loop por todas as linhas da planilha

    For lContador = 2 To lUltimaLinhaAtiva

        'Navega ao site do MDA

        IE.Navigate "http://portal.mda.gov.br/portal/saf/maisalimentos/"

       

        'Identifica se a página já foi totalmente carregada

        While IE.ReadyState <> READYSTATE_COMPLETE

        Wend

        sng = Timer

        Do While sng + 1 > Timer

        Loop

       

        'Carrega os dados de cidade de origem e destino que serão preenchidos na página

       

        lCódigoMDA = Range("D" & lContador).Value

        lAddPolygo2 = Range("E" & lContador).Value

             

        

        'Identifica se a página já foi totalmente carregada

        While IE.ReadyState <> READYSTATE_COMPLETE

        Wend

        sng = Timer

        Do While sng + 1 > Timer

        Loop

       

        'Seleciona a UF que será preenchidos na página

   

        IE.Document.all("state").Value = "DF" 'Estado

       

        While IE.ReadyState <> READYSTATE_COMPLETE

        Wend

        sng = Timer

        Do While sng + 1 > Timer

        Loop

       

    'Seleciona sim para ICMS

       

        IE.Document.all("taxpayer").Item(0).Checked = True

   

        While IE.ReadyState <> READYSTATE_COMPLETE

        Wend

        sng = Timer

        Do While sng + 3 > Timer

        Loop

       

       'Carrega os dados de cidade de origem e destino na página e submente os dados do formulário

        IE.Document.all("product_code").Value = lCódigoMDA

        IE.Document.all("submit")("Avançar").Click

               

               

        'Identifica se a página já foi totalmente carregada

        While IE.ReadyState <> READYSTATE_COMPLETE

        Wend

      

       

        'For Each i In IE.Document.body.getElementsById("pontos")

            'If InStr(i.innertext, "textarea") > 0 Then

                'For Each l In i.getElementsById("input")

                    'If InStr(l.innertext, lAddPolygon2) Then

                        Range("E" & lContador).Value = l.getElementsByTagName("Add Polygon 2")(1).innertext

                    'End If

                'Next l

            'End If

        'Next i

    Next lContador

   

    MsgBox "Concluído!"

End Sub

 

 Agradeço desde já!

 

 

Editado Agosto 11, 2017 por genebaldo
Agradecimentos