「PDFファイルを表示する」

Excel2000でAcrobat5用に作ったものだが、多分 どのバージョンでも動きます。ただし、参照設定は多少違うので注意。

' 参照設定：Adobe Acrobat 5.0 Type Library
Public Sub ShowPDFFile()
    Const FName As String = "F:\Book1.pdf"
    Dim AcroApp As Acrobat.CAcroApp
    Dim AVDoc As Acrobat.CAcroAVDoc
    Dim R1 As Long

    Set AcroApp = CreateObject("AcroExch.App")
    AcroApp.Show
    ' PDFファイルを開く
    Set AVDoc = CreateObject("AcroExch.AVDoc")
    R1 = AVDoc.Open(FName, "")
    MsgBox "開きました。これから閉じます。"

    ' PDFファイルを閉じる
    AVDoc.Close CLng(False)
    AcroApp.Exit
End Sub

Acrobatがインストールされていることが前提。

[Mr.BelieのページのHomeへ]