一个ole保存的问题，希望你的到来

[adam_you]

有个ole控件
里面有execl文件(从数据库中生成的)，现在保存成文件
v := CreateOleObject('EXCEL.Application');

v.Application.WorkBooks.Add;
OleContainer1.oleObjECt.ACTiveSheet.Cells.Copy;

v.apPLication.WOrkbooks[1].WorkSheets[1].Paste ;
v.Application.WorkBooks[1].SaveAs(sdSave.FileName);

v.quit;

这样只保存ole中激活的页面，我希望全部保存，如何循环（希望在我这个上面修改）。
并且保存的excel每个页面名称和ole中的也要一样。

[forgetter]

OleContainer1.SaveToFile;