Run-time (8150002e) Automation Error

[ercedwards]

I have the following code that has worked fine for years on my Windows 8 PC but crashes with the title error on my Windows 10 PC.

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]

Sub Download()
    Dim IE     As Object
    Dim html   As Object
    Dim objElementTR As Object
    Dim objTR  As Object
    Dim objElementsTD As Object
    Dim objTD  As Object
    Dim result As String
    Dim intRow As Long
    Dim intCol As Long
    Set IE = CreateObject("InternetExplorer.Application")                     [COLOR=#ff0000][B]<======= IT CRASHES HERE[/B][/COLOR]

[/FONT]
Has anyone been able to figure out how to solve this issue. I've tried everything I could find on this on the internet with no luck.

I'm slowly losing my mind over this (or maybe I already have)

Thanks

 

[Yongle]

This works for me (Excel 365 & Windows10)

Sub ie()
    Dim ie
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "https://www.google.co.uk/"
End Sub

 

[ercedwards]

This works for me (Excel 365 & Windows10)

Sub ie()
    Dim ie
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "https://www.google.co.uk/"
End Sub

Unfortunately though NOT for me. Same error as before.

Thanks for trying.

 

[Yongle]

If you have Chrome installed
- amend path to match yours

Sub chrom()
  Dim chromePath As String
  chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
  Shell (chromePath & " -url https://www.google.co.uk/")
End Sub

 

[ercedwards]

If you have Chrome installed
- amend path to match yours

Sub chrom()
  Dim chromePath As String
  chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
  Shell (chromePath & " -url https://www.google.co.uk/")
End Sub

Thanks,

That works great to open Chrome and I can also use the same code to open IExplorer.

Now the challenge is, how do I copy the web page contents to Excel?

 

[Yongle]

New question.....so start new thread for best chance of good answer