Windows转Mac版Excel导出PDF的VBA代码适配咨询

下面是适配Mac环境的VBA代码，解决原代码在Mac上直接打印的问题，同时兼容跨平台路径差异：

Sub Save_PDF_Pay_Slip_Mac()
    Dim savePath As String
    Dim fileName As String
    Dim fullPath As String
    
    ' 按原逻辑拼接PDF文件名
    fileName = Sheet1.Range("H3").Value & _
               " - " & Sheet1.Range("H6").Value & _
               " - " & Sheet1.Range("C3").Value & ".pdf"
    
    ' 设置Mac下的保存路径（示例为默认文档目录下的TrackSlips文件夹）
    ' 可自定义为固定路径，如 "/Users/你的用户名/Documents/TrackSlips/"
    savePath = Application.DefaultFilePath & "/TrackSlips/"
    
    ' 检查目标文件夹是否存在，不存在则创建
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    ' 拼接完整保存路径
    fullPath = savePath & fileName
    
    ' 明确参数导出PDF，避免Mac环境下的默认打印行为
    Sheet14.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=fullPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
    
    MsgBox "Tracking Slip PDF File Created", vbOKOnly, "PDF File Message"
End Sub

关键修改说明 #

• 路径格式适配：Mac使用斜杠/作为路径分隔符，删除Windows专属的盘符（如E:\），改用Mac标准路径写法。
• 路径容错处理：新增文件夹存在性检查与创建逻辑，避免因目标目录不存在导致报错。
• 明确参数传递：完整声明ExportAsFixedFormat的参数名，避免Mac环境下因默认参数差异触发打印而非导出的行为。
• 通用性优化：使用Application.DefaultFilePath获取Excel默认保存路径，无需硬编码用户目录。

跨平台兼容版本（可选） #

如果需要代码同时支持Windows和Mac，可添加系统判断逻辑：

Sub Save_PDF_Pay_Slip_CrossPlatform()
    Dim savePath As String
    Dim fileName As String
    Dim fullPath As String
    
    fileName = Sheet1.Range("H3").Value & _
               " - " & Sheet1.Range("H6").Value & _
               " - " & Sheet1.Range("C3").Value & ".pdf"
    
    ' 根据系统选择对应路径规则
    If Application.OperatingSystem Like "*Mac*" Then
        savePath = Application.DefaultFilePath & "/TrackSlips/"
        If Dir(savePath, vbDirectory) = "" Then MkDir savePath
        fullPath = savePath & fileName
    Else
        ' Windows原路径逻辑
        savePath = "E:\TrackSlips\"
        fullPath = savePath & fileName
    End If
    
    Sheet14.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=fullPath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
    
    MsgBox "Tracking Slip PDF File Created", vbOKOnly, "PDF File Message"
End Sub

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