Mac下Excel宏实现指定工作表导出PDF的问题求助

原代码的核心问题 #

• 未指定Range("C6")所属的工作表，若运行宏时激活的不是Sheet3，会读取错误单元格的值
• Mac版Excel中部分VBA常量（如xlTypePDF、xlQualityMinimum）可能未被正确识别，需用对应数值替代
• 仅指定文件名未明确存储路径，Mac版Excel可能因默认路径权限问题导出失败

修正后的代码 #

Sub PrintToPDF()
    Dim NoDepArr As String
    Dim savePath As String
    
    ' 明确读取Sheet3的C6单元格值
    NoDepArr = ThisWorkbook.Sheets("Sheet3").Range("C6").Value
    
    ' 指定Mac上的存储路径（示例：文档文件夹，可根据需求修改）
    savePath = MacScript("return POSIX path of (path to documents folder as string)") & NoDepArr & " Contract.pdf"
    
    ' 使用数值替代常量，避免Mac版常量未定义问题
    ThisWorkbook.Sheets("Sheet3").ExportAsFixedFormat _
        Type:=0, ' xlTypePDF的数值为0
        Filename:=savePath, _
        Quality:=0, ' xlQualityMinimum的数值为0
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

关键修改说明 #

• 明确指定ThisWorkbook.Sheets("Sheet3")来引用目标工作表，避免因激活工作表变化导致的错误
• 通过MacScript获取系统文档文件夹路径，确保导出路径有写入权限，也可自行修改为其他路径（如桌面：path to desktop folder）
• 用数值替代VBA常量，解决Mac版Excel中常量未定义的兼容性问题

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