VBA实现.xlsm转.xlsx时删除原文件失败的问题求助

原代码的删除失败问题，核心原因是文件句柄未完全释放或错误处理逻辑不完善，导致Excel仍占用XLSM文件锁。以下是修复后的代码及关键改进说明：

修复后的VBA代码 #

Private Sub CommandButton1_Click()
    Dim FullPath As String
    Dim wb As Workbook
    Dim originalPath As String
    
    MsgBox "转换完成后会有提示，请等待"

    ' 先保存当前工作簿的最新状态
    ThisWorkbook.Save
    
    ' 动态获取目标副本路径（替换为你的实际路径，这里用原文件路径生成XLSM副本）
    originalPath = ThisWorkbook.FullName
    FullPath = Left(originalPath, InStrRev(originalPath, ".")) & "xlsm"

    On Error GoTo Cleanup

    ' 保存当前工作簿为XLSM副本
    ThisWorkbook.SaveCopyAs FullPath

    ' 关闭Excel提示和屏幕刷新，提升稳定性
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    ' 打开XLSM副本
    Set wb = Workbooks.Open(FullPath)
    ' 另存为XLSX格式（使用常量替代数字，可读性更强）
    wb.SaveAs Left(FullPath, Len(FullPath) - 1) & "x", FileFormat:=xlOpenXMLWorkbook
    ' 关闭工作簿并显式释放对象，确保文件锁被释放
    wb.Close SaveChanges:=False
    Set wb = Nothing
    
    ' 加入重试机制，应对文件锁延迟释放的情况
    Dim retryCount As Integer
    retryCount = 3
    Do While retryCount > 0
        On Error Resume Next
        Kill FullPath
        If Err.Number = 0 Then Exit Do
        Err.Clear
        retryCount = retryCount - 1
        Application.Wait Now + TimeValue("00:00:01") ' 等待1秒后重试
        On Error GoTo Cleanup
    Loop
    
    ' 提示结果
    If retryCount = 0 Then
        MsgBox "警告：XLSM文件删除失败，请手动清理"
    Else
        MsgBox "转换完成"
    End If

Cleanup:
    ' 恢复Excel默认设置，无论成功失败都执行
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    ' 输出错误信息以便调试
    If Err.Number <> 0 Then
        MsgBox "转换出错：" & Err.Description
        Debug.Print Err.Number & " - " & Err.Description
    End If
End Sub

关键改进点 #

• 显式释放工作簿对象：关闭wb后执行Set wb = Nothing，强制Excel释放文件句柄，避免锁残留
• 重试删除机制：针对文件锁延迟释放的场景，加入3次重试+1秒等待，大幅提升删除成功率
• 完善的错误恢复：无论流程是否出错，都会恢复DisplayAlerts和ScreenUpdating，防止Excel处于异常状态
• 动态路径生成：避免硬编码路径，用当前工作簿路径生成副本，适配不同文件位置
• 可读性优化：用xlOpenXMLWorkbook替代数字51，代码更易维护

额外注意事项 #

• 确保Excel拥有目标文件夹的写入和删除权限，否则删除操作会失败
• 转换前关闭所有可能占用该文件的进程（如其他Excel窗口、Power Automate的预览进程）
• 如果Power Automate需要读取转换后的XLSX，可在转换完成后加入1-2秒等待，确保文件完全写入磁盘

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