Data loading on wrong Excel sheet.

[basil3legs]

I am running a VBA function that repeatedly opens webpages and then extracts data from them. I have a seperate sheet setup for the webpages to load into but every so often they open on another random sheet writing over it's contents. The code I am using to open the pages is:

        Sheets("Webpages").Select
        Range("A1").Select
        With Selection.QueryTable
            .Connection = "URL;[URL unfurl="true"]http://www.*******.com/page.asp?ssss="[/URL] & Worksheets("AnotherPage").Cells(UrlLine, 1).Value
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingAll
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = True
            .Refresh BackgroundQuery:=False
        End With

Am I actually doing anything wrong or is Excel just getting it wrong every so often?

 

[basil3legs]

p.s. It's Excel 2000

 

[xlbo]

Instead of:
Sheets("Webpages").Select
Range("A1").Select
With Selection.QueryTable

try:

with Sheets("Webpages").QueryTables(1)


Rgds, Geoff

Three things are certain. Death, taxes and lost data. DPlank is to blame

Please read FAQ222-2244 before you ask a question

 

[basil3legs]

Cheers Geoff,

I like to see where it is up to so have changed it to use both mentions of "Webpages" which is a bit of overkill but will hopefully also reduce the chance of it messing up.