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
See Question&Answers more detail:os