Como interacturar con ventana de mensaje de internet explorer
Publicado por Pablo (1 intervención) el 09/08/2021 16:04:42
Buenas estimados!
les comento estoy realizando automatizando de recargas de celulares con excel y vb el problema que estoy teniendo es que cuando en la página web hace click en el boton de recargar(ya con el numero y el el precio de la recarga previamente ya cargado) en la pagina web sale una venta preguntado siquiere hacer la recarga a ese numero con ese salgo, y el codifo en bv cuando hace click sale un error 459 "el objeto o la clase no admite conjunto de eventos" , si alguien me puede dar una mano estaria muy agradecido
este es el codigo que estoy usando
y este el mensaje que sale cuando lo ejecuto
les comento estoy realizando automatizando de recargas de celulares con excel y vb el problema que estoy teniendo es que cuando en la página web hace click en el boton de recargar(ya con el numero y el el precio de la recarga previamente ya cargado) en la pagina web sale una venta preguntado siquiere hacer la recarga a ese numero con ese salgo, y el codifo en bv cuando hace click sale un error 459 "el objeto o la clase no admite conjunto de eventos" , si alguien me puede dar una mano estaria muy agradecido
este es el codigo que estoy usando
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Comando0_Click()
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "aqui la web"
Do
DoEvents
Loop Until ie.readyState = 4 'verifico si cargo correctamente la página
Set HTMLdoc = ie.document
Set inputEle = HTMLdoc.getElementById("identificacion")
inputEle.Value = Hoja1.Cells(1, 1).Text
Set inputEle = HTMLdoc.getElementById("importe")
inputEle.Value = Hoja1.Cells(1, 2).Text
Set inputEle = HTMLdoc.getElementById("btnConfirmar")
inputEle.Focus
inputEle.Click
ie.Visible = True
End Sub
y este el mensaje que sale cuando lo ejecuto
Valora esta pregunta
0