none
Clicar em um Dropbox via IE RRS feed

  • Pergunta

  • 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 nao consigo fazer o codigo clicar em um dropbox para dar uncheck em alguns filtros que ficam automaticamente selecionados.

    Alguem consegue me ajudar?

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

     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
    

    Sou novo no mundo do VBA, então se alguém puder me ajudar, agradeço.

    sexta-feira, 17 de agosto de 2018 13:10