Excel另存为宏在PC正常运行，Mac上触发运行时错误91

问题原因 #

运行时错误91（对象变量未设置）的核心原因是：Mac版Excel对Application.FileDialog(msoFileDialogSaveAs)的支持存在兼容性问题，在部分版本中该方法会返回Nothing，导致后续的With fPth块操作无有效对象可调用。

解决思路与修改方案 #

改用跨平台兼容的Application.GetSaveAsFilename方法替代FileDialog，该方法在Windows和Mac端均能稳定工作，且无需创建额外对象。

修改后的代码 #

Sub SaveWorkbookWithPreFilledName()
    Dim FileName As String
    FileName = Range("A1").Text & " " & Format(Date, "DDMMYY")
    Application.DisplayAlerts = False
    
    Dim savePath As Variant
    ' 使用跨平台的GetSaveAsFilename方法，预填文件名
    savePath = Application.GetSaveAsFilename( _
        InitialFileName:=FileName, _
        FileFilter:="Excel Workbook (*.xlsx), *.xlsx", _
        Title:="Save your File")
    
    ' 判断用户是否取消操作
    If savePath <> False Then
        ThisWorkbook.SaveAs FileName:=savePath, FileFormat:=xlOpenXMLWorkbook
    End If
    
    Application.DisplayAlerts = True
End Sub

关键调整说明 #

• 移除了FileDialog对象的创建逻辑，避免Mac端对象初始化失败的问题
• 使用GetSaveAsFilename直接获取用户选择的保存路径，同时通过InitialFileName参数预填指定文件名
• 保留了原有的文件名生成逻辑和保存格式设置，确保功能一致性
• 增加了对用户取消操作的判断（savePath <> False），避免后续代码报错

额外注意事项 #

• 确保Range("A1")中的文本不包含Mac系统禁止的文件名字符（如冒号:、斜杠/等），否则可能导致文件名预填失败
• 若需支持更多文件格式，可扩展FileFilter参数，格式为"格式名称 (*.后缀), *.后缀"，多个格式用逗号分隔

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