基于筛选的Access查询自动生成Excel表格

使用VBA编写代码，实现基于访问查询的筛选条件，自动在Excel中生成相应的数据表格。

示例代码如下：

Sub AccessToExcel()
    
    '1. 打开Access数据库
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strDBPath As String
    strDBPath = "C:\mydb.accdb" '替换成你自己的Access文件路径
    Set db = OpenDatabase(strDBPath)

    '2. 构造查询和筛选条件
    strSQL = "SELECT * FROM myTable WHERE myField = 'myValue'" '替换成你自己的查询和筛选条件

    '3. 执行查询，并将结果输出到新的Excel工作簿
    Set rs = db.OpenRecordset(strSQL)
    Dim wb As Workbook
    Set wb = Workbooks.Add
    With wb.Sheets(1)
        '输出表头
        For i = 0 To rs.Fields.Count - 1
            .Cells(1, i + 1) = rs.Fields(i).Name
        Next i
        '输出数据
        .Range("A2").CopyFromRecordset rs
    End With
    
    '4. 关闭Access和Excel
    rs.Close
    db.Close
    wb.SaveAs "C:\myReport.xlsx" '替换成你自己的Excel文件路径
    wb.Close
    
    MsgBox "已生成Excel报表！"
    
End Sub