Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Clicar no Botão Html
Clicar no Botão Html
Prezados, bom dia!
Postei uma necessidade de clicar em um botão, mas acredito que não foi clara pelo fato de não postei o código todo!
preciso clicar em um botão, porém não estou conseguindo esta retornando o erro 91.
Abaixo segue o código completo.
Private Sub Populate_Click()
Dim Dc_Usuario As String
Dim Dc_Senha As String
Dim Dc_URL As String
Dim ObjIe As New InternetExplorer 'Referencie "Microsoft Internet Controls"
ObjIe.Visible = True
ObjIe.Navigate "http://intranet"
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=10"
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=807"
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=330"
Do While ObjIe.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=50077"
Application.Wait Now + TimeValue("00:00:01")
ObjIe.Navigate "http://conexaocomercial.mapfre.com.br/d ... ento=56942"
ObjIe.Visible = True
A = 2
ObjIe.Visible = True
With ObjIe
Do While ObjIe.Busy
Application.Wait DateAdd("s", 2, Now)
Loop
.Document.getElementByID("ctl00_txtCPF").Focus
.Document.getElementByID("ctl00_txtCPF").Value = cpf
.Document.getElementByID("ctl00_ImageButton12").Click
Do While ObjIe.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
.Document.getElementByID("ctl00_Conteudo_gvPropostas_ctl02_btnDetalhes").Click
Do While ObjIe.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Application.Wait Now + TimeValue("00:00:02")
Do While ObjIe.Busy
Application.Wait DateAdd("s", 2, Now)
Loop
ObjIe.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").Click
Vejam que parei justamente onde o erro esta ocorrendo:
ObjIe.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").Click
Já tentei:
.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").Click
.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").OnClick
.Document.getElementByname("DetalhesProposta1$lnkbtnDocumentoEletronico").Click
Abaixo segue a linha onde esta essa variável:
<input name="DetalhesProposta1$lnkbtnDocumentoEletronico" id="DetalhesProposta1_lnkbtnDocumentoEletronico" style="border-right-width: 0px; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px;" onclick="window.open('/EntradaPropostas/ImprimirProposta.aspx?NumeroNSU=10407846860628243','', 'resizable=no, menubar=no,scrollbars=yes,width=100,height=100');" type="image" src="../Imagens/print.gif" complete="complete"/>
Se puderem ajudar desde já agradeço.
Postei uma necessidade de clicar em um botão, mas acredito que não foi clara pelo fato de não postei o código todo!
preciso clicar em um botão, porém não estou conseguindo esta retornando o erro 91.
Abaixo segue o código completo.
Private Sub Populate_Click()
Dim Dc_Usuario As String
Dim Dc_Senha As String
Dim Dc_URL As String
Dim ObjIe As New InternetExplorer 'Referencie "Microsoft Internet Controls"
ObjIe.Visible = True
ObjIe.Navigate "http://intranet"
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=10"
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=807"
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=330"
Do While ObjIe.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
ObjIe.Navigate "http://intranet/iContent/area.jsp?idArea=50077"
Application.Wait Now + TimeValue("00:00:01")
ObjIe.Navigate "http://conexaocomercial.mapfre.com.br/d ... ento=56942"
ObjIe.Visible = True
A = 2
ObjIe.Visible = True
With ObjIe
Do While ObjIe.Busy
Application.Wait DateAdd("s", 2, Now)
Loop
.Document.getElementByID("ctl00_txtCPF").Focus
.Document.getElementByID("ctl00_txtCPF").Value = cpf
.Document.getElementByID("ctl00_ImageButton12").Click
Do While ObjIe.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
.Document.getElementByID("ctl00_Conteudo_gvPropostas_ctl02_btnDetalhes").Click
Do While ObjIe.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Application.Wait Now + TimeValue("00:00:02")
Do While ObjIe.Busy
Application.Wait DateAdd("s", 2, Now)
Loop
ObjIe.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").Click
Vejam que parei justamente onde o erro esta ocorrendo:
ObjIe.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").Click
Já tentei:
.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").Click
.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico").OnClick
.Document.getElementByname("DetalhesProposta1$lnkbtnDocumentoEletronico").Click
Abaixo segue a linha onde esta essa variável:
<input name="DetalhesProposta1$lnkbtnDocumentoEletronico" id="DetalhesProposta1_lnkbtnDocumentoEletronico" style="border-right-width: 0px; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px;" onclick="window.open('/EntradaPropostas/ImprimirProposta.aspx?NumeroNSU=10407846860628243','', 'resizable=no, menubar=no,scrollbars=yes,width=100,height=100');" type="image" src="../Imagens/print.gif" complete="complete"/>
Se puderem ajudar desde já agradeço.
Re: Clicar no Botão Html
magushi,
Chegou a verificar que se a linha:
Retorna algo? Pode ser que o botão esteja debaixo de algum iframe.
Abraços
Chegou a verificar que se a linha:
Código: Selecionar todos
.Document.getElementByID("DetalhesProposta1_lnkbtnDocumentoEletronico")
Abraços
Re: Clicar no Botão Html
Boa tarde, meu amigo Tomas
Pode ser um frame!
Como inserir/clicar o botão então?
Abraço,
Pode ser um frame!
Como inserir/clicar o botão então?
Abraço,
Re: Clicar no Botão Html
magushi,
Só vendo o código da página. Já falamos bastante sobre esse assunto aqui no fórum, por isso, veja se um destes tópicos ajuda em algo:
search.php?keywords=internet+explorer+frame
Abraços
Só vendo o código da página. Já falamos bastante sobre esse assunto aqui no fórum, por isso, veja se um destes tópicos ajuda em algo:
search.php?keywords=internet+explorer+frame
Abraços
Re: Clicar no Botão Html
Prezados, bom dia!
Infelizmente ainda não consegui clicar na imagem.
se alguém puder ajudar, agradeço.
Infelizmente ainda não consegui clicar na imagem.
se alguém puder ajudar, agradeço.