ExcelVBA【実践】PDFファイルを自動で読み込むシステム！普通には読み込めないPDFファイルも○○を利用することで自動読込！【解説】

[@chanryo_eff]

「CreateObject("Word.Application")」に関しては、参照設定されているので「Set wdApp = New Word.Application」で問題ございません🙇‍♂

[@user-hx6qe4pq9h]

ご返信頂きありがとうございます、 そのプログラムで試してみます。

[@chanryo_eff]

【配布あり】こちらでExcel講座をまとめています！ it-yobi.com/course/?pageNo=1&orderNo=2&categoryNo=10&link=4 ●---Excel【基礎】---● Excelを始めるにあたり、必要な知識をまとめています！ 詳しくは再生リストにて！ kzbin.info/aero/PLuUrleRMhKDc1thXw-EmZAU34vhLrKnm3 ●---Excel【実践】---● 実際に開発しながら解説しています！ 詳しくは再生リストにて！ kzbin.info/aero/PLuUrleRMhKDf4BrAPNt5lfJ7bGCcgCQUw ●---Excelその他---● 他にもデータベースなど再生リストを用意！ kzbin.info/door/y5cpoeTKqZ2cDzWX8NB3Ggplaylists ●---Googleスプレッドシート【基礎】---● Googleスプレッドシートを始めるにあたり、必要な知識をまとめています！ 詳しくは再生リストにて！ kzbin.info/aero/PLuUrleRMhKDe5kCiV88fRUuxsMvZ5asJC 00:00​　挨拶 00:42​　完成イメージ 02:13​　準備 03:32​　作成（PDF読込関数） 03:43​　今回のアルゴリズム 04:18​　作成（PDF読込関数：参照設定） 05:20​　作成（PDF読込関数：警告の非表示） 06:16​　作成（PDF読込関数：初期設定） 07:22​　作成（PDF読込関数：Wordの立ち上げ） 11:32​　作成（PDF読込関数：Wordの貼り付け） 12:38​　作成（PDF読込関数：Wordを閉じる） 14:07​　完成 17:52​　プログラムの全体 19:39​　まとめ

[@西岡大介-m3g]

今までアクロバットリーダープロがないと、VBAでエクセルでの PDFの貼り付けや抽出ができないと思ってましたので勉強になりました。

[@chanryo_eff]

コメントありがとうございます！😊 読み込み能力が衰えてしまうのが、欠点ではあります😂

[@ディーンフジオカが好き]

すごく参考になりました！ 今日早速やってみました。 あとは数値やテキストを別で認識して、数値に関してはその後計算できる！ようになれば…がんばります！ 動画楽しみにしてます！

[@chanryo_eff]

ありがとうございます！！ また不明点があればいつでも連絡ください！😊

[@GTAIVmania09]

VBAでPDFファイルを一度Wordで開いてExcelに取り込むコードが、参照設定の仕方から一つ一つ丁寧に解説されていてもの凄い参考になりました！ チャンネル登録させていただきました。

[@chanryo_eff]

ありがとうございます！！😊

[@田代進一-p9j]

素晴らしいです。

[@chanryo_eff]

ありがとうございます！😊

[@viviennedoga]

VBA初心者ですが早速、挑戦してみようと思います。例えば名簿リストにある人をテンプレートに差し込み連続印刷する方法などもいつか教えて頂けると有難いです。

[@chanryo_eff]

連続印刷ですと、こちらで解説していますので、ご確認おねがいします😊 kzbin.info/www/bejne/boHXYXRugpt6oqs 不明点があれば、またコメントください！

[@viviennedoga]

@@chanryo_eff ご親切に返信ありがとうございます。確認してみます。

[@正樹山下]

いつも大変勉強になり、仕事にも活用させて頂いております。 2点質問がございます。 ①PDFが表形式ではなく、画像（図形）としてExcelに貼り付けられるのは、PDF元データが画像だからでしょうか？表形式で取り込む事は出来ませんか？ ②Wordを閉じる際に「最後にコピーしたアイテムを貼り付けられる状態で保持しますか? 　その場合、終了に時間がかかることがあります。」のメッセージが出ます。非表示には出来ますでしょうか？

[@chanryo_eff]

コメントありがとうございます！ ①元々のファイルの保存されている状態にもよるかと思います… ②調べてみたら、この文言を直接非表示にするものはなさそうでした。ただ恐らくコピーされる範囲が大きいことが原因かと思います。なので根本を解決するという意味で、終了する前にコピーされる情報を減らす（再度別の一箇所をコピーなど）などで対策できるかと思います。

[@komorebi1230]

【要望　複数PDFファイルの取り込み】 PDFのEXCEL取り込みできなくて困ってました 素晴らしい動画をありがとうございます。 さて、要望ですが 同じフォルダに複数PDFを入れておいて 一つのEXCELファイルに複数のPDFファイルを複数タブとして取り込むことが できればなあと。 そしてEXCELファイルのタブ名は呼び込んだPDFのファイル名になれば 更に素晴らしいと思うのですが また別の機会にでも作成して解説頂ければ幸いです。

[@chanryo_eff]

コメントとお褒めの言葉ありがとうございます！！ 1つのEXCELファイルに複数のPDFファイルを複数タブとして取り込むことについて回答します！ こちらの内容でフォルダ内のcsvファイルをシート別で読み込む方法を解説しています！ kzbin.info/www/bejne/aYulpmyOnJqHkLs このcsv読込のところを今回のpdf読込に書き換えることで可能になります！ ただ、 この動画の場合は、 コマンドプロンプトでファイル名を取得しています💦 VBAの機能でフォルダ内のファイルを取得するという方法もありますで、 好みの方法で実践するといいかと思います！ VBAにて、コマンドプロンプトを使わずに取得する方法に関しては、 ちょっと先にはなりますが、動画にする予定です😊 また、参考程度に！ PDFが文字化けするなどの場合は、 他の方法でも取り込めますので、載せておきます！ kzbin.info/www/bejne/fJDHgX2bpamditU 動画は検討しますね！ 要望ありがとうございます！

[@komorebi1230]

@@chanryo_eff 早速のご丁寧な回答ありがとうございます。 参考にしてやってみます。動画期待してます。 これからもよろしくお願い申し上げますm(_ _)m

[@ヒロミ-x2g]

とても参考になりました。 質問なのですが、pdf内の表のみ取り込むにはどうすればいいですか？ 表の下に文字が含まれているのですが表だけがほしいです。宜しくお願いします！

[@chanryo_eff]

どこからどこを表と判断するのは、 Excelのみでは、なかなか難しいかもです💦 →方法があったら知りたいです。 なので、 取り込んだ後、表以外の場所を削除する処理を加えるのが簡単かと思います😄

[@user-hx6qe4pq9h]

コメント失礼致します。 同じプログラム、PDF等の内容で試してみたのですが、 『Wordの内容を貼り付ける』(story ranges)の部分が、 「コンパイルエラー、メソッドまたはデータメンバーが見つかりません」 とのエラーになってしまいました。 原因等分かりましたらお教え頂けますと幸甚です。

[@ソフトさきいか-s3k]

今更のコメントになり申し訳ありません。業務で使用したく、参考にさせていただきました。 そこで質問なのですが、Wordの「2ページめのみ」選択しコピーすることは可能でしょうか？可能でしたら御教授願います。

[@chanryo_eff]

細かい解説は割愛させていただきますが、 ワードにコピペした際のアクティブなドキュメントのページ全体を削除してから….Copyを行うという方法があります。 「ActiveDocument.Bookmarks("\Page").Range.Delete」を….Copyの前に実行します。 また、Wordを操作しているため、閉じる際は「….Close」のあとに「SaveChanges:=False」を加えて保存せずに閉じた方が良いかと思います。 ※こちらがないと「保存しますか？」の警告が表示されます。

[@morning_masaharu]

とてもわかりやすい解説ありがとうございます！ 質問させてください。 「wordの内容を貼り付ける」部分で、エラーが出てしまいます。 wdDoc〜の部分が黄色になってます。どうしたらいいでしょうか？

[@morning_masaharu]

こちら、新規のブックでは対応できますが、マクロ有効ブックに保存した後にここのエラーが出てしまいます。

[@chanryo_eff]

コメントありがとうございます！ すいません😂 ちょっとわからないです💦 プログラム内容は同じでしょうか？？

[@morning_masaharu]

@@chanryo_eff 概要欄からコピペしたので、全て一緒だと思います。困惑させて申し訳ないです。

[@chanryo_eff]

@@morning_masaharu 概要欄にはプログラムを載せていないのですが、どこのことでしょうか😂

[@morning_masaharu]

@@chanryo_eff 失礼しました！概要欄に貼っていたのは別の方のチャンネルでした。ただ、誤字などは無いはずです…。

[@山本-n8g]

コメント失礼します。 すごく勉強なります。。 1つ教えていただきたいのですが、 ファイル名が変わるとなると、VBA内のファイル名を変更していかないといけないのですが、 Excel内で変更し、ファイル名を選択することは可能でしょうか？？

[@chanryo_eff]

ファイル名をシートの特定のセルの値から参照するなどと対応できるかと思います！ RangeやCellsにてセルの値を参照できるので、ここら辺と文字結合が分かると実現できるかもです！

[@ひとみ丸山-s2u]

参考にさせていただきました。しかし、やはりフォーマットがバラバラになってしまいます。フォーマットを崩さずにといった方法はないのでしょうか？？

[@chanryo_eff]

コメントありがとうございます！ この方法ですと、素材が良くないとうまく抽出できないですね💦 書式情報などを保持する必要がない場合は、パワークエリで取り込むとうまくいくかもです！ ▼参考動画 kzbin.info/www/bejne/fJDHgX2bpamditU こちらを自動化する場合は、 結構複雑なプログラムになります💦

[@ひとみ丸山-s2u]

読み込んだデータを別シートにフォーマットを作り、そちらに反映させようとしたのですが、エラーしてしまいます。別シートに数値を反映する方法はありますか？ 知識が浅く、=で参照しただけです。

[@chanryo_eff]

@@ひとみ丸山-s2u プログラムでシートをDeleteしているため、参照先が壊れてしまうのが原因です。 対処方法は以下のどちらかかなと思います。 ①プログラム内のDeleteを別のものに変更する ②参照を「=Sheet1!A1」ではなく「=INDIRECT("Sheet1!A1")」と文字列で不変の状態にしてアクセスする

[@ひとみ丸山-s2u]

ありがとございます！これで解決しそうです！

[@taktak4096]

エラー5174が出てしまいます。デスクトップに保管してますが、パス指定からファイルが探せません。

[@chanryo_eff]

恐らくパスの記入方法が間違っていると思われます💦

[@taktak4096]

お返事ありがとうございます。何回も見直して、パス指定とコードに間違いが無いことを確認しましたがやはり同じエラーが出てしまいます。

[@chanryo_eff]

半角スペースなど細かなところでエラーになっているケースも考えられます💦 もしよければ、無料コミュニティに参加いただければ、実際に動画で作成したエクセルを無料配布しています。 ご興味があれば、概要欄のリンクからお願いします😊 コミュニティ内でエラー画面のスクショなど情報を送っていただければ添削できるかと思います😄

[@taktak4096]

ありがとうございます。登録済みですのでダウンロードさせて頂きます。

[@icevanilla4878]

あんまりmsofficeで変換したようなPDFを業務で使うことはないかな。どちらかというと、FAXなどをスキャンで読み込んだPDFをEXCELに変換するのが欲しかったな。Onenoteやpoweshell使ってもOCRエンジンが完璧に読めないので変換率が100%のエンジンがないかなーって思ってます。

[@keisukeokuda8588]

文字化けしてる😢 Wordに取れ込んだ時点で文字化けしてるのかな？

[@chanryo_eff]

Wordの時点で文字化けが起こっている可能性が高いですね💦 少し複雑になりますが、以下の内容でしたら、文字化けが減るかもです！ kzbin.info/www/bejne/hJi8e2mQar6rpJI

[@045badbayboy5]

文字化けしちゃう😢

[@chanryo_eff]

コメントありがとうございます！ 少し複雑になりますが、こちらの方法でしたら文字化けが減るかもです💦 kzbin.info/www/bejne/hJi8e2mQar6rpJI