c#

Excel을 죽이는 것이 항상 쉬운 것은 아닙니다. 이 기사를 참조하십시오 : Excel을 죽이는 50 가지 방법

이 기사는 Excel을 멋지게 종료하는 방법에 대한 Microsoft ( MS Knowlege Base Article ) 의 최고의 조언을 취하지 만 필요한 경우 프로세스를 종료하여 확인합니다. 두 번째 낙하산을 좋아합니다.

열려있는 통합 문서를 모두 닫고 응용 프로그램을 종료 한 다음 xlApp 개체를 해제해야합니다. 마지막으로 프로세스가 아직 살아 있는지 확인하고 그렇다면 종료하십시오.

이 기사는 또한 모든 Excel 프로세스를 종료하지 않고 시작된 정확한 프로세스 만 종료하도록합니다.

창 핸들에서 프로세스 가져 오기를 참조하십시오.

내가 사용하는 코드는 다음과 같습니다. (매번 작동)

Sub UsingExcel()

    'declare process; will be used later to attach the Excel process
    Dim XLProc As Process

    'call the sub that will do some work with Excel
    'calling Excel in a separate routine will ensure that it is
    'out of scope when calling GC.Collect
    'this works better especially in debug mode
    DoOfficeWork(XLProc)

    'Do garbage collection to release the COM pointers
    'http://support.microsoft.com/kb/317109
    GC.Collect()
    GC.WaitForPendingFinalizers()

    'I prefer to have two parachutes when dealing with the Excel process
    'this is the last answer if garbage collection were to fail
    If Not XLProc Is Nothing AndAlso Not XLProc.HasExited Then
        XLProc.Kill()
    End If

End Sub

'http://msdn.microsoft.com/en-us/library/ms633522%28v=vs.85%29.aspx
<System.Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, _
    ByRef lpdwProcessId As Integer) As Integer
End Function

Private Sub ExcelWork(ByRef XLProc As Process)

    'start the application using late binding
    Dim xlApp As Object = CreateObject("Excel.Application")

    'or use early binding
    'Dim xlApp As Microsoft.Office.Interop.Excel

    'get the window handle
    Dim xlHWND As Integer = xlApp.hwnd

    'this will have the process ID after call to GetWindowThreadProcessId
    Dim ProcIdXL As Integer = 0

    'get the process ID
    GetWindowThreadProcessId(xlHWND, ProcIdXL)

    'get the process
    XLProc = Process.GetProcessById(ProcIdXL)


    'do some work with Excel here using xlApp

    'be sure to save and close all workbooks when done

    'release all objects used (except xlApp) using NAR(x)


    'Quit Excel
    xlApp.quit()

    'Release
    NAR(xlApp)

End Sub

Private Sub NAR(ByVal o As Object)
    'http://support.microsoft.com/kb/317109
    Try
        While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
        End While
    Catch
    Finally
        o = Nothing
    End Try
End Sub