ExcelからPDFファイルを表示する

TOP > *      [...]


はじめに

Excel のVBA からAcrobat を起動し、PDFファイルを画面表示する簡単なサンプルです。

  • 参照設定を事前に行う。
  • 以下のサンプルはテスト用です。
    F8キーでステップ実行して動作確認します。

サンプル

001 Sub Acrobat_Show() 002 003 'Acrobatオブジェクトの定義&作成 004 ' Acrobat 4,5,6 の時 005 ' Dim objAcroApp As Acrobat.CAcroApp 006 ' Dim objAcroPDDoc As Acrobat.CAcroPDDoc 007 ' Set objAcroApp = CreateObject("AcroExch.App") 008 ' Set objAcroPDDoc = CreateObject(“AcroExch.PDDoc”) 009 ' Acrobat 7,8,9,10,11 の時 010 Dim objAcroApp As New Acrobat.AcroApp 011 Dim objAcroPDDoc As New Acrobat.AcroPDDoc 012 '以降はAcrobat全て共通 013 Const CON_FILE = "C:¥PDF¥iac_developer_guide.pdf" 014 015 'Acrobatを起動&表示する。 016 objAcroApp.Show 017 objAcroPDDoc.Open CON_FILE 018 objAcroPDDoc.OpenAVDoc CON_FILE 'PDFファイルを表示 019 020 'この後に終了処理をいれる必要がある。 021 022 End Sub


 Highlight:プログラミング言語のソースコードを構文で色分け (GUI編)
 

結果

Acrobatアプリケーションが起動され、そしてPDFドキュメントが画面表示されます。

ExcelからPDFファイルを表示する

備考

  • 本来は該当するPDFファイルが存在する事とファイルがPDFドキュメントである事の2点を事前チェックする必要があります。

TOPへ

「ExcelからPDFファイルを表示する」への2件のフィードバック

  1. Dim objAcroApp As New Acrobat.AcroApp 
      ⇒実行時、この場所にて
       「コンパイル エラー: ユーザ定義型は定義されていません。」
      となります。対処方法をご教授願います。

  2. しおかりsどうげ さん
    はじめまして。

    当ページの最初に書いている通りに
    参照設定を行ってください。
    なお、PC環境にAcrobat Pro がインストールされていると言う前提条件が有ります。

    解決につながれば幸いです。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

CAPTCHA


★ 文章での質問は難しいですよネ。でも、早く解決して、家に帰りたい。


SAMURAI Plugin

コメントをする時は出来れば以下もお願いします。

  • OS名 バージョン
  • Acrobat バージョン
  • ツール(Excel等) バージョン
コメントにサンプルコードを入れる時はコードを全て全角文字列にしてください。コチラで半角に戻します。それでもエラーが回避できない時はコメント下さい。個別に対処します。



お仕事で当サイトを見ている方へ
考え込んだら、ご質問下さい。
一緒に解決策を考えましょう。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください