Web select all wont select...

[ashleyw6]

Hi all,

I have a code that logs into a web site and navigates to a certain page, the code works great up to this point, i want the code to select all and copy to be pasted into a worksheet later. The problem is that the code wont select all the webpage unless i click the page as im stepping through the code... I think that the webpage needs to be selected somehow???

Below is a snippet of the code that selects and copies...

IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

Sheets("Data").Select
Range("A1").Select
ActiveSheet.PasteSpecial Format:="html", link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
Application.CalculateFull

Thanks for the help,

Ash

 

[John_w]

It's difficult to say why without knowing the URL of the web page, or seeing your code from the IE.Navigate line, but "unless i click the page as im stepping through the code" indicates that the page isn't ready when you run the code without the debugger. Therefore try putting:

        While IE.busy Or IE.ReadyState <> 4
            DoEvents
        Wend

between the Navigate and the ExecWB lines.