从Excel通过VBA到Access的SQL查询（特定于日期）(SQL Query from Excel via VBA to Access (date specific))

 出于测试目的，我试图使用vba和SQL（方向：Excel + VBA访问）从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，我不知道为什么。 

For testing purposes, I am trying to get some data from an MS Access table to a recordset in Excel using vba and SQL (direction: Excel + VBA to Access). 
 
The MS Access table is called T_Zeiten and one column is called zeiDat which contains dates (European style like 09.11.2016).
 
What I want to do is opening a connection, look for all entries between two specific dates and write them to a recordset. I already managed to open a connection but struggle with the date stuff (US-style dates). The "From" and "To" dates in Excel are also formatted as "dd.mm.yyyy".
 
This is what I have so far:
 
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)
 
There are 15 entries but the messagebox shows me 213 and I don't know why.

原文：https://stackoverflow.com/questions/40501651