chaniging a date in a url!!

[gunny1979]

Hi Guys,

I have set-up a Macro that goes to a website to get a competitors rat
see below:

Sub getit()

myurl
"http://www.all-hotels.com/xbook/ser...ts1=2&number_of_children1=0&number_of_beds1=1"

Wit
ActiveWorkbook.Worksheets("Bush").QueryTables.Add(Connection:="URL;"
myurl, Destination:=Worksheets("Bush").Cells(1, 1))

.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True

End With

End Sub

As you can see by the bold type the URL contains a date!
Is ther any way I can amend this if a enter a date into a cell i
excel.

Your Help would be gratefully appreciated.

Regards

Kevin Gun

 

[Don Guillett]

something like
myrul="somehting" & range("a1") & "restof url"

 

[Guest]

myurl =
"http://www.all-hotels.com/xbook/ser...ts1=2&number_of_children1=0&number_of_beds1=1"
MyUrl = Replace(MyURL,"XXXX",format(Range("A1"),"dd-mmm-yyyy"))
MyUrl = Replace(MyURL,"YYYY",format(Range("A2"),"dd-mmm-yyyy"))
MyUrl = Replace(MyURL,"ZZZZ",format(Range("A1"),"mmm-yyyy"))
MyUrl = Replace(MyURL,"XYZ", some formula that figures out arrival days)
MyUrl = Replace(MyURL,"STU", some formula that figures out nights)

And so forth

 

[gunny1979]

Hi I tried both of these and it does not like it, its there any othe
way I can try?

 

[Don Guillett]

There is no reason why it should not work if you did it properly. Feel free
to send me a copy of your workbook and I will have a look.