色々やってみたのですがうまくいかないので質問させてください。
エクセルで直接pdfのテキストを表示させるスマートな方法はありませんでしょうか?
エクセルで編集するために元データのpdfファイルのテキストを取り込みたいのです。
Sub test()
Dim strFilePath As String
strFilePath = Application.GetOpenFilename _
("PDFファイル,*.pdf", MultiSelect:=False)
Call Shell("explorer.exe " & strFilePath)
Application.Wait Time:=Now + TimeValue("00:00:05")
Application.SendKeys "^a"
Application.Wait Time:=Now + TimeValue("00:00:03")
Workbooks(1).Activate
Application.SendKeys "^c"
End Sub
まったく動かないのですが今はこんな感じになっています。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#2です。
試しにやってみました。デスクトップに、filtdump.exeと、目的のpdfファイルを置いて、chdirして実行するという能のないものですが、ご参考まで。なお、Readerのバージョンは6(古い!),WindowsXP,XL2000です。Adobeの、バージョン6用のiFilterをインストールしています。Sub test()
Dim oShell As Object, FSO As Object
Dim buff As String
Dim i As Long
Set oShell = CreateObject("WScript.Shell")
ChDir "C:\Documents and Settings\??????\デスクトップ"
oShell.Run "filtdump -b -o test.txt hoge.pdf", 7, True
Set oShell = Nothing
Set FSO = CreateObject("Scripting.FileSystemObject")
i = 1
With FSO.OpenTextFile("test.txt", , , -1)
Do While Not .AtEndOfStream
buff = .readLine
Cells(i, 1).Value = buff
i = i + 1
Loop
.Close
End With
Set FSO = Nothing
End Sub
No.2
- 回答日時:
PDFからのテキスト抽出は、Acroat(Readerでは無い)をお持ちなら、こちらをご覧下さい。
http://pdf-file.jugem.jp/?eid=114
無料で済ませるなら、こちらをご覧下さい。ifilterという仕組みがあるそうです。
http://gihyo.jp/dev/serial/01/make-findspot/0016
ここで言及している、filtdump.exeは無償でダウンロードできる、Microsoftの開発ツールに付属しており、そのままコピーすれば別のPCでも使用できます。
Acrobat(Reader)V6用のifilterはこちらでダウンロードできます。
http://www.adobe.com/jp/support/downloads/pdfi_2 …
より、新しいバージョン向けは、Readerにもバンドルされている様です。
試しにやってみると、Unicodeの改行のないテキストファイルを生成してくれました。(ファイル名の打ち間違いがあってもエラーが出ず、空ファイルを生成してくれます)
C:\filtdump -b -o test.txt hoge.pdf
これをVBAから実行して、生成されるテキストファイルを取り扱えば良いと思います。
No.1
- 回答日時:
>スマートな方法はありませんでしょうか?
一連の仕事のためにどれだけの準備が出来るかによりますが,スマートな方法は例えば下記の参考リンクと,当該のサイト全体をよく勉強して行ってみてください。
参考URL:http://pdf-file.jugem.jp/?cid=11
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Word(ワード) テキストデータのPDFをWordで開くとテキストが図として認識されてしまう 3 2023/01/24 11:38
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のテキストファイルをexcel...
-
バッチファイルが作成できない
-
ExcelVBA テキストファイルから...
-
文字の頭文字順に自動移動
-
htmlとして保存されているファ...
-
Excelでdatファイルを作成??
-
エクセルにpdfのテキストを表示...
-
ファイル名をテキストから自動...
-
複数テキストファイルをエクセ...
-
VBSでテキストファイルのタブ区...
-
ファイル名の特定文字だけ削除...
-
batファイル処理でのテキストフ...
-
マクロでメモ帳に貼り付け
-
拡張子が.txtのファイルに将来...
-
Access2003で「オブジェクト'○○...
-
HTMLタグのあるCSVファイルを利...
-
フォルダ作成用バッチファイル...
-
Excel-VBA 撮影日時の取得
-
マルチモニタ環境でネットから...
-
Refreshで落ちる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のテキストファイルをexcel...
-
Excelでdatファイルを作成??
-
バッチファイルが作成できない
-
batファイル処理でのテキストフ...
-
テキストファイルの文字色に色...
-
複数のファイルを同時検索し、...
-
一気にずばっと複数のメールを...
-
ファイル名の特定文字だけ削除...
-
CDの曲名をテキストファイルで...
-
VBSでテキストファイルのタブ区...
-
CADでグラフ作成
-
KADOKAWA電撃文庫ってフォーマ...
-
文字の頭文字順に自動移動
-
windowsへscp
-
マクロでメモ帳に貼り付け
-
powershell で出力したテキスト...
-
Atokのユーザー辞書に、複数の...
-
ExcelVBA テキストファイルから...
-
複数テキストファイルをエクセ...
-
インデザインのテキスト流し込み
おすすめ情報