VB调用EXCEL问题（附框架源码）

[ragweed_wg]

源码如下：
'设置显示方式：
Application.ScreenUpdating = False '窗口数据更新不刷新
Application.DisplayAlerts = False '不提示用户信息
Application.Visible = False '不显示EXCEL窗口

'打开该业务对应的EXCEL模板文件：
Workbooks.Open FileName:=strReportName

'对模板操作：
……

'关闭该文件文件：
ActiveWorkbook.Close SaveChanges:=False

'将EXCEL设置状态恢复正常：
Application.ScreenUpdating = True '恢复窗口数据更新
Application.DisplayAlerts = True '恢复提示用户信息
Application.Visible = True '不显示EXCEL窗口

'关闭EXCEL：
Application.Quit

以上源码，在执行完毕后，系统的进程中依然还有“EXCEL”，这时打开EXCEL，显示不出EXCEL文件内容，当强行KILL EXCEL进程，EXCEL文件的操作恢复正常，Application已经关闭了，不明白为什么进程没有结束，请指教？

[YAOHE]

是不是你调用了EXCEL后没有关闭?

[GLAY]

对,我也不行!EXCEL 进程没有结束 !!

Dim ex As Object
Dim exbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")
Set exbook = ex.Workbooks().Add
Set exsheet = exbook.Worksheets("sheet1")
Dim exRange As Object

......
.......

'关闭工作表。
exbook.Close
'用 Quit 方法关闭 Microsoft Excel
ex.Quit
'释放对象
Set ex = Nothing
Set exbook = Nothing
Set exsheet = Nothing

这样也不行!!!为什么? 难道要用API杀死它的进程??

[ragweed_wg]

找到原因啦，不能能直接在VB中引用EXCEL的方法，改用Set MyApp = CreateObject("Excel.Application")，就没有问题啦。