应用程序未从任务管理器中发布[重复]

Question

我正在尝试将一些数据从我的 windowsform 写入 Excel 文件，这可行。

        ' Excel load data
    Dim oExcelApp As New Microsoft.Office.Interop.Excel.Application
    Dim oWorkBook As Microsoft.Office.Interop.Excel.Workbook
    Dim oWorkSheet As Microsoft.Office.Interop.Excel.Worksheet

    oWorkBook = oExcelApp.Workbooks.Open("C:\Temp\Test.xlsx")
    oWorkSheet = oWorkBook.Worksheets(1)

    oWorkSheet.Range("A1").Value = "Test"

    oWorkBook.Save()
    oWorkBook.Close()

问题是：完成后Excel 仍在我的任务管理器中运行。当我按 10 次按钮时，我的任务管理器中有 10 个 Excel 引用。

问题：将值写入Excel 后，如何完全卸载Excel？

Answer 1

您需要QuitMicrosoft Excel 然后释放对象。

此答案引用的代码：The proper way to dispose Excel com object using VB.NET? 和 Excel application not quitting after calling quit

'Excel load data
Dim oExcelApp As New Microsoft.Office.Interop.Excel.Application
Dim oWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim oWorkSheet As Microsoft.Office.Interop.Excel.Worksheet

oWorkBook = oExcelApp.Workbooks.Open("C:\Temp\Test.xlsx")
oWorkSheet = oWorkBook.Worksheets(1)

oWorkSheet.Range("A1").Value = "Test"

oWorkBook.Save()
oWorkBook.Close()

oExcelApp.Quit()

'Release object references.
releaseObject(oWorkSheet)
releaseObject(oWorkBook)
releaseObject(oExcelApp)

----------------------------------------------------------------------------
Private Sub releaseObject(ByVal obj As Object)
    Try
        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
        obj = Nothing
    Catch ex As Exception
        obj = Nothing
    Finally
        GC.Collect()
    End Try
End Sub

Answer 2

您必须关闭刚刚打开的连接。您可以通过在当前代码后添加这一行来做到这一点：

oExcelApp.Quit();

来源和更多信息：here

有关quit() 方法here 的更多信息。

重要提示：如果您有打开的工作簿尚未保存，此方法将显示一个对话框要求保存。

如果您不希望这样，您必须 (1)：保存所有打开的工作簿或 (2) 将 DisplayAlerts 设置为 false。

(1)

workbooks.Save()

(2)

oExcelApp.DisplayAlerts = false