Excel 在PC和Mac上将工作表另存为PDF

在尝试在Apple Mac Office 2016上运行“将活动工作表保存为PDF”这样的简单功能时，我遇到了下面的代码

但是，虽然它在Windows上运行良好，但在Mac上失败，出现“打印时出错”消息，随后出现运行时错误1004:对象“\u工作表”的方法“ExportAsFixedFormat”失败

我尝试过许多变化，但似乎没有一个奏效

Sub CreatePDF()
Dim wksSheet As Worksheet
Dim TheOS As String

TheOS = Application.OperatingSystem

If InStr(1, TheOS, "Windows") > 0 Then
  Set wksSheet = ActiveSheet
        wksSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "\" & "Sheet1 on Windows", Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                False
        Exit Sub

Else
  Set wksSheet = ActiveSheet
        wksSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & ":" & "Sheet1 on Mac", Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                False
        Exit Sub
   End If

---

你能试着用“S1M”替换“Mac上的Sheet1”（在文件名中）吗？我不知道这会不会有什么不同。唉，没有变化。将“Mac上的Sheet1”更改为“S1M”后仍会收到确切的错误消息…工作表名是否为？您可以尝试将其重命名为简单的工作表吗？我想这里描述了问题（以及解决方法）（第一个答案）：如果我更改上述代码并注释掉设置工作表行，然后更改工作表。导出。。。到ActiveSheet.Export…，并删除换行符“\u1”，运行时错误将更改为“应用程序定义或对象定义错误”