为什么使用FileFormat:=xlExcel8另存为03版文件时提示出错？

作者：绿色风分类：时间：2022-08-17 浏览：85

楼主
wjc2090742

Q：为什么使用FileFormat:=xlExcel8另存为03版文件时提示出错？下面的代码，在excel2003中运行出错，如何解决？

Sub MySave()
Worksheets(Array("Sheet2", "Sheet3")).Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\导入标准凭证.xls", FileFormat:=xlExcel8
.Close
End With
End Sub

A：出错原因应该是excel03中，saveas的fileformat参数与10中不同吧。03中XlFileFormat枚举中没有xlExcel8，写成xlNormal就可以实现excel2003和excel2010版通用的代码了。如下。

Sub MySave()
Application.DisplayAlerts = False
Worksheets(Array("Page1", "附件表")).Copy
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\导入标准凭证.xls", FileFormat:=xlNormal
.Close
End With
Application.DisplayAlerts = True
End Sub

2楼
wjc2090742

Excel2003中的XlFileFormat枚举。

与excel2007、2010的对比
Excel文件的保存格式代码有哪些？ http://www.exceltip.net/thread-7103-1-1.html

3楼
windimi007

xlNormal

真心是好方法哈！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表