ACCESS 如何用 Docmd.OutputTo 将查询导出为 Excel 97-2003 格式？

最新推荐文章于 2022-07-29 15:45:26 发布
最新推荐文章于 2022-07-29 15:45:26 发布
阅读量5k 收藏
点赞数
分类专栏： 特有函数以及自定义函数、过程 文章标签： excel access 编程 测试
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/changechange/article/details/495896
版权

如何用 Docmd.OutputTo 将查询导出为 Excel 97-2003 格式？

 

如何用 Docmd.OutputTo 将查询导出为 Excel 97-2003 格式？
我用了 acFormatXLS 常数，导出的却是 Excel 95 的格式，如何才能变成 Excel 97-2003的格式？


针对上述问题，我做了以下试验

DoCmd.OutputTo acOutputTable, "表1", acFormatXLS
'能运行，但是是 Excel 5-7 格式，95格式
DoCmd.OutputTo acOutputTable, "表1", "Microsoft Excel (*.xls)"
'能运行，但是是 Excel 5-7 格式，95格式
DoCmd.OutputTo acOutputTable, "表1", "MicrosoftExcel"
'能运行，但是是 Excel 5-7 格式，95格式
DoCmd.OutputTo acOutputTable, "表1", "MicrosoftExcel哼哼哈咿"
'能运行，但是是 Excel 5-7 格式，95格式
'昏过去，这也能认啊？！！！！！！
DoCmd.OutputTo acOutputTable, "表1", "Excel"
'不能运行，提示错误


测试的结果令人费解。

最终我想到了 Access 2003 中有另一方法导出查询为 Excel 格式文件，就是 TransferSpreadsheet 方法，其中 SpreadsheetType  参数可选 AcSpreadSheetType ，97-2003格式的常数为 acSpreadsheetTypeExcel9

Debug.Print acSpreadsheetTypeExcel9

该常数的输出值为 8，于是直接套用

DoCmd.OutputTo acOutputTable, "表1", 8
'能运行，成功，是 Excel 97-2003 格式
DoCmd.OutputTo acOutputTable, "表1", acSpreadsheetTypeExcel9
'能运行，成功，是 Excel 97-2003 格式


其结果绝对是让人昏厥！

access911.net 原创文章，作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接

 

changechange
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
基于Access数据库开发商场管理系统.doc
02-27
基于Access数据库开发... [销售员工id] '打开"商品资料查询"窗体 docmd.openform "商品资料查询", acnormal, , , , acwindownormal end if '使"计算金额"按钮处于可用状态 me![计算金额].enabled = true exit_选择商
ACCESS里导出子窗体内容到指定excel里
wenjianzhiqin的博客
09-05 7097
1.作用   有时候为了导出数据到指定的excel里，excel格式为固定，直接导出表格式往往不能满足条件，结合前辈代码略作修改实现必要功能。 2.代码实现 Private Sub Command38_Click() On Error GoTo ErrorHandler     Dim strTemplate As String   '模板文件路径名     Dim strPa
access多数据录入
10-01
ACCESS多条数据录入，可以方便用户Private Sub BtOK_Click() Dim strSQL As String If (Me.CbSize.Value <> "<全部尺寸>") Then strSQL = "INSERT INTO 服装表(服装名称,款式,尺寸) VALUES('" & Me.TxName.Value ...
通过三层结构模型的方式来实现ACCESS的数据库的访问
03-17
大家都知道，如果把ACCESS数据库直接放在服务器上，客户端通过文件访问方式来存取数据，这样效率就太低了。 为了解决这个问题，现通过三层结构模型的方式来实现ACCESS的数据库的访问。
access登录界面
06-08
DoCmd.Quit Else Exit Sub End If Exit_cmdClose_Click: Exit Sub Err_cmdClose_Click: MsgBox Err.Description Resume Exit_cmdClose_Click End Sub Private Sub cmdOK_Click() On Error GoTo Err_cmdOK...
Access+2000中文版高级编程
02-05
8.1 Access使用查询的位置 181 8.1.1 在窗体或报表的记录源属性中使用查询 182 8.1.2 设置用户使用查询的权限 183 8.1.3 使用命名约定和查询文档 185 8.2 运用选择查询：使用查询设计网格 187 8.2.1 表的...
解决导出excel文件名中文乱码的问题
sinat_36279113的博客
07-29 4470
导出excel文件名中文乱码
导出Excel，出现乱码问题解决
aang5557的博客
12-06 455
最近在开发的时候导出Excel，当数据量大时，没有什么问题，当数量很小时经常会出现导出内容乱码问题。 起始只要在输出的地方加一句 const string _addHeader = "<meta http-equiv=\"content-type\" content=\"application/ms-excel; charset=UTF-8\"/>"; ...
docmd.outputto acoutputtable 导出为记事本_生产力 | Markdown 为何物
weixin_33245968的博客
12-25 210
文章相关的链接和资源将单独整理成文档发布，并随时更新，你可以 1️⃣ 点击获取，2️⃣ 公众号后台回复文章代码获取，本篇文章代码为“Markdown为何物20200119”。工具即思维，如果说有什么东西对我的生活产生了重大影响的话，Markdown 一定是其中之一。万丈高楼平地起，我相信这篇文章将是你走入 Markdown 生态的敲门砖。markdown，顾名思义，跟写作有关。事实上，它...
Excel导入数据到数据库(Sql2005 ,Access)
weixin_33766168的博客
06-05 101
1.在Sql2005创建对应的表"Roll" 2.应用以下这段代码 string execelConnectionStr = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Book1.xls;Extended Properties=""Excel 8.0;HDR=YES;""";             using (OleDbConn...
access查询到的结果输出到excel
happy6029的专栏
07-25 2191
百度了很久都找不到合适的结果，原来这么简单的一句语句。 SELECT * INTO [Excel 8.0;Database=d:\book1.xls].[Sheet1] FROM config;
access2007 生成 accde或者mde后， docmd.outputto出错的问题
weixin_30273931的博客
09-15 230
这个问题着实教人蛋疼发现网上不少人都反映有问题，而且大家的问题还不尽一样我不知道是不是因为用的是盗版后来在某国外论坛上发现有人说：（http://www.dbforums.com/microsoft-access/1627010-outputto-problem-access-2007-runtime.html）"The problem with OutputTo in Access 2007 ...
docmd.outputto acoutputtable 导出为记事本_将德语助手（桌面版）单词本导出为excel表格...
weixin_42160424的博客
12-27 207
excel表格是背单词的好工具，尤其是对于我这种懒得用手的人德语助手自带了导出单词本的工具，但导出的格式只有xml（我不知道是啥玩应儿），html（网页格式），和txt（记事本），显然都不是我想要的。德语助手桌面版的单词本导出最近刚好学了点python爬虫相关的东西，于是决定应用一下。选择导出格式为html，导出简单解释。选择导出简单解释然后就获得了一个html文件然后打开网页右键选择查看源代码提...
帮我优化以下代码，不使用ADO ,然后每次导出不同的10000条记录至新的EXECL文件中：Dim strSQL As String Dim strFileName As String Dim i As Long Dim batchSize As Long '每批次导出的记录数 Dim batchCount As Long '批次计数器 Dim exportCount As Long '导出计数器 '设置导出文件路径和文件名 strFileName = "C:\Users\icd\Desktop\流水分割\" batchSize = 10000 '每批次导出的记录数 DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "SELECT 导出数据.* INTO ExportData FROM 导出数据" '将表导入临时表ExportData DoCmd.SetWarnings True '重新开启Access的警告信息 Set rs = CurrentDb.OpenRecordset("SELECT * FROM ExportData", dbOpenSnapshot) '打开临时表ExportData '循环导出数据 Do While Not rs.EOF If exportCount Mod batchSize = 0 Then '每批次导出到一个新的文件 If exportCount <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If batchCount = batchCount + 1 End If exportCount = exportCount + 1 rs.MoveNext Loop '导出最后一份文件 If exportCount Mod batchSize <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If rs.Close Set rs = Nothing DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "DROP TABLE ExportData" '删除临时表ExportData DoCmd.RunSQL "DELETE 导出数据.* FROM 导出数据" '删除导出数据内容 DoCmd.SetWarnings True '重新开启Access的警告信息
最新发布
06-09
以下是优化后的代码，使用了Recordset来处理数据，同时每次导出10000条记录到新的Excel文件中： Dim strSQL As String Dim strFileName As String Dim i As Long Dim batchSize As Long '每批次导出的记录数 Dim batchCount As Long '批次计数器 Dim exportCount As Long '导出计数器 Dim rs As Recordset '设置导出文件路径和文件名 strFileName = "C:\Users\icd\Desktop\流水分割\" batchSize = 10000 '每批次导出的记录数 '将表导入临时表ExportData DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "SELECT 导出数据.* INTO ExportData FROM 导出数据" DoCmd.SetWarnings True '重新开启Access的警告信息 'SQL语句，使用Recordset来处理数据 strSQL = "SELECT * FROM ExportData" Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot) '循环导出数据 Do While Not rs.EOF If exportCount Mod batchSize = 0 Then '每批次导出到一个新的文件 If exportCount <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If batchCount = batchCount + 1 End If exportCount = exportCount + 1 rs.MoveNext Loop '导出最后一份文件 If exportCount Mod batchSize <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If '关闭Recordset和删除临时表ExportData rs.Close Set rs = Nothing DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "DROP TABLE ExportData" '删除临时表ExportData DoCmd.RunSQL "DELETE 导出数据.* FROM 导出数据" '删除导出数据内容 DoCmd.SetWarnings True '重新开启Access的警告信息

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值