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 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…