Guru do Excel e Power BI

Enviado: **09 Jun 2020 às 15:27**

Prezados, boa tarde.

Estou trabalhando com o seguinte código, para acessar um site, logar, fazer um download e deslogar, porém não estou conseguindo clicar o nem no botão kkkkk.

No código abaixo, eu já consigo, preencher o login, selecionar a opcao cnpj, preencher o cnpj e clicar no botao para entrar, porém a próxima página, solicita a senha, num campo de texto, e não estou conseguindo trabalhar com essa nova página, nem consigo selecionar o campo, acredito que possa ser algum erro no código, na forma como estou clicando no botão para entrar.

desde já muito obrigado!

Código: Selecionar todos

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
   sURL = "https://agenciaweb.celesc.com.br/AgenciaWeb/autenticar/loginCliente.do"
Set oBrowser = New InternetExplorer
   oBrowser.Silent = True
   oBrowser.timeout = 60
   oBrowser.navigate sURL
   oBrowser.Visible = True

Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.document
  HTMLDoc.all.sqUnidadeConsumidora.Value = "UNIDADE CONSUMIDORA"
     HTMLDoc.getElementById("CPJ").Click
        HTMLDoc.all.numeroDocumentoCNPJ.Value = "123456789"
    
For Each oHTML_Element In HTMLDoc.getElementsByTagName("inputx")
    If oHTML_Element.Type = "submitx" Then oHTML_Element.Click
    
Set HTMLDoc = oBrowser.document
  HTMLDoc.all.senha.Value = "SENHA"

Next
Err_Clear:

Resume Next
End Sub

P.S, é possível fazer abrir com outro navegador, além do internet explorer?

Guru do Excel e Power BI

Site da WEB com VBA

Site da WEB com VBA