Web query help

Hi Matt,

Quote:

Originally Posted by priya123

Hi Friends,

I need to write a web query which is .iqy file where in the date is taken dynamically. I wish to give the date in cell a1. The code should pick up the date from the a1 cell fills that in the date part and open the website automatically.

Rollup.html?siteId=390&maxDate=04/03/2007
&intervalType=Daily&useLiveData=0&runReport=1&
textMode=1&scheduleId=

This site wont work for you since its a intranet site. Any ideas how to make the code in the .iqy file pick up the date from cell a1 in the excel sheet.

Please help

My new code

Quote:

Sub macro_er()

Dim vFF As Long, tStr As String, vInFile As String, vOutFile As String, tstr1 As String
vInFile = "C:\Documents and Settings\priyas\My Documents\Query\123.iqy"
vOutFile = "C:\Documents and Settings\priyas\My Documents\Query\1231.iqy"
vFF = FreeFile
Open vInFile For Binary As #vFF
tStr = Space$(LOF(vFF))
tstr1 = Space$(LOF(vFF))
Get #vFF, , tStr
' Get #vFF, , tstr1
Close #vFF
tStr = replace(tStr, "MYMINDATE", Format(Range("A3").Value, "mm/dd/yyyy"))
'tStr = replace(tStr, "MYMIDDATE", Format(Range("A3").Value, "mm/dd/yyyy"))
' tStr = replace(tStr, "MYMAXDATE", Format(Range("b3").Value, "mm/dd/yyyy"))
Open vOutFile For Output As #vFF
Print #vFF, tStr;
Close #vFF
End Sub

I am getting an error saying invalid property assignment or wrong number of arguments. Why is this so any insight on this ?