使用 Visual Studio .NET 客户端执行自动化功能后不退出 Office 应用程序 代码

1.

vb.net

Imports Microsoft.Office.Interop

Private Sub NAR(ByVal o As Object)

Try

System.Runtime.InteropServices.Marshal.ReleaseComObject(o)

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)

GC.Collect()

Debug.WriteLine("SleepingCode

private void NAR(object o)

{

try

{

System.Runtime.InteropServices.Marshal.ReleaseComObject(o);

}

catch {}

finally

{

o = null;

}

}

exBook.Close(DBNull.Value, DBNull.Value, DBNull.Value)

exApp.Workbooks.Close()

exApp.Quit()

System.Runtime.InteropServices.Marshal.ReleaseComObject(exApp)

System.Runtime.InteropServices.Marshal.ReleaseComObject(exSheet)

System.Runtime.InteropServices.Marshal.ReleaseComObject(exBook)

exApp = Nothing

exBook = Nothing

exSheet = Nothing

GC.Collect()

参考文章:http://support.microsoft.com/?id=317109