使用EXCEL產生報表，再VB6時我們會使用CreateObject開始，
再以Set Nothing 結束，就OK了~
但在.NET並不是這麼簡單就可以釋放記憶體，
每執行一次，工作管理員又會產生一次EXCEL.EXE
網路上查到許多使用GC.Collect()來強制回收，
也有看到Kill Process的...
但這樣強制系統回收....總覺得這樣好像哪裡不妥，
若不到最後，我想我應該不會使用這方法去強制影響系統的運作，
而且這在Client端程式可以這樣執行，到Server端執行又不行~"~
一開始我還想說是權限問題~測了很久....
想說乾脆執行一次CreateObject，後續使用getObject重複使用該Object就好，結果...
又是Client可以，Server端不行，~"~
查到最後...是有Server.CreateObject 卻沒有 Server.GetObject
之後回歸最原始的方式，
再仔細看微軟的支援頁面，.NET 2.0之後可使用以下程式來回收記憶體
System.Runtime.InteropServices.Marshal.FinalReleaseComObject
我就從每一層結束都做FinalReleaseComObject，
結果發現，只寫以下就可以釋放EXCEL.EXE的記憶體
Dim xlapp
As Excel.
Application = Server.CreateObject(
"Excel.Application")
xlapp.Quit()
System.Runtime.InteropServices.
Marshal.FinalReleaseComObject(xlapp)
xlapp =
Nothing但只要再中間加上下列開啟檔案....
Dim xlBook
As Workbook = xlapp.Workbooks.Open(wkPath &
"\sample.xlsx")
xlBook.Close()
System.Runtime.InteropServices.
Marshal.FinalReleaseComObject(xlBook)
xlBook =
NothingEXCEL.EXE就會出現在工作管理員中屹立不搖...
之後再想到根本，EXCEL的組成元素如下，
Application、Workbooks、Workbook、Worksheet、Range
所以就每一層都SET NEW 用完都做FinalReleaseComObject
每一層都需要正常開始與結束就可以正確釋放記憶體
這樣寫CODE寫得有點複雜，不過記憶體真的可以正常釋放，
只要其中一個環節沒有做到EXCEL.EXE就會在工作管理員中，
範例是讀取現有EXCEL擋，之後修改內容後關閉儲存~
Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices.
Marshal Sub Excel()
Dim xlApp
As New Excel.
Application Dim xlBooks
As Excel.
Workbooks = xlApp.Workbooks
Dim xlBook = xlBooks.Open(
"D:\sample.xlsx")
Dim xlSheet
As Excel.
Worksheet = xlBook.ActiveSheet
Dim xlRange
As Excel.
Range xlApp.Visible =
False xlApp.DisplayAlerts =
False xlRange = xlSheet.Range(
"A1")
xlRange.Value = 123
FinalReleaseComObject(xlRange)
FinalReleaseComObject(xlSheet)
xlBook.Save()
xlBook.Close()
FinalReleaseComObject(xlBook)
FinalReleaseComObject(xlBooks)
xlApp.Quit()
FinalReleaseComObject(xlApp)
End
Sub參考資料：https://support.microsoft.com/default.aspx?scid=KB;EN-US;q317109&#appliesto
