4

创建 Excel 文件后，从任务管理器释放 Excel 时出现问题，从 C# 保存并关闭它。

我使用以下代码创建 Excel 实例：

 Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application();

Microsoft.Office.Interop.Excel.Workbook workbook = xlApp.Workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet);
Microsoft.Office.Interop.Excel.Worksheet worksheet = (Microsoft.Office.Interop.Excel.Worksheet)workbook.Worksheets[1];

然后我填充我的工作表：

worksheet.Cells[1, 1] = "Test";
worksheet.Cells[1, 2] = "Test";
worksheet.Cells[1, 3] = "Test";
worksheet.Cells[1, 4] = "Test";

之后我保存工作簿：

workbook.SaveAs(filePath);

然后关闭它：

workbook.Close(false, false);

然后退出 Excel：

xlApp.Quit();

但是在我这样做之后，Excel 仍然出现在任务管理器中！！！？！？

知道为什么在我调用 xlApp.Quit() 后它没有关闭吗？

提前致谢。

4

3 回答 3

6

也许您可以尝试删除 Interop 并使用EPPlus创建/修改 Excel 文件。这非常简单，并且不依赖于在计算机上安装 Office。

但是，如果您真的想使用 Interop，那么这可能会有所帮助（我一直在我的代码中使用它来确保一切都得到正确处理，因为我必须在几分钟内创建 800 多个 excel 文件）：

        workBook.Close(true, filePathTarget, Missing.Value);
        app.DisplayAlerts = true;
        app.Quit();
        Release(workSheet2);
        Release(workSheet1);
        Release(workBook);
        Release(workBooks);
        Release(app);
        workSheet2 = null;
        workSheet1 = null;
        workBook = null;
        workBooks = null;
        app = null;
        GC.Collect();
        GC.WaitForPendingFinalizers();

在哪里：

 private static 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.FinalReleaseComObject(obj);
        } catch {
        }
    }

但如果您只处理 XLSX 文件，我真的强烈建议您尝试使用 EPPlus。它运行良好，快速高效，并且不依赖于正在安装的 Microsoft Office。使用它一小时后，我在 5 分钟后放弃了 Interop……

于 2012-04-18T15:23:15.370 回答
0

您需要将 xlApp 变量设置为 null 以释放 COM 引用。可能是 COM 使实例保持打开状态，因为引用计数不为零。

xlApp = null;
于 2012-04-18T15:25:05.993 回答
0

我使用了一个看起来不干净但效果很好的 process.kill 方法。

dim xlHWND= Xlapp.Hwnd
Dim proc = Process.GetProcessesByName("excel")
For i As Integer = 0 To proc.Count - 1
     If proc(i).MainWindowHandle = xlHWND Then
          proc(i).Kill()
     End If
Next
于 2022-02-05T16:42:41.860 回答