try
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed!',mtError,[mbOK],0);
abort;
end;
try
ExcelApplication1.Visible[0]:=False;
ExcelApplication1.Workbooks.Add(OpenDialog1.FileName,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
ExcelWorkbook1.Close;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ShowMessage('已成功添加!');
except
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ShowMessage('出错啦!');在上面这个程序中无论try成功还是不成功最后进程中都还有一个Excel.exe的进程,怎么让Excel释放关闭这个Excel.exe进程啊???
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed!',mtError,[mbOK],0);
abort;
end;
try
ExcelApplication1.Visible[0]:=False;
ExcelApplication1.Workbooks.Add(OpenDialog1.FileName,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
ExcelWorkbook1.Close;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ShowMessage('已成功添加!');
except
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ShowMessage('出错啦!');在上面这个程序中无论try成功还是不成功最后进程中都还有一个Excel.exe的进程,怎么让Excel释放关闭这个Excel.exe进程啊???
解决方案 »
- 改成一个显示Form并能传递给全局变量的函数怎么做
- 在DELPHI中怎么操作循环语句
- 在DELPHI下怎么写一个简单的NT服务程序?
- 这样的打印如何实现!谢谢了先!!!!!200分相送在线等待!!!!急!!!分不够还可以加!!!)
- 有好看的XP控件吗,在哪可以下载?像金山毒霸那样的
- DBGridEh的问题!!
- 替女朋友征集游戏活动,这是第一次帮女朋友忙呢,成不成这看这一回了!请大家多多帮忙!
- 程序模块的问题
- 怎样用语句动态生成一个ActiveForm
- 如何测试串行通讯误码率,请高手帮忙!
- library path 丢失问题
- 我要问一个关于Timage显示网络图片的问题和一个webbrowser保存图片的问题!!!!
的意思是把释放语句放在finally块里面,finally里面才是一定要执行的代码
except里面的代码只有出错了才执行,否则是不会执行的
但现在我这是出错不出错都关不了这个进程.
Try
finally
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
end;
我在try和except都有用disconnected和quit.
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed!',mtError,[mbOK],0);
abort;
end;
try
//ExcelApplication1.Visible[0]:=False;
//ExcelApplication1.Workbooks.Add(OpenDialog1.FileName,0);
//换成下面的试试,我程序中也有Excel导入导入功能,没有你说的那个问题呀
ExcelApplication1.Workbooks.Open(OpenDlg.FileName,null,null,null,null,null,null,null,null,null,null,null,null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
//ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
ExcelWorkbook1.Close;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ShowMessage('已成功添加!');
except
ExcelWorksheet1.Free;
ExcelWorkbook1.Free;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
ShowMessage('出错啦!');