询问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
