Microsoft Office Interop超时

Question

我正在使用一个使用Microsoft Office Interop的C#程序，它允许您基本上通过编程使用Microsoft Word、Excel和PowerPoint。

我遇到的一个不幸的方面是，有时程序会弹出一个对话框，暂停代码。例如，如果代码突然不能保存在您期望能够保存的位置，这可能会发生，这意味着即使这个问题稍后得到修复，整个程序也可能会暂停。

在许多其他情况下，可能会引发额外的对话框。

因此，我的目的是为此实现某种超时机制，借此我可以杀死Interop实例，而不是将整个程序捆绑在一起。有没有人能建议一种方法呢？目前，它将互操作调用包装在System.Action中，并在给定时间后中止该线程，但我想知道是否有更好的方法。

Answer 1

您可以通过实现OLE消息筛选器来完成此操作。有关更多详细信息，请参阅this answer。

Answer 2

许多人不建议终止该进程；请参阅How to properly clean up Excel interop objects和Understanding Garbage Collection in .net

下面是我用来终止我创建的Excel实例的代码。您将需要对其进行一些重构以满足您的需求。您将看到如何使用Excel提供的窗口句柄获取进程ID。我想对于Word或Powerpoint来说，这个过程应该是一样的。

'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

Sub Work()

    'declare process; will be used later to attach the Excel process
    Dim 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)

    '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

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