为什么在进程里不能结束EXCEL

Question

不知道是不是哪里有问题，请各位大侠们给看看为谢！Private Sub Command1_Click()
Dim objExcel As Excel.Application
Dim objBook As WorkBook
Dim objSheet As WorkSheet
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open(Dir1.Path & txtPath.Text)
Set objSheet = objBook.Worksheets(1)
objExcel.Visible = False
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 2), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
        Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1))
     objSheet.SaveAs ("D:\txt.txt")
     Set objSheet=Nothing
     objBook.Close False
     Set objBook=Nothing
     objSheet.Application.Quit
     Set objExcel=Nothing
End Sub

Answer 1

去掉Application也是一样结束不了

Answer 2

     Set objSheet=Nothing
     objBook.Close False
     Set objBook=Nothing
     
调调位置看看对不》 我这里可以
 要不就改为
     Set objSheet=Nothing
     objBook.Close False
     Set objBook=Nothing
     objExcel.quit 

Answer 3

去掉VBA代码倒是可以结束，但加上就还是不行

Answer 4

objSheet.SaveAs ("D:\txt.txt")
objSheet.Quit

Answer 5

你的代码已经有Quit了，应该是对象没有释放完全造成的，把创建的对象都释放掉：......
objSheet.Application.Quit
Set objSheet=Nothing  '<----objSheet需要释放掉
Set objBook=Nothing   '<----objBook也需要释放掉
Set objExcel=Nothing
End Sub