Vc调用EXCEL2003后如何保存或是另存?

Question

_Application *ExcelApp = new _Application;
int m_nSucess=ExcelApp->CreateDispatch("excel.application",NULL);
if(m_nSucess)
{
//创建失败.
return 0;
}
//设置为显示
ExcelApp->SetVisible(false);
//得到WorkBooks
Workbooks ExcelBook=ExcelApp->GetWorkbooks();
_Workbook workBook=ExcelBook.Add(_variant_t("E:\\Data\\地火行动收益统计报表.xls"));
workBook.AttachDispatch(ExcelApp->GetApplication());
workBook.SetAutoUpdateSaveChanges(true);Sheets     ExcelSheet=workBook.GetSheets();
_Worksheet workSheet;
workSheet=ExcelSheet.GetItem(_variant_t("1日"));
workSheet.Activate();Range myallrange;//=workSheet.GetRange(COleVariant("A1"),COleVariant("A1");
myallrange=workSheet.GetCells();
myallrange.SetItem(_variant_t((short) 1),_variant_t((short) 1),_variant_t("这里写标题11"));
myallrange.SetItem(_variant_t((short) 1),_variant_t((short) 2),_variant_t("这里写标题12"));
myallrange.SetItem(_variant_t((short) 2),_variant_t((short) 1),_variant_t("这里写标题21"));
myallrange.SetItem(_variant_t((short) 2),_variant_t((short) 2),_variant_t("这里写标题22"));
myallrange.SetItem(_variant_t((short) 3),_variant_t((short) 1),_variant_t("这里写标题31"));
myallrange.SetItem(_variant_t((short) 3),_variant_t((short) 2),_variant_t("这里写标题32"));
myallrange.SetItem(_variant_t((short) 4),_variant_t((short) 1),_variant_t("这里写标题41"));
myallrange.SetItem(_variant_t((short) 4),_variant_t((short) 2),_variant_t("这里写标题42"));

Answer 1

http://www.vckbase.com/document/viewdoc/?id=231
**wbMyBook.SetSaved(true);