如何解锁被VB.NET代码锁定的Excel文件并删除？

我使用Windows 7 Professional、Visual Studio 2012和VB.NET维护一套无法迁移的遗留程序。测试Excel文件读取的错误处理逻辑后，Excel文件被锁定，无法打开或删除；虽可复制查看数据，但希望清理并删除这些文件。尝试过Unlocker工具，但无法解决问题。

原以为Finally块中的代码会释放Excel文件资源，但并未生效，相关代码如下：

Private Sub ImportExcelFile()

    Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet

    Dim ImportExcelSuccess As Boolean = False
    Dim listPriceChangeItems As New PriceChangeItemList

    Dim Item As New PriceChangeItem
    Dim strVendorProductNumber As String
    Dim strNewPrice As String

    Try

        If Not String.IsNullOrEmpty(filename) Then

            '****** Read in Excel file ********
            xlApp = New Excel.Application
            xlWorkBook = xlApp.Workbooks.Open(filename)
            xlWorkSheet = xlWorkBook.Worksheets("Sheet1")

            'Access the used range of the Excel file
            Dim usedRange As Excel.Range = xlWorkSheet.UsedRange
            Dim lastRow As Integer = usedRange.Rows.Count
            Dim lastColumn As Integer = usedRange.Columns.Count

            Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

            Dim dt As DataTable
            dt = New DataTable("Import")

            For row As Integer = 1 To lastRow

                If row = 1 Then

                    dt.Columns.Add("id", System.Type.GetType("System.Int32"))
                    dt.Columns.Add("name", System.Type.GetType("System.String"))
                    dt.Columns.Add("base_price", System.Type.GetType("System.Decimal"))
                    dt.Columns.Add("mfg_pn", System.Type.GetType("System.String"))
                    dt.Columns.Add("item_id", System.Type.GetType("System.Int32"))
                    dt.Columns.Add("new_price", System.Type.GetType("System.Decimal"))
                    dt.Columns.Add("price_change", System.Type.GetType("System.String"))

                ElseIf row > 1 Then

                    dt.Rows.Add(xlWorkSheet.Cells(row, 1).Value _
                                , xlWorkSheet.Cells(row, 2).Value _
                                , xlWorkSheet.Cells(row, 3).Value _
                                , xlWorkSheet.Cells(row, 4).Value _
                                , xlWorkSheet.Cells(row, 5).Value _
                                , xlWorkSheet.Cells(row, 6).Value _
                                , String.Format("{0:0.00%}", (xlWorkSheet.Cells(row, 6).Value - xlWorkSheet.Cells(row, 3).Value) / xlWorkSheet.Cells(row, 3).Value) _
                                )

                End If
            Next

            If (VerifyProducts(dt)) Then

                Dim app As frmBulkProductPriceChangeApproval = New frmBulkProductPriceChangeApproval(dt)
                app.WindowState = FormWindowState.Maximized
                app.Show()
            Else


            End If

        Else
            MessageBox.Show("Please select a file first.", "No file selected", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End If
    Catch ex As Exception
        MessageBox.Show("Error importing file.  " & ex.Message)
        WriteDebug("Error reading price change items.  Filename " & filename & ".")
        WriteError(ex)
        Item.ItemChangeError = True
        Item.ItemChangeErrorType = PriceChangeErrors.SystemGenerated
        Item.ItemChangeErrorMessage = ex.Message
    Finally
        CloseExcel(xlApp, xlWorkBook, xlWorkSheet)
    End Try
End Sub

Private Sub CloseExcel(ByVal xlApp As Excel.Application, ByVal xlWorkBook As Excel.Workbook, ByVal xlWorkSheet As Excel.Worksheet)
    Try
        xlWorkBook.Close()
        xlApp.Quit()

        releaseObject(xlApp)
        releaseObject(xlWorkBook)
        releaseObject(xlWorkSheet)
    Catch ex As Exception
        WriteDebug("Error closing excel file.  Filename " & filename & ".")
        WriteError(ex)
    End Try
End Sub

尝试删除文件时出现如下错误（任务管理器中无Excel进程，命令行删除也失败）：

临时解锁删除方案 #

• 重启资源管理器：打开任务管理器，找到「Windows资源管理器」进程，右键选择「重启」，之后再尝试删除文件。
• PowerShell强制删除：以管理员身份打开PowerShell，执行命令：Remove-Item "你的文件完整路径" -Force
• 排查隐藏进程：打开任务管理器「详细信息」标签，查找EXCEL.EXE进程（可能未显示在「应用」标签），找到后结束进程；若仍找不到，使用微软Sysinternals的Process Explorer工具，搜索文件路径定位占用进程并结束。
• 安全模式删除：重启电脑进入安全模式，直接删除锁定的文件。

修复代码资源释放问题（避免后续复发） #

当前代码的CloseExcel方法存在多处缺陷，导致COM资源未正确释放，进而锁定文件：

1. 释放顺序错误：应先释放底层对象（如Range、Worksheet），再关闭Workbook，最后退出Excel应用。
2. 未处理空对象：若初始化阶段出错，xlWorkBook或xlWorkSheet可能为Nothing，直接调用Close会触发异常，跳过后续释放步骤。
3. 遗漏Range对象释放：代码中使用的usedRange未显式释放，会持续持有文件锁。

修改后的完整代码：

Private Sub ImportExcelFile()
    Dim xlApp As Excel.Application = Nothing
    Dim xlWorkBook As Excel.Workbook = Nothing
    Dim xlWorkSheet As Excel.Worksheet = Nothing
    Dim usedRange As Excel.Range = Nothing ' 显式声明Range对象

    Dim ImportExcelSuccess As Boolean = False
    Dim listPriceChangeItems As New PriceChangeItemList
    Dim Item As New PriceChangeItem
    Dim strVendorProductNumber As String
    Dim strNewPrice As String

    Try
        If Not String.IsNullOrEmpty(filename) Then
            xlApp = New Excel.Application
            xlWorkBook = xlApp.Workbooks.Open(filename)
            xlWorkSheet = xlWorkBook.Worksheets("Sheet1")
            usedRange = xlWorkSheet.UsedRange

            Dim lastRow As Integer = usedRange.Rows.Count
            Dim lastColumn As Integer = usedRange.Columns.Count

            Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

            Dim dt As DataTable = New DataTable("Import")

            For row As Integer = 1 To lastRow
                If row = 1 Then
                    dt.Columns.Add("id", System.Type.GetType("System.Int32"))
                    dt.Columns.Add("name", System.Type.GetType("System.String"))
                    dt.Columns.Add("base_price", System.Type.GetType("System.Decimal"))
                    dt.Columns.Add("mfg_pn", System.Type.GetType("System.String"))
                    dt.Columns.Add("item_id", System.Type.GetType("System.Int32"))
                    dt.Columns.Add("new_price", System.Type.GetType("System.Decimal"))
                    dt.Columns.Add("price_change", System.Type.GetType("System.String"))
                ElseIf row > 1 Then
                    dt.Rows.Add(xlWorkSheet.Cells(row, 1).Value _
                                , xlWorkSheet.Cells(row, 2).Value _
                                , xlWorkSheet.Cells(row, 3).Value _
                                , xlWorkSheet.Cells(row, 4).Value _
                                , xlWorkSheet.Cells(row, 5).Value _
                                , xlWorkSheet.Cells(row, 6).Value _
                                , String.Format("{0:0.00%}", (xlWorkSheet.Cells(row, 6).Value - xlWorkSheet.Cells(row, 3).Value) / xlWorkSheet.Cells(row, 3).Value) _
                                )
                End If
            Next

            If VerifyProducts(dt) Then
                Dim app As frmBulkProductPriceChangeApproval = New frmBulkProductPriceChangeApproval(dt)
                app.WindowState = FormWindowState.Maximized
                app.Show()
            End If
        Else
            MessageBox.Show("Please select a file first.", "No file selected", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End If
    Catch ex As Exception
        MessageBox.Show("Error importing file.  " & ex.Message)
        WriteDebug("Error reading price change items.  Filename " & filename & ".")
        WriteError(ex)
        Item.ItemChangeError = True
        Item.ItemChangeErrorType = PriceChangeErrors.SystemGenerated
        Item.ItemChangeErrorMessage = ex.Message
    Finally
        CloseExcel(xlApp, xlWorkBook, xlWorkSheet, usedRange) ' 传入Range对象
    End Try
End Sub

Private Sub CloseExcel(ByVal xlApp As Excel.Application, ByVal xlWorkBook As Excel.Workbook, ByVal xlWorkSheet As Excel.Worksheet, ByVal usedRange As Excel.Range)
    Try
        ' 先释放Range对象
        If usedRange IsNot Nothing Then
            releaseObject(usedRange)
        End If

        ' 释放Worksheet
        If xlWorkSheet IsNot Nothing Then
            releaseObject(xlWorkSheet)
        End If

        ' 关闭Workbook，不保存修改
        If xlWorkBook IsNot Nothing Then
            xlWorkBook.Close(SaveChanges:=False)
            releaseObject(xlWorkBook)
        End If

        ' 退出并释放Excel应用
        If xlApp IsNot Nothing Then
            xlApp.Quit()
            releaseObject(xlApp)
        End If
    Catch ex As Exception
        WriteDebug("Error closing excel file.  Filename " & filename & ".")
        WriteError(ex)
    End Try
End Sub

' 确保releaseObject正确释放COM对象
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()
        GC.WaitForPendingFinalizers()
    End Try
End Sub

关键注意事项：

• 所有Excel COM对象（Application、Workbook、Worksheet、Range）必须按从底层到上层的顺序显式释放。
• releaseObject方法中调用垃圾回收相关方法，强制清理残留的COM对象引用。

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