正文
调用office COM出现不会退出的问题
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
症状
在使用.net调用 Microsoft Office 应用程序时，Office 应用程序在调用Quit方法时不会退出。
原因
Visual Studio.NET 从托管代码调用 COM 对象时，它会自动创建运行时可调用包装 (RCW)。RCW 将.NET 应用程序和 COM 对象之间的调用封送。RCW 保持该 COM 对象上的引用计数。因此，如果尚未释放 RCW 上的所有引用，COM 对象不会退出。
解决方案
若要确保 Office 应用程序将退出，确保自动化代码满足以下条件：
- 将每个对象声明为新变量。例如，将下面的代码行的更改
oBook = oExcel.Workbooks.Add()
更改后：
dim oBooks as Excel.Workbooks
oBooks = oExcel.Workbooks
oBook = oBooks.Add() - 在循环中使用System.Runtime.InteropServices.Marshal.ReleaseComObject ，直到完成后使用的对象，则返回 0。System.Runtime.InteropServices.Marshal.ReleaseComObject递减 RCW，而该环路的引用计数将确保不管如何释放基础 COM 组件很多时候它已重新进入 CLR。
- 若要解除对变量的引用，设置为空值或空值的变量等。
- 使用 Office 应用程序对象的Quit方法告诉服务器关闭。
示例Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oApp As New Excel.Application()
Dim oBooks As Excel.Workbooks = oApp.Workbooks
Dim oBook As Excel.Workbook = oBooks.Add
Dim oSheet As Excel.Worksheet = oApp.ActiveSheet NAR(oSheet)
oBook.Close(False)
NAR(oBook)
NAR(oBooks)
oApp.Quit()
NAR(oApp) Debug.WriteLine("Sleeping...")
System.Threading.Thread.Sleep(5000)
Debug.WriteLine("End Excel")
End SubPrivate Sub NAR(ByVal o As Object)
Try
While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
End While
Catch
Finally
o = Nothing
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim oApp As New Excel.Application()
Dim oBooks As Excel.Workbooks = oApp.Workbooks
Dim oBook As Excel.Workbook = oBooks.Add
Dim oSheet As Excel.Worksheet = oApp.ActiveSheet NAR(oSheet)
oBook.Close(False)
NAR(oBook)
NAR(oBooks)
oApp.Quit()
NAR(oApp) Debug.WriteLine("Sleeping...")
System.Threading.Thread.Sleep(5000)
Debug.WriteLine("End Excel")
End SubPrivate Sub NAR(ByVal o As Object)
Try
While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
End While
Catch
Finally
o = Nothing
End Try
End Sub
如果您使用的 Visual C#.NET，引用NAR()函数的代码：
private void NAR(object o)
{
try
{
while (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > ) ;
}
catch {}
finally
{
o = null;
}
}
注：从开始.NET Framework 2.0，您可以使用System.Runtime.InteropServices.Marshal.FinalReleaseComObject来代替 while 循环调用System.Runtime.InteropServices.Marshal.ReleaseComObject来实现相同的结果。
故障排除
请注意，如果您按照中所述的步骤"步骤重现行为"一节，并在服务器仍然没有关闭向下，您可以使用GC。Collect()方法和GC。WaitForPendingFinalizers()后释放的最后一个对象的方法。因为运行库对GC，RCW 执行垃圾回收。Collect()方法强制垃圾回收器在运行，并可能释放任何仍有 RCW 的引用。GC。Collect()方法尝试回收可用的最大内存。请注意，这不能保证所有内存都被都回收。
