再请教十豆三大侠：如何判别 Excel 文档的版本 ？

[hnpyz]

请教：在 VFP 中，如何如何判别 Excel 文档的版本是否为 2.1 以下格式 ？
如何保存为 2.1 以下格式 ？

谢谢 ！

[xilaianzxsc]

好象默认是5.0版本的

[li0690]

2.1版本是什么时候的？

[十豆三]

oExcel=Createobject("Excel.Application")
oExcel.DisplayAlerts=.F.
oExcel.Workbooks.Open("c:\abc.xls")		&& 打开原文件
If oExcel.ActiveWorkbook.FileFormat<>16	&& 16 为2.1版本
	oExcel.ActiveWorkbook.SaveAs("c:\abc.xls",16)	&& 如果不是2.1版就保存成2.1版本，也可以另存为其他文件名
Endif
oExcel.Workbooks.Close
oExcel.Quit
Release oExcel

[wwwwb]

用
WAIT WINDOW TRANSFORM(_ole_excel.ActiveWorkbook.FileFormat)这个试试

[iihero_]

[Quote=引用楼主 hnpyz 的回复:]
请教：在 VFP 中，如何如何判别 Excel 文档的版本是否为 2.1 以下格式 ？
如何保存为 2.1 以下格式 ？

谢谢 ！
[/Quote]
2.1以下格式也太旧了吧