Как построить макрос Excel с диапазоном дат

Question

Я создал страницу От даты и до даты в Excel (Sheet1). Под ячейкой A3, я hv от даты :: 01-01-2010 и ячейки A4 на дату :: 31-08-2010.

Как связать диапазон дат с макросом ниже: -

Sub Sales()

Dim StrSQl As String

Con = "Provider=IBMDA400;Data Source=XXX.XXX.XXX.XXX;User Id=yyyy;Password=zzzz"

Set Db = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
Db.connectionSTring = Con
Db.Open
StrSQl = "select myuc, sum (myac) as Amount from myabc.myqwerty where mydt >= 20100101 and mydt <= 20100831 group by (mycl)"
rs.Open StrSQl, Db, 3, 3
Sheet1.Cells(10, 1).CopyFromRecordset rs
rs.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Просьба принять к сведению формат даты между выражением Excel и SQL. Оба имеют разные форматы.

Спасибо.

Answer 1

Возможно:

FromDate=Format(Sheet1.Range("A3"),"yyyymmdd")
ToDate=Format(Sheet1.Range("A4"),"yyyymmdd")
StrSQl = "select myuc, sum (myac) as Amount from myabc.myqwerty where mydt >= "
    & FromDate & " and mydt <= " & ToDate & " group by (mycl)"