How TO: 关闭ExcelAplication实例进程

Author:水如烟

综合了一下有关人士的写法，自己写一下，也不知是否妥当。仅供参考。

Option Strict Off

Public Class ExcelClass
    Implements IDisposable

    Private ExcelApplication As Object

    Private beforeTime As Date 'Excel启动之前的时间
    Private afterTime As Date 'Excel启动之后的时间
    Private disposedValue As Boolean = False

    '这里只是参考
    Sub New()
        beforeTime = Date.Now
        ExcelApplication = CreateObject("Excel.Application")
        afterTime = Date.Now
    End Sub

    Public ReadOnly Property IsDisposing() As Boolean
        Get
            Return disposedValue
        End Get
    End Property

    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then

            If disposing Then
                ExcelApplication.Workbooks.Close()
                ExcelApplication.Quit()
            End If

            If Not ExcelApplication Is Nothing Then
                For Each workbook As Object In ExcelApplication.Workbooks
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
                    workbook = Nothing
                Next

                System.Runtime.InteropServices.Marshal.ReleaseComObject(ExcelApplication)
                ExcelApplication = Nothing
            End If

        End If

        Me.disposedValue = True
    End Sub

    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
        KillExcelProcess()
    End Sub

    Private Sub KillExcelProcess()

        Dim myProcesses As Process()
        Dim startTime As Date
        myProcesses = Process.GetProcessesByName("Excel")

        For Each myProcess As Process In myProcesses
            startTime = myProcess.StartTime
            If startTime > beforeTime And startTime < afterTime Then
                myProcess.Kill()
            End If
        Next
    End Sub

End Class