ralf_guv Postado Outubro 10, 2014 Denunciar Share Postado Outubro 10, 2014 Pessoal pode me ajudar por favor Estou tentando fazer um projeto muito difícil e me enrolei logo no começo, mais vamos lá né, estou começando em VBA por isso a dificuldade. segue o Codigo Sub AcessaPagina() 'Criando variacel para o internet explore Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True 'acessando o site desejado IE.Navigate ("http://200.155.13.164/ppec/login.php?entrypoint_uuid=6bc58374-c734-54a4-99f8-401f8c820873") Do If IE.ReadyState = 4 Then IE.Visible = True Exit Do Else DoEvents End If Loop 'Ao Abrir a pagina insere o login e senha e clica no botão entrar IE.Document.Forms(0).All("login").Value = Range("b1") IE.Document.Forms(0).All("password_sem_md5").Value = Range("b2") IE.Document.All("submit").Click 'entra no calendario IE.Document.All("SHOW=mes").Click IE.Document.All("?cmd=listar&SHOW=mes").Click IE.Document.Forms(0).submit End Sub a parte que esta em vermelho e na onde esta dando o erro Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Agostinho Paula Filho Postado Outubro 17, 2014 Denunciar Share Postado Outubro 17, 2014 você adcionou o internet explorer em referencias? vá em ferramentas > referencias procure o internet explorer e marque-o, acho que resolve.. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
ralf_guv
Pessoal pode me ajudar por favor
Estou tentando fazer um projeto muito difícil e me enrolei logo no começo, mais vamos lá né, estou começando em VBA por isso a dificuldade.
segue o Codigo
Link para o comentário
Compartilhar em outros sites
1 resposta 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.