Página 1 de 1

Clicar em um Dropbox via IE

Enviado: 17 Ago 2018 às 10:43
por vitorpereira33
Pessoal, bom dia.

Estou tentando baixar algumas bases que utilizo diariamente, usando um codigo VBA para puxar da Internet Explorer.

Consigo fazer ele logar e chegar até a pagina onde realizo o download, mas não consigo fazer o codigo clicar em um dropbox para dar uncheck em alguns filtros que ficam automaticamente selecionados.

alguém consegue me ajudar?



Segue o código que estou utilizando e a imagem do inspecionamento do elemento no chrome:

Código: Selecionar todos
Sub OKButton_Click()
 Plan3.Activate
    Dim ProductionAddress As String
    ProductionAddress = "https://gdbmw.portaltecsinapse.com.br/p/crm/exportacoes/"

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
    .Silent = True
    .Visible = True
    .navigate ProductionAddress


While ie.ReadyState <> 4 Or ie.Busy: DoEvents: Wend

        .Document.getelementbyid("username").Focus
        .Document.getelementbyid("username").Value = "vitor.goncalves@bmw.com.br"  'seu usuario no site
        .Document.getelementbyid("password").Focus
        .Document.getelementbyid("password").Value = "Vitorp12"  'sua senha no site
        .Document.All("kc-login").Click     'id do botao para acessar o site


While ie.ReadyState <> 4 Or ie.Busy: DoEvents: Wend

    ie.Document.All.Item("form:j_idt296")(2).Checked = True 'parte que nao funciona
    

Set objButton = ie.Document.getelementbyid("form:j_idt296") 'nao funciona
    objButton.Focus


    ie.Document.getelementbyid("form:j_idt318").Value = "10/8/2018" 'colocando a data inicial
    
    ie.Document.getelementbyid("form:j_idt320").Value = "12/8/2018" 'colocando data final

    




End With

End Sub