Multiple Web Query choice

[jj72uk]

At the moment one what I am building excel sheets is by getting external data using a web query.

Our sales results are posted on our intranet site using SAS code and I currently use a web query to extract this.

Within our intranet site it will show month to date results, this page location is unchnaging.

And it will also show results on a daily basis, with pages for Monday, Tuesday etc etc showing the previous Monday, tueaday etc etc

Using a web query for the month to date results is fine as this is un changing.

But for the daily ones these pages obviously change. The guys who run the SAS code are kind enough to keep the URL the same, so I am able to create multiple web queries and save them.

What I am wondering is if there is a way to choose which web query runs on a page... so if i have 7 queries on a page to pull up the 7 days in the week is there a way to say. I only want you to refresh query number 2?

[jj72uk]

No worries guys, I worked it all out.

Just to explain in case anyone else comes up to the problem these are the steps I took.

I saved each web query indervidually.

I then created a command button with this code for each day:

Sub SaturdayRefresh()
    Sheets("Daily 121").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;file location here", Destination:=Range( _
        "A1"))
        .Name = "[b] file name here[b]"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
    End With
End Sub