I am getting the an automation error while invoking the following object
Set IE = CreateObject("InternetExplorer.Application")
The error is showing
Run-time error '-2147467259 (80004005)' Automation error Unspecified error
Can anyone have any idea why this is occuring
'moved code from comments
Sub TableExample()
Dim IE As Object
Dim doc As Object
Dim strURL As String
strURL = Range("B2").Value
Set IE = CreateObject("InternetExplorer.Application")
With IE '
.Visible = True
.navigate Range("B2").Value
Do Until .readyState = 4
DoEvents
Loop
Do While .Busy
DoEvents
Loop
Set doc = IE.document
GetAllTables doc
.Quit
End With
End Sub
I just wasted 4 hours on this, and I'm facepalming at how easy the solution was. Excel creates a new activeX instance every time you run the line:
Set IE = CreateObject("InternetExplorer.Application")
How exactly that works is out of my league, but those references stick around even after you restart excel. After a couple dozen pile up, excel runs out of memory to make more
Restart your computer, (probably an easier way, but that worked for me) and then stick the line
IE.Quit
at the end of your code
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With