Notifications
Clear all

Macro para fazer consultas no site do BACEN

2 Posts
1 Usuários
0 Reactions
877 Visualizações
(@vigue)
Posts: 0
New Member
Topic starter
 

Pessoal, boa tarde.

Sou muito novato em VBA e estou precisando de uma ajuda. Estava começando a trabalhar em uma macro para buscar alguns índices financeiros pela internet e resolvi iniciar pelo valor do dólar no site do BACEN. Acontece que não consigo fazer a macro clicar no botão de pesquisar de jeito nenhum. Segue abaixo o código:

Sub Consulta()


Dim ieApp As Object


    Set ieApp = CreateObject("InternetExplorer.Application")
    
    With ieApp
        .Visible = True
        .Navigate "https://ptax.bcb.gov.br/ptax_internet/consultaBoletim.do?method=exibeFormularioConsultaBoletim"
        
        Do Until .ReadyState = 4
            DoEvents
        Loop


    End With



End Sub

Cacei pela internet diversos códigos para clicar em botões, mas não consegui adaptar nenhum que me atendesse. Poderiam me ajudar?

 
Postado : 18/07/2018 11:06 am
(@vigue)
Posts: 0
New Member
Topic starter
 

Pessoal, já consegui resolver meu problema. Consegui adaptar um código para a forma que eu preciso, conforme abaixo:

With ieApp.document
    
        Set elems = .getElementsByTagName("input")
        For Each e In elems
    
            If (e.getAttribute("value") = "Pesquisar") Then
                e.Click
                Exit For
            End If
    
        Next e
    
    End With
 
Postado : 18/07/2018 2:47 pm