私は答えを見つけたと思います。これは、職場の誰かが提案した解決策の 1 つです (誰かが役に立つと思ったら、すばらしいことです)。
AcroEXch クラス (または私が知っている一連のメソッド) には、非 PDF ファイルを PDF ファイルに変換するために使用できるメソッドはありません。代わりに、まず pdf Distiller を使用してファイルをポストスクリプトに変換し、次に PDFDistiller クラスを使用して pdf に書き込む必要があります。コードのスニペットを次に示します。
'1. PDF に変換されている Excel を開く:
xlReport.activate xlReport.range("a1").select
dim PdfFilePath PdfFilePath = ""
dim PsFilePath PsFilePath = ""
'2. Excel ファイルを Postscript ファイルに印刷 xlBook.activesheet.PrintOut , , 1, , "Adobe PDF on Ne01:" ,TRUE, , PsFilePath
Distiller Set oDistiller = CreateObject("PDFDistiller.PDFDistiller.1")
oDistiller.FileToPDF sPsFilePath、sPdfFilePath、""
' Excel を閉じます - 保存しないでください。'デバッグ用に 3 行以下をコメントアウト xlApp.displayalerts=false xlApp.quit set xlApp=nothing