【EXCEL VBA】PDFファイルを全てコピーしてExcelへ値貼り付けする方法

Question

VBAでPDFファイルの内容を全てのページコピーしてExcelへ値貼り付けを行いたいです。
D3セルにコピーしたいフォルダパスとファイル名を入力しています。
PDFファイルを開き、閉じる所までは出来たのですが、肝心の処理が分からず困っています。
コピーしたPDFの内容はSheet2のA1セルへ値貼り付けしたいです。

どなたか方法をご存知の方がおりましたら、教えて頂けますと助かります。

Sub PDF()

Dim ws As Worksheet

Dim objAcroApp As New Acrobat.AcroApp
Dim objAcroPDDoc As New Acrobat.AcroPDDoc

Dim IRet As Long
Dim PDF As String

'D3セルにPDFのファイルパス
Set ws = Worksheets("Sheet1")
PDF = ws.Range("D3")

IRet = objAcroApp.Show
IRet = objAcroPDDoc.Open(PDF)

objAcroPDDoc.OpenAVDoc PDF


'<全選択＆コピー＆ぺースト処理>


IRet = objAcroApp.CloseAllDocs
IRet = objAcroApp.Hide
IRet = objAcroApp.Exit

Set objAcroPDDoc = Nothing
Set objAcroApp = Nothing

End Sub

Answer 1

実際に検証できないのでうまく動くかはわかりませんが、SendKeyメソッドを使用しては如何でしょうか。

'必要なら定義する
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub 全て選択とコピー()
    SendKeys "^a^c", True
    Sleep 100 '場合によっては追加したほうが良い。^aと^cの間にも・・。
End Sub

Comments

[退会済みユーザー]

ご回答ありがとうございます。
無事に出来ました。