MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    Compartilhe
    avatar
    Curty123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 02/01/2019

    ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    Mensagem  Curty123 em 9/1/2019, 10:24

    Prezados, bom dia!

    Sou novo em programação e estou tentando acessar um site e preencher algumas informações, porém me deparei com esse erro. Consigo entrar no site, digitar login e senha, clicar para logar, porém preciso preencher outros campos, porém está dando esse erro.

    Segue codigo:
    Sub Comando2_Click()
    Dim Nomeusuario As String
    Dim Senhausuario As String
    Dim Ambienteusuario As String
    Dim Dc_URL As String
    Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"
    Dim numrdo As String


    'Criar um objeto internet explorer
    Set objIE = New InternetExplorer

    'Abre o IE
    objIE.Visible = True

    'Solicitando login e senha
    Nomeusuario = "login"
    Senhausuario = "senha"
    Ambienteusuario = ""
    numrdo = "6509" ' CAMPO QUE QUERO PREENCHER
    Dc_URL = "SITE"

    'Desajando visivel e abrindo o site
    objIE.Visible = True
    objIE.Navigate2 Dc_URL

    ' Loop para carregar a pagina toda
    Do Until objIE.ReadyState = READYSTATE_COMPLETE
    DoEvents
    Loop

    ' Entrando com login,senha e apertando para logar
    objIE.Document.all.Item("chave").innerText = Nomeusuario
    objIE.Document.all.Item("password").innerText = Senhausuario
    objIE.Document.all.Item("ambiente").selectedIndex = "2"
    objIE.Document.Forms.Item("form-login").submit
    SendKeys "{ENTER}", True
    objIE.Document.all.Item("rdo").innerText = numrdo ' ERRO APARECER QUANDO ADICIONO ESSA LINHA
    objIE.Document.Forms.Item("form-control").submit

    While objIE.Busy
    DoEvents
    Wend

    Set objIE = Nothing 'Finalizando objeto

    End Sub
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    Mensagem  IvanJr. em 10/1/2019, 01:07

    tente

    Sub Comando2_Click()
    Dim Nomeusuario As String
    Dim Senhausuario As String
    Dim Ambienteusuario As String
    Dim Dc_URL As String
    Dim objIE As New InternetExplorer ' Referencie "Microsoft internet controla"
    Dim numrdo As String


    'Criar um objeto internet explorer
    Set objIE = New InternetExplorer

    'Abre o IE
    objIE.Visible = True

    'Solicitando login e senha
    Nomeusuario = "login"
    Senhausuario = "senha"
    Ambienteusuario = ""
    numrdo = "6509" ' CAMPO QUE QUERO PREENCHER
    Dc_URL = "SITE"

    'Desajando visivel e abrindo o site
    objIE.Visible = True
    objIE.Navigate2 Dc_URL

    ' Loop para carregar a pagina toda
    Do Until objIE.ReadyState = READYSTATE_COMPLETE
    DoEvents
    Loop

    ' Entrando com login,senha e apertando para logar
    objIE.Document.all.Item("chave").innerText = Nomeusuario
    objIE.Document.all.Item("password").innerText = Senhausuario
    objIE.Document.all.Item("ambiente").selectedIndex = "2"
    objIE.Document.Forms.Item("form-login").submit
    SendKeys "{ENTER}", True

    ' Loop para carregar a pagina toda
    Do Until objIE.ReadyState = READYSTATE_COMPLETE
    DoEvents
    Loop


    objIE.Document.all.Item("rdo").innerText = numrdo ' ERRO APARECER QUANDO ADICIONO ESSA LINHA
    objIE.Document.Forms.Item("form-control").submit

    While objIE.Busy
    DoEvents
    Wend

    Set objIE = Nothing 'Finalizando objeto

    End Sub


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    avatar
    Curty123
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 02/01/2019

    Re: ERRO 91 "A variavel do objeto ou a variavel do bloco 'with' não foi definida

    Mensagem  Curty123 em 10/1/2019, 10:44

    Bom dia Amigo.


    Não funcionou, continua dando esse erro.

      Data/hora atual: 25/3/2019, 04:15