使用 Mac Excel VBA 另存为 pdf

我在 Mac OS 上使用 Excel VBA 保存为 PDF 有时不起作用。

它会给

“打印时出错”

then

“运行时错误‘1004’：应用程序定义或对象定义的错误”。

我的代码，昨天有效：

'a) For Windows

Dim wksSheet As Worksheet, PS As String

PS = Application.PathSeparator

If InStr(1, Application.OperatingSystem, "Windows") > 0 Then
    Set wksSheet = ActiveSheet
    wksSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
      ThisWorkbook.Path & PS & pdfName, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      False
    'Exit Sub

Else

'b) For MAC

    Dim pdfName As String, FullName As String

    pdfName = "Q - " & Range("F2").Value & " - " & Range("A2").Value & " - " & Range("B10").Text
    FullName = "/Users/" & QTGetUserNameMAC & "/Google Drive/ABC Pte Ltd/Q - Quotations/" _
      & pdfName & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullName _
      , Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
      :=False, OpenAfterPublish:=False

End If

我记录了宏并使用了我的代码中生成的代码（如下所示）。有用。但是，如果我删除代码中的最后一个“9”，则会出现上述错误。

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
  "/Users/" & QTGetUserNameMAC & "/Google Drive/ABC Pte Ltd/Q - Quotations/Q - VAS-Quote-QT190039.pdf" _
  , Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=False

我尝试使用 PathSeparator，再次使用最后一个“9”，它可以工作，但如果没有“9”，则会出现错误。

在创建自动 Excel 发票工具时，我自己一直在与这个问题作斗争。最大的问题是，在我工作的公司，每个人都使用 Mac，所以我必须发挥创造力。不幸的是，网上没有太多帮助（我也查看了 rondebruin 网站，该网站被提到了很多，但无济于事），但这对我有用，我认为它应该对你和任何以后会来的人有用。

要修复 Excel 不允许您保存到特定文件夹的问题，只需录制宏并执行您通常需要的步骤即可。就我而言，它们是：另存为，选择 PDF（在对话框中），选择您的文件夹（再次在对话框中）。 完成此操作后，打开 VBA 并查看它刚刚为您提供的录制宏的代码。 现在，您只需更改所需的详细信息，例如基于单元格值或工作表名称的 Pdf 名称，仅此而已。 执行宏后，macOS 会要求您授予 excel 权限，您只需接受即可，最重要的是您只需执行一次，然后它就会自动运行。

以下是我使用的代码片段，适用于 macOS Big Sur 版本 11.6 和 Excel 版本 16.54：

Sub Save_Invoice_to_Folder()

ChDir _
    "/Users/Example/Downloads/"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
    "/Users/Example/Downloads/" & "Invoice-" & Range("E3").Text & ".pdf" _
    , Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

End Sub

显然，将“示例”替换为您的用户名，并根据您的具体情况添加文件夹路径。