VBA代码合并旧xlsx文件仅处理前8个就报错如何解决？

排查优先级顺序 #

• 定位第9个待处理文件的异常：运行固定卡在第8个文件之后，优先找到按文件名排序的第9个xlsx文件，手动执行以下检查：
  • 是否可以正常打开、无加密、无损坏、非0字节
  • 文件名是否包含[]、*、?、/等特殊字符，VBA的Dir和Workbooks.Open对特殊字符兼容性差
  • 文件是否被OneDrive锁定、被其他程序占用，可将整个文件夹复制到本地非同步目录测试
  • 内部工作表是否和当前主工作簿已有工作表重名，工作表重名会直接导致Copy操作抛出1004错误
• 补充错误捕获定位具体问题：替换原有代码为带错误捕获的版本，运行后会直接提示报错的文件名和错误原因，精准定位问题：

Sub TransferToMaster()
    Dim Path            As String
    Dim FileName        As String
    Dim Wkb             As Workbook
    Dim WS              As Worksheet
    Dim i               As Integer
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    ' 自动处理路径末尾的斜杠，避免拼接错误
    Path = "C:\Users\james\OneDrive\Desktop\Invoices Jones UK Group\Paid\JJ0300-JJ0399"
    Path = IIf(Right(Path, 1) = "\", Path, Path & "\")
    
    FileName = Dir(Path & "*.xlsx", vbNormal)
    Do Until FileName = ""
        On Error Resume Next
        Set Wkb = Workbooks.Open(FileName:=Path & FileName)
        If Err.Number <> 0 Then
            MsgBox "打开文件失败：" & FileName & vbCrLf & "错误原因：" & Err.Description
            Err.Clear
            FileName = Dir()
            On Error GoTo 0
            GoTo ContinueLoop
        End If
        On Error GoTo 0
        
        For Each WS In Wkb.Worksheets
            On Error Resume Next
            ' 复制前自动重命名避免重名
            WS.Name = WS.Name & "_" & Replace(FileName, ".xlsx", "") & i
            WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            If Err.Number <> 0 Then
                MsgBox "复制工作表失败，所属文件：" & FileName & "，工作表名：" & WS.Name & vbCrLf & "错误原因：" & Err.Description
                Err.Clear
            End If
            On Error GoTo 0
            i = i + 1
        Next WS
        Wkb.Close False
ContinueLoop:
        FileName = Dir()
    Loop
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    MsgBox "处理完成"
End Sub

• 其他常见原因排查：
  • 检查是否有隐藏的系统文件匹配到了后缀规则，可在文件夹选项中开启「显示隐藏的文件、文件夹和驱动器」，关闭「隐藏受保护的操作系统文件」，确认目录下没有非Excel文件匹配后缀
  • 检查主工作簿是否有工作表数量上限，Excel单工作簿默认最多支持255个工作表，若合并的Sheet数量超过上限也会报错

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