manipulating address in web query

[inwalkedbud]

i am trying to get the web address to allow for an updated date in the "15-AUG-2008" section towards the end, so when tomorrow comes i dont have to change it manually. im sure there will have to be some kind of concatenation, however i cant figure what to put in the middle. thanks.

Sub URL_Get_Query()
   With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://www2.standardandpoors.com/servlet/Satellite?pagename=spcom/page/download&sectorid=%20%3E%20'00'&itemname=%3E=%20'1'&dt=15-AUG-2008&indexcode=500", _
         Destination:=Range("a1"))

      .BackgroundQuery = True
      .TablesOnlyFromHTML = True
      .Refresh BackgroundQuery:=False
      .SaveData = True
   End With
End Sub

[Tom Schreiner]

Try this...

Sub URL_Get_Query()
    Dim URLDatePart As String
        
    'if single digit dates contain a leading zero such as 01-AUG-2008
    'then use "DD-MMM-YYYY" as your format string
    URLDatePart = UCase(Format(Date, "D-MMM-YYYY"))
    
    With ActiveSheet.QueryTables.Add(Connection:= _
       "URL;http://www2.standardandpoors.com/servlet/Satellite?pagename=spcom/page/download&sectorid=%20%3E%20'00'&itemname=%3E=%20'1'&dt=" & URLDatePart & "&indexcode=500", _
          Destination:=Range("a1"))
    
       .BackgroundQuery = True
       .TablesOnlyFromHTML = True
       .Refresh BackgroundQuery:=False
       .SaveData = True
    End With
End Sub

[inwalkedbud]

thanks tom.