2

私のマクロを以下に示します。Excelシートをpdfドキュメントに保存しようとしています。マクロを実行すると、「印刷中にエラーが発生しました」というメッセージが表示され、続いて次のメッセージが表示されます: 実行時エラー '1004': アプリケーション定義またはオブジェクト定義のエラー

Microsoft Excel for Mac バージョン 15.13.1 を実行しています。

これが私のマクロです。なにが問題ですか？

Sub SAVE_DIRECTORY_IN_PDF_FORMAT()
Dim DIRECTORY As Worksheet
Dim DIRECTORY2 As Worksheet

Sheets("DIRECTORY").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="DIRECTORY.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False

Sheets("DIRECTORY2").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="DIRECTORY with Emails.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
4

4 に答える 4

1

同じ問題に遭遇しましたが、これは Excel 2016 for Mac の問題であることに同意し、解決策があると思います (信じられないほどエレガントではありませんが)。

新しい PDF ファイルを作成するのではなく、既存の PDF ファイルを上書きすると、問題が解決するようです。したがって、解決策は、目的の .pdf パスを使用してワークブックで SaveAs を実行し、次に ExportAsFixedFormat を同じパスに実行してから、ワークブックを元のパスに再保存することでした (必要な場合)...

Dim currentPath As String

currentPath = Application.ActiveWorkbook.FullName

ActiveWorkbook.SaveAs Filename:="DIRECTORY.pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="DIRECTORY.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False

ActiveWorkbook.SaveAs Filename:=currentPath
于 2015-09-25T08:37:33.423 に答える
0

PDF を上書きするソリューションは、MS Excel 2016 の最新の更新 15.15 ではまだ機能せず、「印刷中にエラーが発生しました」というメッセージが表示されます - 2011 は正常に機能します。彼らがこの VBA システムを変更することにした理由 - 神のみぞ知る

于 2015-10-16T08:52:32.223 に答える
0

ファイル名には、ファイルのパスを含めるようにしてくださいFilename:="C:\Users\inm\Desktop\DIRECTORY.pdf"。

于 2015-08-21T16:57:34.690 に答える