导出ACCESS表报错

rendiule01

想导出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)

2023-7-7 08:52 上传

点击文件名下载附件

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

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

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

2023-7-7 15:21 上传

点击文件名下载附件