BCB使用OLE控制EXCEL过程中如何默认保存

Variant Ex,Wb,Sh1,Sh2;
Ex=Variant::CreateObject("Excel.Application");
Ex.PS("Visible",false);
Ex.PS("DisplayAlerts",false);//没有这行,就肯定会提示你 是否保存, 很烦的
Ex.PG("WorkBooks").PR("Open","c:\\1.xls");
Wb=Ex.PG("ActiveWorkBook");
Sh1=Wb.PG("ActiveSheet");
Sh1.PG("Cells",1,1).PS("Value",123);
Wb.PR("Save");
Wb.PR("Close");
Ex.FN("Quit");

//结束，如果没有如下代码，EXCEL线程直到应用程序退出才结束。

Ex=Unassigned;
Wb=Unassigned;
Sh1=Unassigned;
Sh2=Unassigned;
ShowMessage("输出数据到EXCEL完毕");