VBA导出工作表报错：运行时错误52及文件保存失败问题排查

一、错误原因拆解 #

• 运行时错误52：大概率是文件夹路径含非法字符、路径长度超Windows 260字符限制，或是文件夹名称用了系统保留词（比如CON、PRN这类）
• ActiveWorkbook.Save报错：注释Create_Folder后，目标文件夹不存在，或是保存路径/文件名非法，导致无法写入

二、分步修复代码 #

1. 修复Create_Folder子过程 #

先清除路径里的非法字符，再做长度校验，避免创建失败：

Sub Create_Folder(folderPath As String)
    ' 替换所有Windows禁止的路径字符
    Dim illegalChars As Variant
    illegalChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    Dim i As Integer
    For i = LBound(illegalChars) To UBound(illegalChars)
        folderPath = Replace(folderPath, illegalChars(i), "_")
    Next i
    
    ' 检查路径长度是否超标
    If Len(folderPath) > 255 Then
        MsgBox "路径太长，没法创建文件夹", vbCritical
        Exit Sub
    End If
    
    ' 文件夹不存在就创建
    If Dir(folderPath, vbDirectory) = "" Then
        MkDir folderPath
    End If
End Sub

2. 修复导出主过程 #

确保保存路径合法、文件夹已存在，同时处理文件名的非法字符：

Sub Export_Sheet_To_File()
    Dim targetSheet As Worksheet
    Dim saveFolder As String
    Dim saveFileName As String
    Dim fullSavePath As String
    
    ' 替换成你要导出的工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表")
    
    ' 先检查当前工作簿是否已保存（未保存的话路径为空）
    If ThisWorkbook.Path = "" Then
        MsgBox "先把当前工作簿存好再导出", vbExclamation
        Exit Sub
    End If
    
    ' 生成保存文件夹路径（当前工作簿目录下的「导出文件」子文件夹）
    saveFolder = ThisWorkbook.Path & "\导出文件"
    
    ' 调用修复后的创建文件夹过程
    Call Create_Folder(saveFolder)
    
    ' 处理工作表名里的非法字符，生成保存文件名
    saveFileName = Replace(targetSheet.Name, "/", "_") & ".xlsx"
    fullSavePath = saveFolder & "\" & saveFileName
    
    ' 复制工作表到新工作簿并保存
    targetSheet.Copy
    With ActiveWorkbook
        .SaveAs Filename:=fullSavePath, FileFormat:=xlOpenXMLWorkbook
        .Close SaveChanges:=False
    End With
End Sub

3. 额外排查项 #

• 确认当前用户对目标文件夹有读写权限，避免碰到权限锁
• 如果导出的文件可能重名，可加个判断：若文件已存在，提示用户重命名或自动加编号

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