询问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 Ifexcel_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 = NothingMsgBox "监控信息报告" + directname$ + "生成!"