通过VBA从Excel进行SQL查询以访问（特定于日期）

Question

为了进行测试，我试图使用vba和SQL（方向：Excel + VBA到Access）从MS Access表中获取一些数据到Excel中的记录集。

MS Access表称为T_Zeiten ，一列称为zeiDat ，其中包含日期（欧洲风格，如09.11.2016）。

我想做的是打开一个连接，查找两个特定日期之间的所有条目，并将它们写入记录集。 我已经设法打开一个连接，但是在日期方面（美国风格的日期）感到很挣扎。 Excel中的“自”和“至”日期也被格式化为“ dd.mm.yyyy”。

这是我到目前为止的内容：

Dim cn As Object
Dim ZeitenArbeitenGrob As Recordset
Dim strSqlZeitenArbeitenGrob As String
Dim start As String
Dim ende As String
start = Application.WorksheetFunction.Text(Cells(3, 2), "dd/mm/yyyy")
ende = Application.WorksheetFunction.Text(Cells(4, 2), "dd/mm/yyyy")
Dim strConnection As String
celllocation = 6
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Users\mj\Downloads\Neuer Ordner (2)\ZeitErfKonst.mdb"
strSqlZeitenArbeitenGrob = "SELECT COUNT(zeiDat) FROM T_Zeiten WHERE [zeiDat] BETWEEN #" & start & "# And #" & ende & "#"
cn.Open strConnection
Set ZeitenArbeitenGrob = cn.Execute(strSqlZeitenArbeitenGrob)
MsgBox ZeitenArbeitenGrob.Fields(0)

有15个条目，但消息框显示213，但我不知道为什么。

Answer 1

您需要为日期值的字符串表达式使用明确的格式：

start = Application.WorksheetFunction.Text(Cells(3, 2), "yyyy/mm/dd")
ende = Application.WorksheetFunction.Text(Cells(4, 2), "yyyy/mm/dd")