Excel ADODB查询日期

时间:2015-07-19 14:50:23

标签: excel-vba vba excel

我正在尝试查询日期的Excel列(例如,这是7月,然后只从列中检索7月日期)我试图声明当前月份和上个月但仍无法检索数据。我试图将查询表格式化为(m / d / yyyy)多种格式以匹配查询但仍然没有运气。请在此处获得的任何帮助都是以下代码

Dim cnStr As String
Dim rs As ADODB.Recordset
Dim query As String
Dim var1
Dim var2
Dim fileName As String
Dim CurrMonth As String, PrevMonth As String
CurrMonth = Format$(Date, "m/d/yyyy")
PrevMonth = Format$(Date - Day(Date), "m/d/yyyy")
fileName = "**********\DB1.xlsm"

    cnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & fileName & ";" & _
           "Extended Properties=Excel 12.0"

query = "SELECT * FROM [test1$A:B] WHERE [test]>'" & PrevMonth & "' AND [test]<'" & CurrMonth & "'"

1 个答案:

答案 0 :(得分:2)

尝试使用条件运算符。并使用英镑符号。

BETWEEN #7/1/2008# And #7/31/2008#

query = "SELECT * FROM [test1$A:B] WHERE [test] BETWEEN #" & PrevMonth & "# And #" & CurrMonth & "#"