質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

7282閲覧

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

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

1クリップ

投稿2018/09/19 01:10

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

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

VBA

1Sub PDF() 2 3Dim ws As Worksheet 4 5Dim objAcroApp As New Acrobat.AcroApp 6Dim objAcroPDDoc As New Acrobat.AcroPDDoc 7 8Dim IRet As Long 9Dim PDF As String 10 11'D3セルにPDFのファイルパス 12Set ws = Worksheets("Sheet1") 13PDF = ws.Range("D3") 14 15IRet = objAcroApp.Show 16IRet = objAcroPDDoc.Open(PDF) 17 18objAcroPDDoc.OpenAVDoc PDF 19 20 21'<全選択&コピー&ぺースト処理> 22 23 24IRet = objAcroApp.CloseAllDocs 25IRet = objAcroApp.Hide 26IRet = objAcroApp.Exit 27 28Set objAcroPDDoc = Nothing 29Set objAcroApp = Nothing 30 31End Sub 32 33

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

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

VBA

1'必要なら定義する 2Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 3 4Sub 全て選択とコピー() 5 SendKeys "^a^c", True 6 Sleep 100 '場合によっては追加したほうが良い。^aと^cの間にも・・。 7End Sub

投稿2018/09/19 08:30

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2018/09/20 05:04

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問