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完毕");