Question

vb结束excel进程

部分代码如下
Dim objExcelFile As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objImportSheet1 As Excel.Worksheet
'2 打开Excel进程，并打开目标Excel文件
Set objExcelFile = New Excel.Application
objExcelFile.DisplayAlerts = False
Set objWorkBook = objExcelFile.Workbooks.Open(Form1.文件路径Text)
Set objImportSheet1 = objWorkBook.Sheets(1) 'objImportSheet1 表示表1

If 列 = Val(Form1.Text(0)) Then
If Trim$(objImportSheet1.Cells(行, 列).Value) <> "" Then
Form1.List1(0).AddItem Trim$(objImportSheet1.Cells(行, 列).Value)
Else
Form1.List1(0).AddItem " "
End If
End If

Set objWorkBook = Nothing
Set objImportSheet1 = Nothing
Set objExcelFile = Nothing

只看用到excel的语句就行了，，，我没有使用excel引用
退出程序，excel进程还在

Answer 1

objWorkBook.Close (True) '关闭工作簿并保存所做的修改
objExcelFile.Quit
Set objWorkBook = Nothing
Set objImportSheet1 = Nothing
Set objExcelFile = Nothing

追问

好了，我在任务管理器里看着excel消失的，非常感谢，，不过这几个关闭释放的代码要过一会儿才会执行（然后excel结束），，这是excel加载的原因么？

追答

VB操作excel确实感觉比较慢。

Answer 2

使用objExcelFile.Quit退出程序即可。