2

Excel シートから PDF ドキュメントへの変換を自動化しようとしています (Excel で生成されたレポートを毎朝 PDF ドキュメントとして手動で印刷したくありません)。今のところ、マクロを実行してPDFドキュメントを自動的に生成するボタンをExcelで作成したいと考えていますが、このボタンは最終的には使用されません。

私もVBは初めてですが、AcroEXch SDKを読んでいます。AcroEXch.PDDoc.Create を使用する必要があるようですが、これは正しくありません (新しい PDF ドキュメントとして印刷/作成する入力ファイルを指定できないため)。

新しいpdfファイルを作成する方法について何かアイデアはありますか? 前もって感謝します。

4

3 に答える 3

1

私は答えを見つけたと思います。これは、職場の誰かが提案した解決策の 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

于 2008-10-21T17:18:37.057 に答える
0

あなたの状況やアクセスできるツールは正確にはわかりませんが、説明を読むと、クリックするだけでExcelファイルを変換したいようです。

Adobo Acrobat Professional、最新バージョンのExcel、または市場で入手可能な他のコンバーターがあるかどうかを投稿しておくと役に立ちます。

Acrobat Proがインストールされている場合、Officeアプリ(Word、Excel、Outlookなど)のツールバーには既に[PDFに変換]ボタンがあり、Excelコマンドライン引数と組み合わせて作成するのはそれほど難しくありません。定期的にExcelファイルを変換するWindowsスケジュールタスク。

于 2008-10-21T23:39:30.843 に答える
-1

CuteFTP または PDFCreator を検討しましたか。どちらも無料です。VBA で PDFCreator を使用して成功しましたが、CuteFTP が優れていると聞きました。

于 2008-10-21T09:50:10.767 に答える