急！！！！！！关于OleContainer.

Question

用OleContainer打开Excel后保存，然后再打开时报错,提示文件不能完全载入。
procedure TForm1.btnOpenClick(Sender: TObject);
begin
  
    OleContainer.CreateObjectFromFile('C:\Tmp.XLS',false);
    OleContainer.DoVerb(ovShow);
end;procedure TForm1.btnSaveClick(Sender: TObject);
begin
    OleContainer.SaveToFile('C:\Tmp.XLS');
end;

Answer 1

OleContainer的oleobject属性，可以返回Excel.Application对象
因此可以用如下方式保存
self.OleContainer1.OleObject.Application.ActiveDocument.SaveAs('C:\Tmp.XLS',EmptyParam);

Answer 2

保存后要将OLECONTAINER对象释放掉,否则,被保存的文件句柄还是被OLECONTAINER所持有,你再打开时,自然会遇到上面的现象了 ^_^