我用comobj创建的excel对象
在插入表完成后我 要释放掉excel对象,同时要显示产生的excel表格
该咱们实现
。。
Eclapp.Workbooks[1].SaveAs(SaveFile);//保存
Eclapp.Visible := true; //显示 然后怎么释放对象?而不影响显示。谢谢!
在插入表完成后我 要释放掉excel对象,同时要显示产生的excel表格
该咱们实现
。。
Eclapp.Workbooks[1].SaveAs(SaveFile);//保存
Eclapp.Visible := true; //显示 然后怎么释放对象?而不影响显示。谢谢!
解决方案 »
- delphi 定时器精度 在工控中的问题 求解答!
- 用web broker,一个网页提交表单后,而接收的action的request里面的无任何参数!!!!这是怎么回事啊。在线等待,急
- 关于DLL的问题,超容易一时想不开又没时间去搜请大家帮忙.
- 关于用edit显示数据问题~~~~~~~
- 验证数据库中是否已经存在某个记录应该用什么函数?
- 能否在一台机器上实现三层结构的应用阿,怎么实现?帮忙解决!谢谢!新手!!
- 从梦中醒来!
- 有谁知道adotable1.Recordset.Move ();的用法
- 哪位兄弟知道哪有比较好的网址可以下载delphi控件的?
- 按任意键继续???
- 我的程序使用运行时库以便使运行程序变小,但是我给用户安装的时候我该怎么安装Delphi运行时库?
- 怎样将较高版本(delphi6)的.dfm文件转化为较低版本(delphi5)的.dfm?
ComObj;var
AExcel: Variant;
AWorkSheet: OleVariant;
begin
try
AExcel := GetActiveOleObject('Excel.Application');
AExcel.Application.Visible := True;
AWorkSheet := AExcel.WorkSheets[1];
AWorkSheet.SaveAs(SaveFile);
except
raise;
end;
end;
Eclapp := UnAssigned;
才對!!
Eclapp := UnAssigned;
才對!!
xlApp: ExcelApplication;onDestroy
if xlApp <> nil then // if not VarIsEmpty(xlApp) then
begin
xlApp.DisplayAlerts[0] := False;
xlApp.Exit;
end;
xlApp.Quit;