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.
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 não funciona
Set objButton = ie.Document.getelementbyid("form:j_idt296") 'não 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
Pergunta
viitorp
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.
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 não funciona
Set objButton = ie.Document.getelementbyid("form:j_idt296") 'não 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
E anexado o código do site:
Se puderem me ajudar, agradeço.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.