Excel VBA路径拼接代码PC端正常Mac端运行报1004错误

• 路径分隔符硬编码不兼容：Windows系统使用反斜杠\作为路径层级分隔符，macOS使用正斜杠/，代码中直接拼接\的写法在Mac端会被识别为非法文件名字符，导致路径解析失败。
• 缺少PDF文件扩展名：Windows版Excel调用导出功能时会自动为文件补充.pdf后缀，Mac版Excel无该默认逻辑，无后缀的文件路径会被判定为非法导出目标，触发1004错误。
• 导出参数不全触发沙盒拦截：Mac版Office运行在沙盒权限机制下，ExportAsFixedFormat方法必须显式声明OpenAfterPublish参数，缺省状态下会默认尝试打开导出后的文件，触发权限校验失败；部分旧版本Mac Excel还要求完整填写所有导出参数才能正常调用打印组件。
• 隐性单位识别偏差：代码中上下页边距直接写死数值10，未做显式单位转换，部分区域设置下的Mac Excel会误判单位，导致页边距参数超出可打印范围，间接引发出错。

使用VBA内置的跨平台常量替换硬编码的系统专属规则，补全Mac端要求的必填参数，同时增加基础校验逻辑，修改后的完整代码如下：

Option Explicit

Sub Create_PDFs_Loop_Updated()

Dim saveFileName As String
Dim Startcell As Long

Startcell = 13
'13 indicates the row where employee IDs start (A13 in Sheet1 [Employee Details])

' 前置校验：未保存的工作簿无有效路径，直接提示退出
If ThisWorkbook.Path = "" Then
    MsgBox "请先将当前Excel文件保存到本地磁盘后再运行本宏", vbExclamation
    Exit Sub
End If

With Application
    .ScreenUpdating = False
    .StatusBar = "Running Macro..."
    .DisplayAlerts = False
End With

Do Until Sheet1.Range("A" & Startcell).Value = ""
    
    With ActiveSheet.PageSetup
        '.Zoom = False
        '.FitToPagesWide = 1
        '.FitToPagesTall = 1
        ' 若上下边距10磅在Mac端触发参数错误，可替换为.CentimetersToPoints(0.35) 与原10磅值等长
        .BottomMargin = 10
        .TopMargin = 10
        .RightMargin = Application.CentimetersToPoints(1)
        .LeftMargin = Application.CentimetersToPoints(1)
    End With
    
    Sheet1.Range("A" & Startcell).Copy SSDest.Range("C9:D9")
    ' 自动适配系统路径分隔符，显式添加.pdf后缀
    saveFileName = ThisWorkbook.Path & Application.PathSeparator & _
        "Client Total Rewards Statement_" & SSDest.Range("B9").Value & ".pdf"
    ' 补全全量导出参数，显式关闭导出后打开的动作，适配Mac沙盒规则
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=saveFileName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
    Startcell = Startcell + 1
    
Loop

With Application
    .ScreenUpdating = True
    .StatusBar = ""
    .DisplayAlerts = True
End With

MsgBox "PDF导出完成", vbInformation

End Sub

注意事项 #

• Mac端第一次运行该宏时，系统会弹出文件夹权限申请提示，选择允许Excel访问工作簿所在文件夹即可正常写入文件，后续运行不会重复提示。
• 如果运行时仍报页边距相关错误，将代码中.BottomMargin = 10、.TopMargin = 10两行替换为Application.CentimetersToPoints(0.35)即可，数值与原10磅的边距长度完全一致，仅做显式单位声明避免系统误判。
• 不要将工作簿放在受系统保护的目录（比如Mac端的系统根目录、Windows的Program Files类目录），否则会因权限不足无法写入文件。

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