1

Estou adaptando código VBA para raspagem, mas estou recebendo essa mensagem quando chega a etapa de enviar o dado para o formulário de Login.

Erro em tempo de Execução 438: O Objeto não aceita propriedade ou Métodos

Public Sub VBA_extrair()
     Dim wb              As Workbook:        Set wb = ThisWorkbook
     Dim wsParam         As Worksheet:       Set wsParam = wb.Worksheets("Param")
     Dim IE              As Object:          Set IE = New InternetExplorer.Application
     Dim stUsuario       As String:          stUsuario = wsParam.Range("A2")
     Dim stSenha         As String:          stSenha = wsParam.Range("B2")
     With IE
          .Visible = True
          .navigate "https://www.canalcliente.com.br/portal/canal_cliente/index.htm"
          While IE.Busy Or IE.readyState <> 4: Wend
               With .document
                    .getElementById("txtUsuario").Value = username
                    .getElementById("txtSenha").Value = password
                    .getElementById("btnEntrar").Click
               End With
          While IE.Busy Or IE.readyState <> 4: Wend
     End With
     Set IE = Nothing
End Sub
3
  • O erro acontece exatamente em qual linha? Commented 21/03/2021 às 3:25
  • OK! Eu aprendo rápido. Commented 21/03/2021 às 16:35
  • O erro aparecia a partir da .getElementById("txtUsuario").Value = username, mas a solução do Augusto Vasques resolveu. Commented 21/03/2021 às 16:36

1 Resposta 1

1

Na página que você deseja acessar existe um iframe com o id "iframe1"

iframe

No seu código onde esta acessando o objeto "Document" deve considerar que existe um iframe, os elementos para login estão no iframe.

Vai precisar acessar o document principal > acessar o iframe > acessar o document do iframe, desta forma:

With .Document.frames.Item("iframe1").Document
1

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .