bcb通过ole导出xls，电脑安装的是excel2007，怎么样导出excel2000-2003的格式？

[茶亭]

如题，bcb通过ole导出xls，电脑安装的是excel2007，怎么样导出excel2000-2003的格式？

[茶亭]

上代码 Variant Exout,Wbout,Shout1; Variant Rangeout; Exout=Variant::CreateObject("Excel.Application"); Exout.PG("workbooks").FN("add",1); Wbout=Exout.PG("ActiveWorkBook"); Shout1=Wbout.PG("ActiveSheet"); Shout1.PG("Cells",1,1).PS("Value",t1.c_str() ); Shout1.PG("Cells",1,2).PS("Value",t2.c_str() ); Shout1.FN("SaveAs","c:\\test.xls" ); Wbout.PR("Close"); Exout.OleFunction("Quit"); 可以导出xls文件，excel2007也能打开，但后面的应用只能支持excel97-2003版本的xls格式，识别不了。如果在安装excel2003的电脑上导出的xls就没问题。 我在excel2007下记录了“另存为excel97-2003”时的宏如下： Exout.PG("ActiveWorkbook.SaveAs Filename="C:\Users\pkgd3\Documents\Book2.xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 里面有一个输出格式的参数“FileFormat:=xlExcel8”， 但在BCB6下如何实现呢？

[缘中人]

呼叫妖哥

[ccrun.com]

OLE专业户来也!!! 你保存的时候指定一下文件格式就行了.

String strFileName = "C:\\Users\\pkgd3\\Documents\\Book2.xls";
Exout.PG("ActiveWorkbook").FN("SaveAs",
    WideString(strFileName),
    56, // FileFormat:=xlExcel8,
    "", // Password:="",
    "", // WriteResPassword:="", _
    false, // ReadOnlyRecommended:=False,
    false // CreateBackup:=False
    );