access导出到excel vba

以下为将 Access 数据库中的数据导出到 Excel 的 VBA 代码示例：

Sub ExportDataToExcel()
    Dim objAccess As Object
    Dim objExcel As Object
    Dim db As Object
    Dim rs As Object
    Dim strSQL As String
    Dim strFilePath As String
    
    ' 设置要导出的 Access 数据库文件路径
    strFilePath = "C:\Users\username\Documents\example.accdb"
    
    ' 创建 Access 和 Excel 对象
    Set objAccess = CreateObject("Access.Application")
    Set objExcel = CreateObject("Excel.Application")
    
    ' 打开 Access 数据库文件
    objAccess.OpenCurrentDatabase strFilePath
    
    ' 执行要导出的 SQL 查询
    strSQL = "SELECT * FROM myTable"
    Set db = objAccess.CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    
    ' 将查询结果导出到 Excel
    With objExcel
        .Workbooks.Add
        .Sheets(1).Select
        .Range("A1").CopyFromRecordset rs
        .Visible = True
    End With
    
    ' 关闭对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    objAccess.CloseCurrentDatabase
    objExcel.Quit
    Set objAccess = Nothing
    Set objExcel = Nothing
End Sub

在上述代码中，需要将 `C:\Users\username\Documents\example.accdb` 替换为你的 Access 数据库文件路径，并将 `SELECT * FROM myTable` 中的 `myTable` 替换为你要导出的数据表名或查询名。此外，你还可以根据需求修改导出的 Excel 文件名和路径，以及导出的数据范围和格式。