Unable to connect IE

[Pranesh]

Hi All,


Im trying to connect a webpage using a code which i got from a website. When I tried with the default URL available in the code it worked perfectly.


I changed the URL to the URL which i need to open and i get the following error "Automation error The object invoked has disconnected from its client"


Can someone help me to fix this please.

Sub Automate_IE_Load_Page()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
 
    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Set IE.Visible = True to make IE visible, or False for IE to run in the background
    IE.Visible = True
   
 
    'Define URL
    'URL = "[URL]https://www.automateexcel.com/excel/[/URL]"
    
    'Navigate to URL
    IE.Navigate URL
    
 
    ' Statusbar let's user know website is loading
    Application.StatusBar = URL & " is loading. Please wait..."
 
    ' Wait while IE loading...
    'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop)
    
    Do While IE.READYSTATE = 4: DoEvents: Loop   'Do While
    Do Until IE.READYSTATE = 4: DoEvents: Loop   'Do Until
 
    'Webpage Loaded
    Application.StatusBar = URL & " Loaded"
 
    'Unload IE
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing
    
End Sub

 

[GirishDhruva]

Hi your URL is commented so you might be getting that error

URL = "https://www.automateexcel.com/excel/"

Without the above line is active , it cannot navigate to any page using IE

 

[Pranesh]

Hi your URL is commented so you might be getting that error

URL = "https://www.automateexcel.com/excel/"

Without the above line is active , it cannot navigate to any page using IE

Hi Girish,

Thanks for your response.

I have made the comment active. But i still get the debug at this line - Do While IE.READYSTATE = 4: DoEvents: Loop