使用Automation时，调用excel的SaveAs,能否指定存盘格式？

[xxxyyyuuu]

.h中
Variant myExcel;
.cpp中，
void __fastcall TForm1::FormCreate(TObject *Sender)
{
myExcel = Variant::CreateObject("excel.application");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant MyWorkBook=myExcel.OlePropertyGet("workbooks");
Procedure Open("Open");
if (od->Execute())
{
//MyWorkBook.Exec(Open <<od->FileName);
MyWorkBook.Exec(Open <<od->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (od->Execute())
{
Procedure SaveAs("SaveAs");
Variant ActiveWorkBook=myExcel.OlePropertyGet("ActiveWorkbook");
ActiveWorkBook.Exec(SaveAs <<od->FileName);
}
}
//---------------------------------------------------------------------------
能否在最后的
ActiveWorkBook.Exec(SaveAs <<od->FileName);
指定他存为"Microsoft Excel 5.0/95 工作簿"？

怎么写？谢谢

[xxxyyyuuu]

在excel_2k_srvr.cpp中
case 1571:
if (OnWorkbookBeforeSave)
(OnWorkbookBeforeSave)(this, (Excel_2k::ExcelWorkbook*)(LPDISPATCH)TVariant(params[0]), TVariant(params[1]), TVariant(params[2]));
break;

[烟波三千里人鬼五百年]

ActiveWorkbook.SaveAs Filename:= _
"C:\Book1.xls", FileFormat:=xlExcel5 _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

以上为VBA录下的宏文件

[wangxd]

按cker的试试把

[CodeCai]

tag