Excel Excel VBA login IE

[Luc Rosenhaim]

Bom Dia.

Estou tentando criar uma macro pra acessar o e-CAC e carregar no formulário do site os campos se CPF (coluna C) e código (coluna F) de acesso que estão na linha ativa, mas

estou recebendo a mensagem de erro: "Erro em tempo de execução '1004'. Erro de definição de aplicativo ou de definição de objeto." 
Abaixo o código utilizado. Grato pela ajuda.

 

Sub eCAC()

    Dim IE                 As InternetExplorer
    Dim CPF                As String
    Dim Codigo             As String
    Dim Senha              As String
    Dim linha              As Long

Set IE = New InternetExplorer 'Cria um objeto Internet Explorer
 
IE.Visible = True 'Torna o objeto visível
    
IE.navigate "https://cav.receita.fazenda.gov.br/autenticacao/login/index" 'Abre o site do e-CAC
    
While IE.readyState <> READYSTATE_COMPLETE 'Identifica se a página já foi totalmente carregada
Wend
    
 'Carrega os dados do CPF e Código que serão preenchidos na página
        linha = ActiveCell.Row
        CPF = Range("c", linha).Value
        Codigo = Range("f", linha).Value
        Senha = "Lra301210"
    
 'Carrega os dados de cidade e UF na página e submente os dados do formulário
        IE.document.all("Ni").Value = CPF
        IE.document.all("CodigoAcesso").Value = Codigo
        IE.document.all("Senha").Value = Senha
       
        'Identifica se a página já foi totalmente carregada
        While IE.readyState <> READYSTATE_COMPLETE
        Wend
    
    Do While sng + 3 > Timer
        Loop
End Sub

 

[Basole]

@Luc Rosenhaim corrija as linhas abaixo:

 

CPF = Range("c" & linha).Value

Codigo = Range("f" & linha).Value

IE.document.all("NI").Value = CPF

 

[Luc Rosenhaim]

@Basole

 

Bah ! Mestre! Muito obrigado !!!

adicionado 2 minutos depois

@Basole @Basole

 

Bah ! Muito obrigado !!! Fazes aplicações VBA sob encomenda ? ([email protected])

[Luc Rosenhaim]

Agora não consigo automatizar o botão "Avançar " do site.

Estou usando essa linha de comando:

IE.Document.GetElementByTagName("submit").Click 

 

[Basole]

Experimente:

IE.Document.forms(0).submit

 

[Luc Rosenhaim]

Em 01/12/2019 às 12:09, Basole disse:

Experimente:

IE.Document.forms(0).submit

Funcionou, obrigado !