Loading macro, Internet Explorer Vba
Tengo este codigo para abrir varias paginas de internet explorer, en ocasiones aperturo hasta 5 o 6 ventanas nuevas y tengo que espera a que cada pagina se cargue totalmente para realizar la siguiente accion.
Sub test() Dim ie As InternetExplorer Dim ie2 As InternetExplorer Dim ie3 As InternetExplorer Set ie = New InternetExplorer ie.Navigate "www.google.com.gt" Do DoEvents Loop Until ie.ReadyState = READYSTATE_COMPLETE Set ie2 = New InternetExplorer ie2.Navigate "www.yahoo.com" Do DoEvents Loop Until ie2.ReadyState = READYSTATE_COMPLETE Set ie3 = New InternetExplorer ie3.Navigate "www.yahoo.com" Do DoEvents Loop Until ie3.ReadyState = READYSTATE_COMPLETE ie2.Quit ie3.Quit End Sub
Lo que quiero es encontrar alguna forma de crear una funcion que se llame loading y que realice dicha accion para que cada vez que la necesite en el codigo anterior solamente llame la funcion y no tenga que escribar todo el codigo completo.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo las macros
Sub AbrirInternet()
'Por.Dante Amor
Loading "www.google.com.gt", False
Loading "www.yahoo.com", True
Loading "www.yahoo.com", True
End Sub
'
Sub Loading(pagina, salir)
'Por.Dante Amor
Dim ie As Object
'
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate pagina
Do While ie.Busy
DoEvents
Loop
ie.Visible = True
'
If salir Then ie.Quit
Set ie = Nothing
End Sub
Tienes pendiente valorar esta respuesta. g r a cias
