关于Excel的关闭问题

Question

好象用set mApp=Nothing就可以关闭了，如果不行就试试mApp.close吧！

Answer 1

没有出错，就是Excel关不掉mApp没有Close方法

Answer 2

你都试试吧，我也不知道管不管用，
Sub Exit1()
    Dim ExcelPath As String
    Application.DisplayAlerts = False
    ExcelPath = Application.Path
    Application.Quit
End SubSub Exit2()
    Application.DisplayAlerts = True
    Application.Quit
End SubSub Exit3()
    Dim WorkbookPath As String
    WorkbookPath = ActiveWorkbook.Path
    If Not (ActiveWorkbook.Saved) Then
            ActiveWorkbook.Save
    End If
End SubSub Exit4()
    ActiveWorkbook.Close True, "MYBOOK.XLs", False
End SubSub Exit5()
    ActiveWorkbook.Close False, "MYBOOK.XLs", False
End SubSub Exit6()
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
End Sub
Sub WorksheetIndex()
    ActiveSheet.Name = "WKsheet" & ActiveSheet.Index
End Sub

Answer 3

mApp.Quitset m....(3 excel object)=nothing