JordsdoExcel
New Member
- Joined
- Sep 22, 2021
- Messages
- 15
- Office Version
- 2019
- Platform
- Windows
I'm tryng to run this code:
Sub InternetExplorer()
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLTabelas As MSHTML.IHTMLElementCollection
Dim HTMLTabela As MSHTML.IHTMLElement
IE.Visible = True
IE.navigate "G1 - O portal de notícias da Globo"
Do Until IE.readyState <> READYSTATE_COMPLETE
Loop
Set HTMLDoc = IE.document
End Sub
But I get this error "Run-time error '-2147467259 (80004005)'"
Someone can help me?
Sub InternetExplorer()
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLTabelas As MSHTML.IHTMLElementCollection
Dim HTMLTabela As MSHTML.IHTMLElement
IE.Visible = True
IE.navigate "G1 - O portal de notícias da Globo"
Do Until IE.readyState <> READYSTATE_COMPLETE
Loop
Set HTMLDoc = IE.document
End Sub
But I get this error "Run-time error '-2147467259 (80004005)'"
Someone can help me?