询问excel释放的问题
函数代码
大家帮我看看为什么这个函数无法反复执行啊
我看网上操作excel的程序都是这样写的啊
运行完一次 进程里面的excel没有关闭
下次再执行时候就直接捕获到异常
不知道为什么啊 为什么excel进程没有释放



Dim filepath$
Dim filenewpath$
Dim directname$

directname$ = "监控信息" + Format(Now(), "YYYYMMDD_HHMMSS") + ".xls"

filepath$ = App.Path + "\监控信息.xls"
filenewpath$ = App.Path + "\report\" + directname$

'复制文件模板
FileCopy filepath$, filenewpath$


Dim excel_app As Excel.Application
Dim excel_book As Excel.Workbook

'创建实例
Set excel_app = CreateObject("Excel.Application")


'打开文件
If Len(Dir(filenewpath$)) > 0 Then
Set excel_book = excel_app.Workbooks.Open(filenewpath$)
End If

excel_app.Visible = False

'选择报警信息sheet
excel_book.Worksheets("监控信息").Select

''''插入数据过程 省略
'''''

'另存文件
excel_book.Save
excel_book.Close (True)

'退出实例.
excel_app.Quit
Set excel_app = Nothing
Set excel_book = Nothing

MsgBox "监控信息报告" + directname$ + "生成!"


[解决办法]
http://download.csdn.net/detail/veron_04/2341786
[解决办法]
excel_app.close