在哪里使用Excel VBA

Question

如何在我的where子句中使用两个日期。编译器不断给我提供有关语法的错误。我需要什么，在这句法改变用我的where子句

Sub Get_Data() 
Dim cn As Object 
Dim rs As Object 
Dim strFile As String 
Dim strCon As String 
Dim strSQL, strInput As String 

strFile = "A:\Test\de.accdb" 

strCon = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & strFile 

Set cn = CreateObject("ADODB.Connection") 
cn.Open strCon 

d1 = InputBox("Input Start Date") 
d2 = InputBox("Input End Date") 

strSQL = "SELECT NAME, Location From db 1WHERE orderdate between ""'d1'"" AND ""'d2'"" Order By Location ASC;" 

cn.Execute strSQL 

cn.Close 
Set cn = Nothing 

End Sub 

Answer 1

看起来好像你忘了在查询中FROM功能，你需要分离出D1和D2与ambersands，试试这个：

strSQL = "SELECT NAME, Location FROM [name of table] WHERE orderdate between '" & d1 & "' AND '" & d2 & "'" 

Answer 2

strSQL = "SELECT NAME, Location From db WHERE orderdate between '" & d1 & "' AND '" & d2 & "' Order By Location ASC;"