VBAを使用してAcrobatファイルを開く

Question

フォーラムスレッドから読んでいた： https://forums.adobe.com/thread/604177 そして実験を開始しました。しかし、私は関数が全くロードしないと思う。その理由が何の裏にあるのかはっきりしていませんでした。私は単純で、おそらくライブラリに関連していなければならないと思います。誰かが、次のコードがまったくコンパイルに失敗した理由を指摘することができます（コードは、ブレークポイントがトリガーされていないため、実行時に実行されなかったようです）。私がロードされている

ライブラリは

• のAcrobat Distillerを
• Adob​​e Acrobatの10.0タイプライブラリ
• Acrobatのスキャン1.0タイプライブラリこのコードは上で実行される

コンピュータが持っているアクロバットが含まれますプロフェッショナルはそれにインストールされます

Public Function GetPDF() '(FilePath As String) As Object 
    Dim origPdf As Acrobat.AcroPDDoc 
    Dim path1 As String 
    MsgBox ("Start") 

    path1 = Application.ActiveWorkbook.Path 
    path1 = path1 & "\31700100.pdf" 

    Set origPdf = CreateObject("AcroExch.PDDoc") 

    If origPdf.Open(path1) Then 
     MsgBox ("weee") 
    End If 

    origPdf.Close 
    Set origPdf = Nothing 
End Function 

Answer 1

開く文書では、Acrobat Appオブジェクトを持っているあなたを必要とします。このコードは、関数内にappオブジェクトがあると機能します。

Public Function GetPDF (FilePath As String) As Object 
    Dim ArcoApp As New Acrobat.AcroApp 
    Dim OriPdf As New Acrobat.AcroPDDoc 

    Set ArcoApp = CreateObject("AcroExch.App") 
    Set OriPdf = CreateObject("AcroExch.PDDoc") 

    If OriPdf.Open(FilePath) Then 
     MsgBox ("weee") 
    End If 

    GetPDF = OriPdf 

    OriPdf.Close 
    AcroApp.Close 
    Set OriPdf = Nothing 
    Set AcroApp = Nothing 
End Function 

Answer 2

これでモジュールを作成します：VBAでの

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ 
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ 
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As 
Long) As Long 

Sub GetPDF() 
    Dim path1 As String 

    MsgBox "Start" 

    path1 = Application.ActiveWorkbook.Path 
    path1 = path1 & "\31700100.pdf" 

    ShellExecute 0, "Open", path1, "", "", _   
    vbNormalNoFocus 
End Sub