VB.NET操作Excel遇文件锁定无法删除，读取后如何正确关闭？

你遇到的这个文件锁定问题，根源在于Excel的COM对象没有被完全释放——VB.NET里的Excel对象属于非托管的COM组件，不会像普通.NET对象那样自动被垃圾回收器（GC）清理，只要有一个对象没释放，后台就会残留Excel进程，死死占用着你的文件，导致无法删除或修改。

下面是具体的解决步骤和优化建议：

1. 严格按顺序释放所有Excel COM对象 #

读取完数据后，必须按创建顺序的逆序关闭并释放所有对象，不能有遗漏。这里给你整理了标准的释放流程：

' --- 读取数据完成后，执行以下清理逻辑 ---
' 1. 关闭工作簿（根据需求设置是否保存修改）
xlWorkBook.Close(SaveChanges:=False)
' 2. 退出Excel应用程序
xlApp.Quit()

' 3. 显式释放每个COM对象，顺序：Worksheet → Workbook → Application
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

' 4. 将对象置为Null，帮助GC识别需要回收的资源
xlWorkSheet = Nothing
xlWorkBook = Nothing
xlApp = Nothing

' 5. 手动触发垃圾回收，彻底清理残留资源
GC.Collect()
GC.WaitForPendingFinalizers()

2. 别忘了释放Range对象 #

你代码里用到的eRange也是一个COM对象，使用完后同样需要释放，否则也会导致进程残留：

' 使用完Range后立即释放
If eRange IsNot Nothing Then
    System.Runtime.InteropServices.Marshal.ReleaseComObject(eRange)
    eRange = Nothing
End If

3. 避免隐式创建多余的COM对象 #

你代码里的xlApp.Rows.End(Excel.XlDirection.xlDown).Row会隐式创建一个Range对象，不仅容易出错（比如获取的是整个Excel的最后一行，而非当前工作表的），还会增加未释放对象的风险。建议改成用当前工作表来获取行：

' 替换原来的bottomRange获取方式，改用工作表的Cells定位
Dim bottomRange As Integer = xlWorkSheet.Cells(xlWorkSheet.Rows.Count, "C").End(Excel.XlDirection.xlUp).Row

这种方式更精准（只针对当前工作表的C列），也不会生成多余的隐式COM对象。

4. 用Try-Finally确保异常场景下也能释放资源 #

如果读取Excel的过程中出现异常，正常的释放代码可能不会执行，导致对象残留。所以最好把所有Excel操作放在Try...Catch...Finally块中，在Finally里统一执行释放逻辑：

Dim xlApp As Excel.Application = Nothing
Dim xlWorkBook As Excel.Workbook = Nothing
Dim xlWorkSheet As Excel.Worksheet = Nothing
Dim eRange As Excel.Range = Nothing

Try
    ' 初始化Excel对象并读取数据
    xlApp = New Excel.Application
    xlWorkBook = xlApp.Workbooks.Open(Server.MapPath(SavePath & sFilename))
    xlWorkSheet = xlWorkBook.Sheets(1)
    Dim bottomRange As Integer = xlWorkSheet.Cells(xlWorkSheet.Rows.Count, "C").End(Excel.XlDirection.xlUp).Row
    eRange = xlWorkSheet.Range("C3:C" & bottomRange)
    
    ' 你的数据读取逻辑...
    
Catch ex As Exception
    ' 在这里处理异常（比如记录日志、提示错误）
Finally
    ' 不管有没有异常，都执行释放逻辑
    If eRange IsNot Nothing Then
        System.Runtime.InteropServices.Marshal.ReleaseComObject(eRange)
        eRange = Nothing
    End If
    If xlWorkSheet IsNot Nothing Then
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkSheet)
        xlWorkSheet = Nothing
    End If
    If xlWorkBook IsNot Nothing Then
        xlWorkBook.Close(SaveChanges:=False)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook)
        xlWorkBook = Nothing
    End If
    If xlApp IsNot Nothing Then
        xlApp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp = Nothing
    End If
    GC.Collect()
    GC.WaitForPendingFinalizers()
End Try

按照上面的方法修改后，Excel进程会被彻底关闭，文件锁定的问题应该就能解决了。

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