Open webpage, copy all and paste in Excel

[Mylarbi]

Hi, I want a macro to open a webpage, select all of the page, copy and paste the raw data in Excel.
I have this using Chrome but it doesn't work. I don't mind changing to MS Edge if necessary. Thanks

Sub Test()
Dim ChromeLocation As String
Dim MyURL As String

ChromeLocation = "C:\Program Files\Google\Chrome\Application\chrome.exe"

MyURL = "https://google.com"

    Shell (ChromeLocation & " -url -newtab " & MyURL)
        Cells.Select  ''''fail from here
    Selection.Copy
Cells("E1").PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
End Sub

 

[Billy Hill]

When you shell to chrome and load the webpage, excel loses focus so there is nothing in excel to copy.

To load web data into a spreadsheet use Data / From Web. You can hit Record Macro before you do this to record the macro, then make changes as necessary.