Access 2013 accde 文件无法导出到 acFormatXLSX

excel

在使用Access 2013创建数据库应用程序时，我们通常会将数据库保存为.accdb文件格式。然而，有时候我们可能需要将数据库导出为其他格式，例如.xlsx格式的excel文件。但是，我们发现在Access 2013中，将.accde文件导出为.xlsx格式的文件时会遇到问题。

问题描述

在Access 2013中，我们可以将数据库保存为.accde文件，这是一种编译后的文件格式，可以用于发布和分发数据库应用程序。然而，当我们尝试将.accde文件导出为.xlsx格式时，我们发现在导出选项中并没有提供acFormatXLSX选项。这意味着我们无法直接将.accde文件导出为.xlsx格式的excel文件。

问题解决

虽然Access 2013没有直接支持将.accde文件导出为.xlsx格式的选项，但我们仍然可以通过其他方式完成这个任务。一种解决方法是使用VBA代码来实现导出功能。下面是一个示例代码，展示了如何使用VBA代码将.accde文件导出为.xlsx格式的excel文件。

VBA
Dim objAccess As Access.Application
Dim objDatabase As DAO.Database
Dim objQueryDef As DAO.QueryDef
Dim strSQL As String
' 创建Access应用程序对象
Set objAccess = New Access.Application
' 打开.accde文件
objAccess.OpenCurrentDatabase "C:\Path\To\Your\Database.accde"
' 获取数据库对象
Set objDatabase = objAccess.CurrentDb
' 创建查询定义对象
Set objQueryDef = objDatabase.CreateQueryDef("TempQuery")
' 编写查询SQL语句
strSQL = "SELECT * FROM YourTable"
' 设置查询SQL语句
objQueryDef.SQL = strSQL
' 将查询结果导出为.xlsx文件
objQueryDef.ReturnsRecords = False
objQueryDef.Execute acExport, "TempQueryExport", "excelWorkbook(*.xlsx)", "C:\Path\To\Your\Exported\File.xlsx"
' 关闭数据库和Access应用程序
objDatabase.Close
objAccess.Quit
' 释放对象
Set objQueryDef = Nothing
Set objDatabase = Nothing
Set objAccess = Nothing

上述示例中，我们首先创建了一个Access应用程序对象，并打开了.accde文件。然后，我们获取了数据库对象，并创建了一个查询定义对象。接下来，我们编写了一个查询SQL语句，并将其设置到查询定义对象中。最后，我们使用Execute方法将查询结果导出为.xlsx文件。

案例代码解析

在这个案例代码中，我们使用了VBA代码来实现将.accde文件导出为.xlsx格式的功能。首先，我们创建了Access应用程序对象，并打开了.accde文件。然后，我们使用数据库对象和查询定义对象来执行查询操作。最后，我们使用Execute方法将查询结果导出为.xlsx文件。

尽管在Access 2013中没有直接支持将.accde文件导出为.xlsx格式的选项，但我们可以通过使用VBA代码来实现这个功能。通过编写适当的代码，我们可以轻松地将.accde文件中的数据导出为.xlsx格式的excel文件。这为我们在使用Access 2013创建数据库应用程序时提供了更多的灵活性和便利性。