如何正确清理Excel互操作对象？

常见的开发者，你们的解决方案都不适用于我，因此我决定实现一个新的技巧。

首先，让我们明确“我们的目标是什么？”=>“任务管理器中不再看到Excel对象”。

好吧。让我们开始摧毁它，但要考虑不破坏其他并行运行的Excel实例。

所以，获取当前进程列表并获取EXCEL进程的PID，然后一旦完成工作，我们在进程列表中有了一个新的客人，具有唯一的PID，请找到并仅销毁那个进程。

<请记住，在您的Excel工作期间任何新的Excel进程都将被检测到并销毁> <更好的解决方案是捕获新创建的Excel对象的PID并仅销毁该对象>

Process[] prs = Process.GetProcesses();
List<int> excelPID = new List<int>();
foreach (Process p in prs)
   if (p.ProcessName == "EXCEL")
       excelPID.Add(p.Id);

.... // your job 

prs = Process.GetProcesses();
foreach (Process p in prs)
   if (p.ProcessName == "EXCEL" && !excelPID.Contains(p.Id))
       p.Kill();

我一直按照VVS的回答中所提供的建议来操作。然而，为了保持这个答案与最新的选项同步，我认为所有未来的项目都将使用“NetOffice”库。

NetOffice是Office PIAs的完全替代品，完全不受版本限制。它是一组托管COM封装器，可以处理在.NET中使用Microsoft Office时常常导致头痛的清理工作。

其中一些关键特点包括：

• 大部分独立于版本（并且版本相关功能已经有文档说明）
• 无依赖性
• 无PIA
• 无需注册
• 无需VSTO

我与该项目没有任何关联; 我只是真正欣赏减少了问题的数量。

此外造成Excel没有关闭的原因之一，即使你在读取和创建对象时都直接引用了每个对象，是由于“For”循环导致的。

For Each objWorkBook As WorkBook in objWorkBooks 'local ref, created from ExcelApp.WorkBooks to avoid the double-dot
   objWorkBook.Close 'or whatever
   FinalReleaseComObject(objWorkBook)
   objWorkBook = Nothing
Next 

'The above does not work, and this is the workaround:

For intCounter As Integer = 1 To mobjExcel_WorkBooks.Count
   Dim objTempWorkBook As Workbook = mobjExcel_WorkBooks.Item(intCounter)
   objTempWorkBook.Saved = True
   objTempWorkBook.Close(False, Type.Missing, Type.Missing)
   FinalReleaseComObject(objTempWorkBook)
   objTempWorkBook = Nothing
Next

这里的被接受的答案是正确的，但需要注意的是不仅需要避免“两个点”的引用，还需要避免通过索引检索到的对象。您也不需要等到程序完成后才清理这些对象，最好创建函数，在您完成使用它们时立即清理它们。以下是我创建的一个函数，它分配了一个名为xlStyleHeader的样式对象的一些属性：

public Excel.Style xlStyleHeader = null;

private void CreateHeaderStyle()
{
    Excel.Styles xlStyles = null;
    Excel.Font xlFont = null;
    Excel.Interior xlInterior = null;
    Excel.Borders xlBorders = null;
    Excel.Border xlBorderBottom = null;

    try
    {
        xlStyles = xlWorkbook.Styles;
        xlStyleHeader = xlStyles.Add("Header", Type.Missing);

        // Text Format
        xlStyleHeader.NumberFormat = "@";

        // Bold
        xlFont = xlStyleHeader.Font;
        xlFont.Bold = true;

        // Light Gray Cell Color
        xlInterior = xlStyleHeader.Interior;
        xlInterior.Color = 12632256;

        // Medium Bottom border
        xlBorders = xlStyleHeader.Borders;
        xlBorderBottom = xlBorders[Excel.XlBordersIndex.xlEdgeBottom];
        xlBorderBottom.Weight = Excel.XlBorderWeight.xlMedium;
    }
    catch (Exception ex)
    {
        throw ex;
    }
    finally
    {
        Release(xlBorderBottom);
        Release(xlBorders);
        Release(xlInterior);
        Release(xlFont);
        Release(xlStyles);
    }
}

private void Release(object obj)
{
    // Errors are ignored per Microsoft's suggestion for this type of function:
    // http://support.microsoft.com/default.aspx/kb/317109
    try
    {
        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj);
    }
    catch { } 
}

在尝试了以下操作后：

1. 以相反的顺序释放COM对象
2. 在结尾处两次添加GC.Collect()和GC.WaitForPendingFinalizers()
3. 不超过两个点
4. 关闭工作簿并退出应用程序
5. 以发布模式运行

对我有效的最终解决方案是移动一个组。

GC.Collect();
GC.WaitForPendingFinalizers();

private void FunctionWrapper(string sourcePath, string targetPath)
{
    try
    {
        FunctionThatCallsExcel(sourcePath, targetPath);
    }
    finally
    {
        GC.Collect();
        GC.WaitForPendingFinalizers();
    }
}

我完全按照这个做了...但是有时候还是会出现1/1000的问题，谁知道为什么。看来得拿出“锤子”了...

在Excel应用程序类被实例化后，我立刻获取了刚创建的Excel进程。

excel = new Microsoft.Office.Interop.Excel.Application();
var process = Process.GetProcessesByName("EXCEL").OrderByDescending(p => p.StartTime).First();

完成所有上述的 COM 清理后，我会确保该进程不再运行。如果它仍在运行，就结束它！

if (!process.HasExited)
   process.Kill();

¨°º¤ø„¸ 熟练使用Excel并解决问题 ¸„ø¤º°¨

public class MyExcelInteropClass
{
    Excel.Application xlApp;
    Excel.Workbook xlBook;

    public void dothingswithExcel() 
    {
        try { /* Do stuff manipulating cells sheets and workbooks ... */ }
        catch {}
        finally {KillExcelProcess(xlApp);}
    }

    static void KillExcelProcess(Excel.Application xlApp)
    {
        if (xlApp != null)
        {
            int excelProcessId = 0;
            GetWindowThreadProcessId(xlApp.Hwnd, out excelProcessId);
            Process p = Process.GetProcessById(excelProcessId);
            p.Kill();
            xlApp = null;
        }
    }

    [DllImport("user32.dll")]
    static extern int GetWindowThreadProcessId(int hWnd, out int lpdwProcessId);
}

请注意，Excel非常敏感于您正在运行的文化环境。

在调用Excel函数之前，您可能需要将文化环境设置为EN-US。这不适用于所有函数，但适用于其中一些。

    CultureInfo en_US = new System.Globalization.CultureInfo("en-US"); 
    System.Threading.Thread.CurrentThread.CurrentCulture = en_US;
    string filePathLocal = _applicationObject.ActiveWorkbook.Path;
    System.Threading.Thread.CurrentThread.CurrentCulture = orgCulture;

一篇关于释放COM对象的好文章是2.5 释放COM对象（MSDN）。

我推荐的方法是，如果Excel.Interop引用不是局部变量，则将其设置为null，然后调用GC.Collect()和GC.WaitForPendingFinalizers()两次。局部作用域的Interop变量将自动处理。

这样就不需要为每个COM对象保留一个命名引用了。

下面是一篇文章中的例子：

public class Test {

    // These instance variables must be nulled or Excel will not quit
    private Excel.Application xl;
    private Excel.Workbook book;

    public void DoSomething()
    {
        xl = new Excel.Application();
        xl.Visible = true;
        book = xl.Workbooks.Add(Type.Missing);

        // These variables are locally scoped, so we need not worry about them.
        // Notice I don't care about using two dots.
        Excel.Range rng = book.Worksheets[1].UsedRange;
    }

    public void CleanUp()
    {
        book = null;
        xl.Quit();
        xl = null;

        GC.Collect();
        GC.WaitForPendingFinalizers();
        GC.Collect();
        GC.WaitForPendingFinalizers();
    }
}

以下文字摘自文章：

在几乎所有情况下，将RCW引用设为null并强制进行垃圾回收即可进行清理。如果您还调用GC.WaitForPendingFinalizers，则垃圾回收将尽可能地确定性。也就是说，在第二次调用WaitForPendingFinalizers后返回的时候，您就可以相当确定对象已经被清理了。作为替代方案，您可以使用Marshal.ReleaseComObject。但需要注意的是，您几乎不太可能需要使用此方法。