我用comobj创建的excel对象
在插入表完成后我 要释放掉excel对象,同时要显示产生的excel表格
该咱们实现
。。
Eclapp.Workbooks[1].SaveAs(SaveFile);//保存
Eclapp.Visible := true; //显示 然后怎么释放对象?而不影响显示。谢谢!
在插入表完成后我 要释放掉excel对象,同时要显示产生的excel表格
该咱们实现
。。
Eclapp.Workbooks[1].SaveAs(SaveFile);//保存
Eclapp.Visible := true; //显示 然后怎么释放对象?而不影响显示。谢谢!
解决方案 »
- 这个函数错在哪儿?
- 我想修改一个控件的源代码
- INDY 和adoconnection 做多层的问题
- 请问关于TDBNavigator写数据库的问题
- LISTVIEW中的列头能否增加为两行?
- 共用资料控制列
- (紧急求救)DBLookupComboBox就不能象TComboBox那样自己定义ItemIndex吗?
- 晕了晕了。indy问题
- 在宽为1000的范围内画过渡色,要平滑过渡...
- 我收集的DELPHI的CHM格式资料到WWW.YNSOFT.COM下载
- 我的程序使用运行时库以便使运行程序变小,但是我给用户安装的时候我该怎么安装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;