导出ACCESS表报错

rendiule01 · 发表于 2023-7-7 08:54

想导出tblNumber表 ID=2的数据，报错如图片所示

'语句

Private Sub btnQuery_Click()
'DoCmd.OutputTo acOutputTable, "tblNumber", acFormatXLSX, "D:\1.xlsx", True '导出表
DoCmd.OutputTo acOutputQuery, "select * from tblNumber where ID=2", acFormatXLSX, , True '导出表条件为ID=2的数据
End Sub

VBA查询或SQL语句导出数据.zip (36.04 KB, 下载次数: 1)

在网上找到导出语句也是报错

Private Sub btnExport_Click()
' 使用DoCmd.TransferSpreadsheet函数导出
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "CG_MF", "D:\文件名.xlsx", True, , "cus_no='1101001'"

' 或者使用DoCmd.OutputTo函数导出
'DoCmd.OutputTo acOutputTable, "CG_MF", acFormatXLSX, "D:\文件名.xlsx", True, , , acExportQualityScreen, , "cus_no='1101001'"
End Sub

ly · 发表于 2023-7-7 15:21

VBA查询或SQL语句导出数据.rar (36.15 KB, 下载次数: 5)

		自动登录	找回密码
密码			免费注册

[求助] 导出ACCESS表报错