在Excel VBA中编写带字符串和日期的查询语句

Sub RunQuery()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，这里使用Excel的本地数据源
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    
    ' 打开连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 构建查询语句
    strSQL = "SELECT * FROM [Sheet1$] WHERE Name = 'John' AND DateOfBirth >= #01/01/1990#"
    
    ' 执行查询
    rs.Open strSQL, conn
    
    ' 处理查询结果
    If Not rs.EOF Then
        Do Until rs.EOF
            ' 处理每一行数据
            Debug.Print rs.Fields("Name").Value, rs.Fields("DateOfBirth").Value
            rs.MoveNext
        Loop
    Else
        Debug.Print "No records found."
    End If
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub