用vb6操作excel时，在遇到有关问题时总是不能退出excel进程，怎么处理

用vb6操作excel时，在遇到问题时总是不能退出excel进程，怎么办？
用vb新建一个excel进行写操作：

VB code

private function export2Xls（）as Boolean     ......     ......On Error GoTo errHandler    '申明excel引用    Dim xlApp As Excel.Application    Dim xlBook As Excel.Workbook    Dim xlSheet As Excel.Worksheet    '创建EXCEL对象    Set xlApp = CreateObject("Excel.Application")    '新建一个工作薄    Set xlBook = xlApp.Workbooks.Add        '打开工作薄    Set xlSheet = xlBook.Worksheets(1)    '写入数据（省略）    ......    ......    '如果要保存的名字存在，则先删除原文件    If Dir(targetFile) <> "" Then        Kill targetFile    End If        '再保存文件    xlBook.SaveAs targetFileexitHandler:        '关闭excel文件    Set xlSheet = Nothing    xlBook.Close False                                  '关闭并不保存工作簿    Set xlBook = Nothing    xlApp.Quit                                          '结束EXCEL对象    Set xlApp = Nothing                                 '释放xlApp对象           '退出程序    Exit FunctionerrHandler:    '错误信息    MsgBox Err.Number & ":" & Err.Description, vbCritical, "写入错误"    Resume exitHandlerend function

无论出错还是不出错，在exit funciton后都不能退出excel进程，请问怎么解决？
为什么xlApp.quit语句没有作用呢？

[解决办法]
写入数据部分全注释起来，再试试。
在删除原文件的地方加个断点，单步执行，检查文件是否被删除。
开头设置 xlApp.Visible = True，然后单步调试，看是否有任何 Excel 的对话框显示而程序中没有错误捕获。

查看更多 下一篇