在 Windows 和 Mac 上将 Excel 文件另存为 PDF答案

【问题标题】：Saving an Excel File as PDF on both Windows and Mac在 Windows 和 Mac 上将 Excel 文件另存为 PDF
【发布时间】：2015-01-24 21:37:57
【问题描述】：

我创建了一个宏来将我的工作表导出为 PDF，但是公司中的一些用户使用 Mac OS。当这些用户尝试保存时，它会给他们一个错误。如何让 Win 和 Mac 用户使用同一个 PDF 导出？

这是我当前的代码：

Sub CreatePDF()
    Dim wksSheet As Worksheet
        Set wksSheet = ActiveSheet
            wksSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "\" & Range("exportName"), Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                False
End Sub

【问题讨论】：

标签： windows macos vba excel

【解决方案1】：

我在 SO 上找不到这个问题的答案，但偶然发现了这个解决方法来分享：

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 & "\" & Range("exportName"), Quality:=xlQualityStandard, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                    False
            Exit Sub

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

   End Sub

【讨论】：

【解决方案2】：

VBA 也有 Application.PathSeparator。

http://msdn.microsoft.com/en-us/library/office/ff820973%28v=office.15%29.aspx

【讨论】：