将VBA从Windows转换为Mac以发布到桌面文件夹

Question

我在Windows上的Excel中使用以下宏：1）从Excel工作簿中获取每个选项卡，2）转换为PDF，3）放在桌面上名为“奖金计划”的文件夹中。我刚刚开始新工作，现在有了Mac，当我尝试运行宏时，出现错误“打印时出错”。谁能帮我转换脚本使其可以在Mac上运行？有人向我建议说Environ（“ userinfo”）部分可能是问题所在，但认为如此的人不知道如何为Mac进行更改。谢谢！

子GeneratePDFs（）

Dim ws As Worksheet

Dim Fname As String

For Each ws In ActiveWorkbook.Worksheets

    On Error Resume Next



Fname = Environ("userinfo") + "\Desktop\Bonus Schedules\" & ws.Name & " - Payout Schedule" & ".pdf"

ws.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False



Next ws

结束子