Copy and paste

[Ks1102]

Hi, all

can some one help as the code which i has Google search to have copy from wed then past on excel sheet3 A1 with HTML format, but it prompt error ??

anyone who can help me change,
excel 2003
IE8 version

Sub Test()
    Dim IE As Object
    
    Sheets("Sheet3").Select
    Cells.Select
    Selection.Delete ' erase previous data
    Range("A1").Select
    
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate "https://samples" '
        Do Until .readyState <> 4: DoEvents: Loop
    End With

    IE.ExecWB 17, 0 '// SelectAll
    IE.ExecWB 17, 0 '// Copy selection
    ActiveSheet.PasteSpecial Format:=HTML, link:=False, DisplayAsIcon:=False
    Range("A1").Select
    IE.Quit
    IE.Quit ' just to make sure
End Sub

 

[sijpie]

On which line do you get the error?

have you got a real URL to copy from that we can test this on?