Create URL from different variables

**Geeboy30** · 11-12-2011, 12:51 PM

Hello
If anyone could help me with this I would be eternally in their debt. My code is very basic

Sub Macro1()

    Sheets.Add After:=Sheets(Sheets.Count)
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.thedogs.co.uk/resultsMeeting.aspx?racedate=11/11/2011%2000:00:00&track=Swindon" _
        , Destination:=Range("$A$1"))
        .Name = "00&track=Swindon"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

The URL in question here is
http://www.thedogs.co.uk/resultsMeet...&track=Swindon

This is made up of 4 parts
1. http://www.thedogs.co.uk/resultsMeeting.aspx?racedate= (constant)
2. A date in the format dd/mm/yyyy (in this case 11/11/2011) (variable)
3. %2000:00:00&track= (constant)
4. The name of a race track (in this case Swindon) (variable)

What I would like to happen is that when I run the macro an input box appears asking for the date and the race track name. It then takes these 2 variables and builds the complete URL as per the format above and then loads the data from the page onto the new sheet.

Any ideas?