Excel VBA重命名文件报错：Invalid procedure call or argument(错误5)

可能的报错原因及解决步骤 #

• 路径与文件名问题：

  1. 检查A列（原文件名）和B列（新文件名）的内容，确保没有Mac系统禁止的特殊字符，比如冒号:、斜杠/等。
  2. 确认原文件确实存在于/Users/kenny/Documents/Foto/路径下，文件名拼写完全一致（注意Mac区分大小写）。

• 权限问题：
  打开Mac系统偏好设置→安全性与隐私→隐私→文件与文件夹，确保Excel被允许访问Documents文件夹。

• 改用更兼容的文件操作对象：
  原生Name语句在Mac上兼容性较差，建议使用FileSystemObject来处理文件重命名，同时增加文件存在性检查，避免报错。修改后的代码如下：

Sub RenameFiles()
    Dim myPath As String
    Dim fso As Object
    Dim r As Integer
    
    ' 创建FileSystemObject实例（后期绑定，无需额外引用）
    Set fso = CreateObject("Scripting.FileSystemObject")
    myPath = "/Users/kenny/Documents/Foto/"
    
    r = 2
    ' 循环处理每行的文件名
    Do Until IsEmpty(Cells(r, 1)) And IsEmpty(Cells(r, 2))
        ' 先检查原文件是否存在
        If fso.FileExists(myPath & Cells(r, 1).Value) Then
            ' 检查新文件是否已存在，防止覆盖
            If Not fso.FileExists(myPath & Cells(r, 2).Value) Then
                fso.MoveFile Source:=myPath & Cells(r, 1).Value, Destination:=myPath & Cells(r, 2).Value
            Else
                MsgBox "新文件「" & Cells(r, 2).Value & "」已存在，跳过该行", vbExclamation
            End If
        Else
            MsgBox "原文件「" & Cells(r, 1).Value & "」不存在，跳过该行", vbExclamation
        End If
        r = r + 1
    Loop
    
    ' 释放对象
    Set fso = Nothing
    MsgBox "重命名操作完成", vbInformation
End Sub

代码说明 #

• 用FileSystemObject替代Name语句，跨平台兼容性更好。
• 增加了原文件存在性检查和新文件重复检查，避免因文件不存在或重复导致的报错。
• 用消息框提示异常情况，方便排查问题。

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