OlE控件连接EXCEL，怎么把运行时在OLE控件中修改后的内容存为一个真正的XLS文件？(13分)

我怎么存不上啊！
OleContainer1.CreateObjectFromFile(Extractfilepath(Application.ExeName)+'chart.xls',TRUE);
OleContainer1.doverb(0);
ExcelApplication1.Connect;
ExcelWorkSheet1.ConnectTo(ExcelApplication1.Workbooks[1].SHEETS[1] AS _WORKSHEET);
ExcelWorkSheet1.cells.items[1,2]:='defrfrfrfrfrfr';
ExcelApplication1.Workbooks[1].SaveCopyAs('c:/123.xls',1);
。。。。。。
看起来好像存上了，但实际就是一个空的东西，什么也没有。谁告诉我怎么保存那？

我是使用OLE定義了一個excel對象
VXLApp:=CreateOleObject('Excel.Application' );
VWorkBook:=VXLApp.WorkBooks.Add;
VWorkBook.SaveAs(FileName);
這樣就可以保存成fileName這個文件了

这样虽然控制得更好些，但是，窗口是分离的，不好看啊。

楼上的方法也可以！
ExcelApplication1.Workbooks[1].SaveCopyAs('c:/123.xls',1);
改为
ExcelWorkSheet1.SaveAs('c:/123.xls');

ExcelWorkSheet1.SaveAs('c:/123.xls');
也不行，什么都没有。

现在好像只有这样可以：
ExcelApplication1.Workbooks.Open('d:/chart.xls',
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0);

ExcelWorksheet1.Connectto(ExcelApplication1.Workbooks[1].Sheets[1] as _worksheet);
ExcelWorksheet1.Cells.Item[1,2]:='1111111111111111';
ExcelWorksheet1.SaveAs('c:/123.xls'，1);

这样可以保存，但是这样OLE那边就什么都没有了。我就是想用OLE，在一个界面上，好看一点。

我试过了，没有问题！
是不是其它地方代码有问题？

新建一个工程，单独调试上面的代码，试一试！

ExcelApplicatoin1.ActiveSheets.SaveAs('c:/123.xls')

多人接受答案了。