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

最新推荐文章于 2022-07-29 15:45:26 发布

changechange

最新推荐文章于 2022-07-29 15:45:26 发布

阅读量5.2k

点赞数

分类专栏：特有函数以及自定义函数、过程文章标签： excel access 编程测试

本文链接：https://blog.youkuaiyun.com/changechange/article/details/495896

版权

特有函数以及自定义函数、过程专栏收录该内容

6 篇文章

订阅专栏

如何用 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 原创文章，作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接