vb 调用 Excel 后 对象总是无法释放
简单的代码如下
Dim ex As Excel.Application
Dim wk As Excel.Workbook
Dim Sheet As Excel.Worksheet
Set ex = CreateObject("Excel.Application")
ex.Visible = True
Set wk = ex.Workbooks.Add("c:\1.xls")
'or set wk=ex.workbooks.open("c:\xls")
If Not ex Is Nothing Then
ex.DisplayAlerts = False
If ex.Workbooks.Count > 0 Then
ex.ActiveWorkbook.Close False
End If
ex.DisplayAlerts = True
ex.Quit
End If
Set ex = Nothing
Set wk = Nothing
搜索了很多相关帖,没有什么收获,都不能完全卸载excel对象
发现只要 用workbook 打开一个文件 就会
Set wk = ex.Workbooks.Add("c:\1.xls")
'or set wk=ex.workbooks.open("c:\xls")
谁有除了中止进程以外的 解决方法