VB.NET程序关闭后Excel进程仍运行，如何仅关闭程序打开的Excel？

嗨，我刚好踩过这个坑，咱们一步步来搞定它！

首先，你之前的代码之所以关不掉Excel进程，核心问题是COM对象的引用没被彻底释放——.NET的垃圾回收器（GC）不会立刻清理Office这类COM对象，只把变量设为Nothing根本不够。而直接Kill所有EXCEL进程的方式又太粗暴，会误关用户自己打开的Excel文件。

下面给你两种靠谱的解决方案，优先用第一种，第二种作为兜底：

方案一：严格释放COM对象（推荐） #

这种方法从根源解决问题，确保所有Excel相关的COM引用都被正确释放。你需要导入System.Runtime.InteropServices命名空间，用Marshal类强制释放COM对象，再配合GC强制回收。

修改后的代码如下：

Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices

' 把Excel操作逻辑放在Try...Finally块里，确保出错也能释放资源
Sub ReadExcelFile()
    Dim aplicacaoexcel As Excel.Application = Nothing
    Dim livroexcel As Excel.Workbook = Nothing
    Dim folhaexcel As Excel.Worksheet = Nothing

    Try
        aplicacaoexcel = New Excel.Application()
        aplicacaoexcel.DisplayAlerts = False
        aplicacaoexcel.Visible = False

        ' 打开指定Excel文件
        livroexcel = aplicacaoexcel.Workbooks.Open(
            "C:\Users\LPO1BRG\Desktop\Software Fiabilidade\Tecnicos.xlsx",
            UpdateLinks:=False,
            ReadOnly:=False,
            Password:="qmm7",
            WriteResPassword:="qmm7"
        )
        folhaexcel = CType(livroexcel.Sheets("Folha1"), Excel.Worksheet)

        ' ---------------------------
        ' 这里写你的Excel读取逻辑
        ' ---------------------------

    Finally
        ' 按顺序释放资源：先释放工作表，再关闭工作簿，最后退出Excel应用
        ' 释放工作表
        If folhaexcel IsNot Nothing Then
            Marshal.FinalReleaseComObject(folhaexcel)
            folhaexcel = Nothing
        End If

        ' 关闭并释放工作簿
        If livroexcel IsNot Nothing Then
            livroexcel.Close(SaveChanges:=False) ' 根据你的需求设置是否保存
            Marshal.FinalReleaseComObject(livroexcel)
            livroexcel = Nothing
        End If

        ' 退出并释放Excel应用
        If aplicacaoexcel IsNot Nothing Then
            aplicacaoexcel.Quit()
            Marshal.FinalReleaseComObject(aplicacaoexcel)
            aplicacaoexcel = Nothing
        End If

        ' 强制GC两次回收，确保所有终结器执行完毕
        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers()
    End Try
End Sub

为什么这样有效？ #

• Try...Finally保证无论代码是否出错，资源都会被释放
• Marshal.FinalReleaseComObject直接告诉系统释放COM对象的引用，避免GC延迟回收
• 两次调用GC.Collect()和GC.WaitForPendingFinalizers()是为了彻底清理残留的COM引用

方案二：记录Excel进程ID，精准关闭（兜底） #

如果第一种方法还是偶尔出现进程残留，可以用这个方法：获取当前程序打开的Excel进程ID，只关闭这个进程，不会影响其他Excel实例。

你需要先导入System.Diagnostics和System.Runtime.InteropServices，然后通过Excel窗口的句柄获取进程ID：

Imports Excel = Microsoft.Office.Interop.Excel
Imports System.Runtime.InteropServices
Imports System.Diagnostics

' 声明API函数用于获取窗口对应的进程ID
<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
End Function

Sub ReadExcelWithProcessControl()
    Dim aplicacaoexcel As Excel.Application = Nothing
    Dim livroexcel As Excel.Workbook = Nothing
    Dim folhaexcel As Excel.Worksheet = Nothing
    Dim excelProcessId As Integer = 0

    Try
        aplicacaoexcel = New Excel.Application()
        aplicacaoexcel.DisplayAlerts = False
        aplicacaoexcel.Visible = False

        ' 获取当前Excel实例的进程ID
        GetWindowThreadProcessId(New IntPtr(aplicacaoexcel.Hwnd), excelProcessId)

        ' 打开Excel文件并处理逻辑
        livroexcel = aplicacaoexcel.Workbooks.Open(
            "C:\Users\LPO1BRG\Desktop\Software Fiabilidade\Tecnicos.xlsx",
            UpdateLinks:=False,
            ReadOnly:=False,
            Password:="qmm7",
            WriteResPassword:="qmm7"
        )
        folhaexcel = CType(livroexcel.Sheets("Folha1"), Excel.Worksheet)

        ' ---------------------------
        ' 这里写你的Excel读取逻辑
        ' ---------------------------

    Finally
        ' 先按方案一的方式释放资源
        If folhaexcel IsNot Nothing Then
            Marshal.FinalReleaseComObject(folhaexcel)
            folhaexcel = Nothing
        End If
        If livroexcel IsNot Nothing Then
            livroexcel.Close(SaveChanges:=False)
            Marshal.FinalReleaseComObject(livroexcel)
            livroexcel = Nothing
        End If
        If aplicacaoexcel IsNot Nothing Then
            aplicacaoexcel.Quit()
            Marshal.FinalReleaseComObject(aplicacaoexcel)
            aplicacaoexcel = Nothing
        End If

        ' 如果进程还没退出，就根据ID精准关闭
        If excelProcessId > 0 Then
            Try
                Dim targetProcess = Process.GetProcessById(excelProcessId)
                If Not targetProcess.HasExited Then
                    targetProcess.Kill()
                End If
            Catch ex As Exception
                ' 忽略进程已退出的异常
            End Try
        End If
    End Try
End Sub

注意事项 #

• 优先用方案一，因为Kill进程是比较粗暴的方式，可能会丢失未保存内容（不过你这里是读取操作，影响不大）
• 确保所有Excel相关变量都用强类型（别用Object，比如你之前的livroexcel As Object），强类型更容易跟踪引用

内容的提问来源于stack exchange，提问作者Paula Lopes