Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loading Web Page Issue
I am loading a web page using the following piece of code. I'm sure I got it
from someone somewhere. Sub LoadWebPage(myIE As SHDocVw.InternetExplorer, _ myURL As String) If myIE Is Nothing Then Set myIE = GetNewIE End If myIE.Visible = True With myIE 'open page .Navigate myURL 'wait until IE finished loading the page Do While .ReadyState < READYSTATE_COMPLETE Application.Wait Now + TimeValue("0:00:01") Loop End With myIE.Quit End Sub Function GetNewIE() As SHDocVw.InternetExplorer 'create new IE instance Set GetNewIE = New SHDocVw.InternetExplorer 'start with a blank page GetNewIE.Navigate2 "about:Blank" GetNewIE.Visible = True 'GetNewIE.FullScreen = True 'So we don't copy the header End Function If the URL is http:// ... it will quit, but if the URL is something like "T:", it won't quit, but also doesn't have an error. Can anyone give me some idea how to address this? Thanks, Barb Reinhardt |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loading Web Page Issue
Just discovered something
With myIE 'open page .Navigate myURL 'If myURL = "T:", a new IE Window is opened. 'wait until IE finished loading the page Debug.Print myIE.LocationURL Do While .ReadyState < READYSTATE_COMPLETE Application.Wait Now + TimeValue("0:00:01") Loop End With myIE.Quit -- HTH, Barb Reinhardt "Barb Reinhardt" wrote: I am loading a web page using the following piece of code. I'm sure I got it from someone somewhere. Sub LoadWebPage(myIE As SHDocVw.InternetExplorer, _ myURL As String) If myIE Is Nothing Then Set myIE = GetNewIE End If myIE.Visible = True With myIE 'open page .Navigate myURL 'wait until IE finished loading the page Do While .ReadyState < READYSTATE_COMPLETE Application.Wait Now + TimeValue("0:00:01") Loop End With myIE.Quit End Sub Function GetNewIE() As SHDocVw.InternetExplorer 'create new IE instance Set GetNewIE = New SHDocVw.InternetExplorer 'start with a blank page GetNewIE.Navigate2 "about:Blank" GetNewIE.Visible = True 'GetNewIE.FullScreen = True 'So we don't copy the header End Function If the URL is http:// ... it will quit, but if the URL is something like "T:", it won't quit, but also doesn't have an error. Can anyone give me some idea how to address this? Thanks, Barb Reinhardt |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Loading Web Page Issue
I figured it out. Thanks anyway.
Barb Reinhardt "Barb Reinhardt" wrote: Just discovered something With myIE 'open page .Navigate myURL 'If myURL = "T:", a new IE Window is opened. 'wait until IE finished loading the page Debug.Print myIE.LocationURL Do While .ReadyState < READYSTATE_COMPLETE Application.Wait Now + TimeValue("0:00:01") Loop End With myIE.Quit -- HTH, Barb Reinhardt "Barb Reinhardt" wrote: I am loading a web page using the following piece of code. I'm sure I got it from someone somewhere. Sub LoadWebPage(myIE As SHDocVw.InternetExplorer, _ myURL As String) If myIE Is Nothing Then Set myIE = GetNewIE End If myIE.Visible = True With myIE 'open page .Navigate myURL 'wait until IE finished loading the page Do While .ReadyState < READYSTATE_COMPLETE Application.Wait Now + TimeValue("0:00:01") Loop End With myIE.Quit End Sub Function GetNewIE() As SHDocVw.InternetExplorer 'create new IE instance Set GetNewIE = New SHDocVw.InternetExplorer 'start with a blank page GetNewIE.Navigate2 "about:Blank" GetNewIE.Visible = True 'GetNewIE.FullScreen = True 'So we don't copy the header End Function If the URL is http:// ... it will quit, but if the URL is something like "T:", it won't quit, but also doesn't have an error. Can anyone give me some idea how to address this? Thanks, Barb Reinhardt |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom Toolbar Loading issue | Excel Programming | |||
Loading a Different Page | Excel Discussion (Misc queries) | |||
addin loading issue | Excel Discussion (Misc queries) | |||
Loading a web page on a web browser control | Excel Programming | |||
Web page loading | Excel Programming |