マクロVBAでPDFを読み込み、テキスト抽出してエクセルに一覧にする方法

ページを更新しました。

マクロVBAでPDFの全テキスト情報をエクセルに書き出し一覧表示する

PDFのデータを読んでいるとき、そのテキストを一覧にしたいときがあります。このときマウスで範囲指定してコピーし、エクセルへ貼り付けしていくことになることが多いです。しかしテキスト情報が多いPDFの場合、この作業は時間 […]

上記のページで、最新情報を記載しています。

このページの情報は古いので、ぜひ上記のページの情報をご覧ください。

PDFの情報をコピペして手動で書き写す人は多いです。例えば、PDFのテキスト情報を目視しながら、一つずつエクセルにコピペしていく作業があります。

この場合、PDF数枚程度なら、一枚ずつコピペしても、大変さを感じることはありません。ただ100枚以上のPDFをコピペする作業となると、話は違います。

コピペ作業だけで、数時間かかる場合もありますし、何よりもその仕事があると思っただけで、仕事へのモチベーションが低下してしまいます。

しかし、定型のPDFであれば、このようなコピペ作業はエクセルマクロVBAで解決することができます。

この記事では、エクセルマクロVBAを利用して、PDFの必要情報だけを取得してエクセルに一覧にする方法を紹介します。

マクロVBAでPDFを読み込み、テキスト抽出してエクセルに一覧にする方法|

1 PDFの情報を自動でエクセルに一覧にした事例を動画で紹介
- 1.1 PDFからテキスト情報を取得するときのコツ｜ワード変換やテキスト変換ではうまくいかない
2 PDFのテキストを抽出してエクセルに書き出すプログラム
3 VBAのプログラムを作る前にAcrobat、FSO操作の参照設定を行う
- 3.1 参照の設定手順｜VBEの参照設定でAcrobatとMicrosoft Scripting Runtimeを追加
- 3.2 注意｜Acrobat操作には、Acrobat Proを利用する必要がある
4 PDFのテキストを読み込み、エクセルに一覧にするプログラム
5 VBAを使ったPDF操作について、もっと知りたいなら
6 PDF操作を習得より、VBA基礎作りが先決

PDFの情報を自動でエクセルに一覧にした事例を動画で紹介

PDFの情報をエクセルに一覧にする仕事と聞くと、あまりイメージしづらいかもしれません。そこで、PDF情報の必要部分だけをエクセルで自動取得した方法を事例に用いて紹介します。

まずは、こちらの動画をご覧ください。PDFの情報を取得して、エクセルに書き込んでいきます。

この動画で実行している内容は、所定のフォルダに保管した全てのPDFを一つずつ読み込み、必要情報だけをエクセルに一覧にしています。ちなみに、PDFはメールで送られてきた請求書です。

こういった作業は、PDF1枚であればマクロを使う必要はありません。しかし、PDFの枚数が200～300枚となると、一枚ずつコピペしていては仕事が終わりません。

しかも、1枚のPDFから複数個所をコピペする必要があると、かなり辛い作業になってしまいます。

PDFからテキスト情報を取得するときのコツ｜ワード変換やテキスト変換ではうまくいかない

PDFからテキスト情報を取得する場合、PDFをワード変換したりテキスト変換したりすることを考える人は少なくありません。しかし、PDF→ワードやPDF→テキストでは、うまくいかないことが多いです。

なぜなら、PDF毎に記載量が違うからです。例えば、PDFをワードやテキストに変換すると、PDF毎にワードやテキストの行数が変化します。つまり、取得したい箇所がPDF毎に変化するのです。

その結果、マクロのプログラムを工夫しないと、特定の情報を取得するのが難しくなってしまいます。

では、どのようにすればいいのかというと、PDFをxmlに変換して、情報を取得します。xmlに変換する方法がシンプルなマクロで稼働します。

ただテキスト抽出したいの記載量が少ない場合はワードやテキスト変換でもうまくいく場合があります。

PDFのテキストを抽出してエクセルに書き出すプログラム

それでは、マクロVBAを使ってPDFのテキストを読み込み、必要箇所をエクセルに一覧にする方法を紹介します。動画で紹介した請求書PDFの情報をエクセルに一覧にするのを考えます。

具体的には、以下のような作業を自動化します。

[1] エクセルに一覧にしたいPDFファイルを所定のフォルダに集める(ここは手動)
[2] フォルダ内の請求書PDFを全て読み込む
[3] エクセルに出力する

詳しく紹介すると、以下のように流れです。

[1] エクセルに一覧にしたいPDFファイルを所定のフォルダの画像

フォルダ内のPDFを全て処理します。

[2] 請求書PDFの画像

①の取引に関する情報、②の金額について情報に関してテキスト抽出し取得します。

[3] エクセルの画像

上記の赤枠に[2]の請求書の項目を入れていきます。

このプログラムは所定のフォルダにあるPDFを一つずつ読み込み、エクセルにリスト化していきます。

VBAのプログラムを作る前にAcrobat、FSO操作の参照設定を行う

エクセルVBAでPDFを操作するためのプログラミングに入る前に、準備することがあります。

それは、VBEの参照設定を変更することです。参照設定とは、機能拡張のことです。

このプログラムを使うのには、参照設定で以下の2つをライブラリに追加する必要があります。

設定方法

1.VBEを開いて頂いて、「ツール」→「参照設定」
2.この二つのライブラリにチェックを入れて、OKをクリック
・Acrobat
・Microsoft Scripting Runtime

この設定を変更しないとマクロが動きません。忘れずに設定するようにしてください。

参照の設定手順｜VBEの参照設定でAcrobatとMicrosoft Scripting Runtimeを追加

VBAでPDFを操作できるようにするために、AcrobatとMicrosoft Scripting Runtimeにチェックを入れます。

具体的な設定方法は以下の通りです。

1.VBEを開いて、「ツール」→「参照設定」

2.以下の2項目にチェックを入れて、OKをクリック
・Acrobat
・Microsoft Scripting Runtime

Acrobatはこちら

MicroSoft Scripting Runtimeはこちら

なお、VBAでフォルダを操作できるようにするために、Microsoft Scripting Runtimeにチェックを入れます。

Microsoft Scripting Runtimeにチェックを入れる理由は、この記事で紹介するプログラムが、特定フォルダ内のすべてのPDFファイルを読み込む際に、Microsoft Scripting Runtimeを利用するからです。

注意｜Acrobat操作には、Acrobat Proを利用する必要がある

あなたが使っているパソコンにAcrobat Readerしか含まれていなかったとしたら、VBAでPDF操作はできません。

そのため、PDFを操作する場合は、Acrobat Proを購入しておく必要があります。参照設定で、Acrobatをチェックできないならば、Acrobat Proに登録されていないことを意味しています。

したがって、こちらからAcrobat Proを試すことができます。なお、Acrobat Standardでも可能だと思われますが、検証しておりません。

PDFのテキストを読み込み、エクセルに一覧にするプログラム

プログラムは以下のとおりです。

'---コード1｜フォルダ内のPDFファイルを1つずつ処理する
Option Explicit
Sub filecheck()
    Dim s1, s2, s3, filename, path, xmlpath As String
    Dim i, cmax As Long
    Dim t1, t2 As Date
    Dim ws1, ws2 As Worksheet
    Set ws1 = Worksheets(データ一覧)
    Dim fs As FileSystemObject
    Dim basefolder As Scripting.Folder
    Dim destifolder, filepath As String
    Dim mysubfiles As Scripting.Files
    Dim mysubfile As Scripting.File
    cmax = ws1.Range(A65536).End(xlUp).Row
    Set fs = New Scripting.FileSystemObject
    filepath = ThisWorkbook.path ; \Analysis
    Set basefolder = fs.GetFolder(filepath)
    Set mysubfiles = basefolder.Files

    For Each mysubfile In mysubfiles
        Debug.Print mysubfile.Name
        Debug.Print fs.GetExtensionName(mysubfile)
        Debug.Print fs.GetParentFolderName(mysubfile)

        If fs.GetExtensionName(path:=mysubfile) = pdf Then
            path = fs.GetParentFolderName(path:=mysubfile)
            xmlpath = xmlurl(mysubfile.Name, path)
            Call xml_parse(xmlpath)
        End If
    Next
End Sub

'---コード2｜PDF毎にxml化する
Function xmlurl(filename, path)
    Dim objAcroApp As New Acrobat.AcroApp
    Dim objAcroAVDoc As New Acrobat.AcroAVDoc
    Dim objAcroPDDoc As Acrobat.AcroPDDoc
    Dim id As Long
    Dim js As Object
    Dim fullpath, savename As String
    fullpath = path ; \ ; filename

    Debug.Print fullpath

    id = objAcroApp.Show 'Acrobatアプリケーションを起動する。
    id = objAcroAVDoc.Open(fullpath, )
    Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()

    'JavaScriptオブジェクトを作成する。
    Set js = objAcroPDDoc.GetJSObject
    savename = Replace(fullpath, .pdf, )
    js.SaveAs savename ; .xml, com.adobe.acrobat.xml-1-00

    'PDFファイルを変更無しで閉じます。
    id = objAcroAVDoc.Close(1)

    'Acrobatアプリケーションを終了する。
    id = objAcroApp.Hide
    id = objAcroApp.Exit

    'OLEを行うとAcrobatが不安定になるので、
    '一応オブジェクトを強制開放する。
    Set js = Nothing
    Set objAcroAVDoc = Nothing
    Set objAcroApp = Nothing
    xmlurl = savename ; .xml
End Function

'---コード3｜フォルダ内のPDFファイルだけを抽出
Sub xml_parse(ByVal xmlpath As String)
    'Microsoft XML v6.0 を参照設定
    Dim XMLDocument As MSXML2.DOMDocument60
    Dim pElem     As MSHTML.HTMLParaElement
    'Dim Doc As New XMLDocument
    Dim e As MSHTML.HTMLHtmlElement
    Dim ws1 As Worksheet
    Set ws1 = Worksheets(データ一覧)
    'MSXMLオブジェクトを生成し、xmlファイルをロード
    Set XMLDocument = New MSXML2.DOMDocument60
    'async = False → 読み込み終了後､次の処理をします（同期処理）
    'async = true →だと､読み込みが終わらなくても､次のステップへ（非同期処理）
    'VBAは非同期処理に対応していないので、async = Falseとします
    XMLDocument.async = False
    Dim strMsg As String
    Dim i, j, k, cmax, n As Long
    i = 0
    cmax = ws1.Range(A1048576).End(xlUp).Row
    'Doc.Load (xmlpath)
    XMLDocument.Load (xmlpath)

    If (XMLDocument.parseError.ErrorCode &lt;&gt; 0) Then 'ロード失敗
        strMsg = XMLDocument.parseError.reason      'エラー内容を出力
        MsgBox ロードに失敗しました・・・ ; vbCrLf ; vbCrLf ; strMsg, vbCritical
        Exit Sub
    End If

    ws1.Range(A ; cmax + 1).Value = cmax
    Dim objxml As Object
    Dim tmp As Variant

    For Each objxml In XMLDocument.getElementsByTagName(P)
        If InStr(objxml.XML, 請求番号) &gt; 0 Then
            tmp = Split(objxml.Text, :)

            For k = 0 To UBound(tmp)

                Debug.Print tmp(k)

                If InStr(tmp(k), 請求日) &gt; 0 And InStr(tmp(k), 請求日の) = 0 Then
                    ws1.Range(B ; cmax + 1).Value = Left(tmp(k), Len(tmp(k)) - 3)
                ElseIf InStr(tmp(k), 支払期日) &gt; 0 Then
                    ws1.Range(C ; cmax + 1).Value = Left(tmp(k), Len(tmp(k)) - 4)
                ElseIf InStr(tmp(k), 貴社コード) &gt; 0 Then
                    ws1.Range(D ; cmax + 1).Value = Mid(tmp(k), 2, Len(tmp(k)) - 6)
                ElseIf InStr(tmp(k), 契約番号) &gt; 0 Then
                    ws1.Range(E ; cmax + 1).Value = Mid(tmp(k), 2, Len(tmp(k)) - 5)
                ElseIf InStr(tmp(k), 支払方法) &gt; 0 Then
                    ws1.Range(F ; cmax + 1).Value = Left(tmp(k), Len(tmp(k)) - 4)
                ElseIf k = UBound(tmp) Then
                    ws1.Range(G ; cmax + 1).Value = Mid(tmp(k), 2)
                End If
            Next
            tmp = Null
        End If
    Next
    j = 0
    Dim cnode, dnode As IXMLDOMNode
    Dim str() As Variant
    Dim tdvar As Variant
    Set cnode = XMLDocument.SelectSingleNode(//Table)
    j = 0

    For Each dnode In cnode.getElementsByTagName(TD)
        ReDim Preserve str(j)
        str(j) = dnode.Text
        Debug.Print j, str(j)
        j = j + 1
    Next

    Dim kingaku, zeigaku As Double
    Dim tekiyou As String
    kingaku = 0
    zeigaku = 0
    tekiyou =

    For j = 0 To UBound(str)
        k = 4 * j + 1
        If InStr(str(k), ご請求) &gt; 0 Then
            ws1.Range(H ; cmax + 1).Value = kingaku
            ws1.Range(I ; cmax + 1).Value = zeigaku
            ws1.Range(J ; cmax + 1).Value = kingaku + zeigaku
            ws1.Range(K ; cmax + 1).Value = tekiyou
            Exit For
        ElseIf InStr(str(k), 消費税) &gt; 0 Then
            zeigaku = zeigaku + str(k + 2)
        ElseIf str(k) &lt;&gt;  Then
            kingaku = kingaku + str(k + 2)
            If tekiyou =  Then
                tekiyou = str(k)
            End If
        End If
    Next
End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

'---コード1｜フォルダ内のPDFファイルを1つずつ処理する

Option Explicit

Sub filecheck()

Dim s1, s2, s3, filename, path, xmlpath As String

Dim i, cmax As Long

Dim t1, t2 As Date

Dim ws1, ws2 As Worksheet

Set ws1 = Worksheets(データ一覧)

Dim fs As FileSystemObject

Dim basefolder As Scripting.Folder

Dim destifolder, filepath As String

Dim mysubfiles As Scripting.Files

Dim mysubfile As Scripting.File

cmax = ws1.Range(A65536).End(xlUp).Row

Set fs = New Scripting.FileSystemObject

filepath = ThisWorkbook.path ; \Analysis

Set basefolder = fs.GetFolder(filepath)

Set mysubfiles = basefolder.Files

For Each mysubfile In mysubfiles

Debug.Print mysubfile.Name

Debug.Print fs.GetExtensionName(mysubfile)

Debug.Print fs.GetParentFolderName(mysubfile)

If fs.GetExtensionName(path:=mysubfile) = pdf Then

path = fs.GetParentFolderName(path:=mysubfile)

xmlpath = xmlurl(mysubfile.Name, path)

Call xml_parse(xmlpath)

End If

End Sub

'---コード2｜PDF毎にxml化する

Function xmlurl(filename, path)

Dim objAcroApp As New Acrobat.AcroApp

Dim objAcroAVDoc As New Acrobat.AcroAVDoc

Dim objAcroPDDoc As Acrobat.AcroPDDoc

Dim id As Long

Dim js As Object

Dim fullpath, savename As String

fullpath = path ; \ ; filename

Debug.Print fullpath

id = objAcroApp.Show 'Acrobatアプリケーションを起動する。

id = objAcroAVDoc.Open(fullpath, )

Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()

'JavaScriptオブジェクトを作成する。

Set js = objAcroPDDoc.GetJSObject

savename = Replace(fullpath, .pdf, )

js.SaveAs savename ; .xml, com.adobe.acrobat.xml-1-00

'PDFファイルを変更無しで閉じます。

id = objAcroAVDoc.Close(1)

'Acrobatアプリケーションを終了する。

id = objAcroApp.Hide

id = objAcroApp.Exit

'OLEを行うとAcrobatが不安定になるので、

'一応オブジェクトを強制開放する。

Set js = Nothing

Set objAcroAVDoc = Nothing

Set objAcroApp = Nothing

xmlurl = savename ; .xml

End Function

'---コード3｜フォルダ内のPDFファイルだけを抽出

Sub xml_parse(ByVal xmlpath As String)

'Microsoft XML v6.0 を参照設定

Dim XMLDocument As MSXML2.DOMDocument60

Dim pElem As MSHTML.HTMLParaElement

'Dim Doc As New XMLDocument

Dim e As MSHTML.HTMLHtmlElement

Dim ws1 As Worksheet

Set ws1 = Worksheets(データ一覧)

'MSXMLオブジェクトを生成し、xmlファイルをロード

Set XMLDocument = New MSXML2.DOMDocument60

'async = False → 読み込み終了後､次の処理をします（同期処理）

'async = true →だと､読み込みが終わらなくても､次のステップへ（非同期処理）

'VBAは非同期処理に対応していないので、async = Falseとします

XMLDocument.async = False

Dim strMsg As String

Dim i, j, k, cmax, n As Long

i = 0

cmax = ws1.Range(A1048576).End(xlUp).Row

'Doc.Load (xmlpath)

XMLDocument.Load (xmlpath)

If (XMLDocument.parseError.ErrorCode <> 0) Then 'ロード失敗

strMsg = XMLDocument.parseError.reason 'エラー内容を出力

MsgBox ロードに失敗しました・・・ ; vbCrLf ; vbCrLf ; strMsg, vbCritical

Exit Sub

End If

ws1.Range(A ; cmax + 1).Value = cmax

Dim objxml As Object

Dim tmp As Variant

For Each objxml In XMLDocument.getElementsByTagName(P)

If InStr(objxml.XML, 請求番号) > 0 Then

tmp = Split(objxml.Text, :)

For k = 0 To UBound(tmp)

Debug.Print tmp(k)

If InStr(tmp(k), 請求日) > 0 And InStr(tmp(k), 請求日の) = 0 Then

ws1.Range(B ; cmax + 1).Value = Left(tmp(k), Len(tmp(k)) - 3)

ElseIf InStr(tmp(k), 支払期日) > 0 Then

ws1.Range(C ; cmax + 1).Value = Left(tmp(k), Len(tmp(k)) - 4)

ElseIf InStr(tmp(k), 貴社コード) > 0 Then

ws1.Range(D ; cmax + 1).Value = Mid(tmp(k), 2, Len(tmp(k)) - 6)

ElseIf InStr(tmp(k), 契約番号) > 0 Then

ws1.Range(E ; cmax + 1).Value = Mid(tmp(k), 2, Len(tmp(k)) - 5)

ElseIf InStr(tmp(k), 支払方法) > 0 Then

ws1.Range(F ; cmax + 1).Value = Left(tmp(k), Len(tmp(k)) - 4)

ElseIf k = UBound(tmp) Then

ws1.Range(G ; cmax + 1).Value = Mid(tmp(k), 2)

End If

tmp = Null

End If

j = 0

Dim cnode, dnode As IXMLDOMNode

Dim str() As Variant

Dim tdvar As Variant

Set cnode = XMLDocument.SelectSingleNode(//Table)

j = 0

For Each dnode In cnode.getElementsByTagName(TD)

ReDim Preserve str(j)

str(j) = dnode.Text

Debug.Print j, str(j)

j = j + 1

Dim kingaku, zeigaku As Double

Dim tekiyou As String

kingaku = 0

zeigaku = 0

tekiyou =

For j = 0 To UBound(str)

k = 4 * j + 1

If InStr(str(k), ご請求) > 0 Then

ws1.Range(H ; cmax + 1).Value = kingaku

ws1.Range(I ; cmax + 1).Value = zeigaku

ws1.Range(J ; cmax + 1).Value = kingaku + zeigaku

ws1.Range(K ; cmax + 1).Value = tekiyou

Exit For

ElseIf InStr(str(k), 消費税) > 0 Then

zeigaku = zeigaku + str(k + 2)

ElseIf str(k) <> Then

kingaku = kingaku + str(k + 2)

If tekiyou = Then

tekiyou = str(k)

End If

End Sub

プログラムの解説は要望があれば行います。ただ、ここで紹介している内容は簡単な内容ではありません。配列を使ったり、XML化を使ったりしてPDF内のテキストを取得しています。

もし、詳しく知りたい人は問い合わせから質問してみてください。

VBAを使ったPDF操作について、もっと知りたいなら

エクセルVBAを使ったPDF操作する方法について、解説した記事を紹介します。

エクセルマクロVBAでフォルダ内のPDFを順番に連続で自動印刷する方法

複数のAcrobat PDFのファイルを印刷するとき、一つずつ印刷していると時間がかかります。しかし、マクロを使えば、ボタン一つでカンタンに印刷することができます。そこで、エクセルマクロを使って、フォルダ内のPDFファ […]

エクセルマクロVBAでフォルダ内のすべてのPDFを一括結合する方法｜ファイル順に結合

複数のAcrobat PDFのファイルを一つに結合するとき、一つずつファイルを結合していては時間がかかります。そこで、エクセルマクロを使って、複数のPDFを自動で一つのPDFに結合する方法を紹介します。ただPDFを結 […]

エクセルマクロVBAで指定したフォルダ内のPDFをすべて開く方法

フォルダ内の複数のAcrobat PDFのファイルを開きたいとき、一つずつやっていては時間がかかります。ファイルが10コ程度なら、あまり時間がかかりません。しかし、ファイル数が増えると、ファイルを開くのに時間がかかった […]

PDF操作を習得より、VBA基礎作りが先決

エクセルVBAを使ったPDFからのテキスト抽出の方法について事例で紹介しました。今回の内容をぜひVBAの勉強に活かしてみてください。

ここで紹介したコードを編集して利用すれば、VBAでPDFを解析することができるはずです。

しかし、PDF操作のプログラムを編集するといっても、「私にできるかな、、、」と感じている方もいるかもしれません。

もし、そのように感じているなら、それはマクロの基本がまだできていない証拠です。

実際、エクセルVBA初心者がPDF操作でエラーを起こすと、一人で解決するのはムズカシイでしょう。

もし、このプログラムをみて、レベルが高いなと感じたら、VBAの基本から学びなおすことをオススメします。

VBAの基本が分かれば、PDFだけでなくアウトルックやIE操作も本当の意味で理解できるようになります。

きちんと学ぶなら、こちらの無料動画がオススメです。基礎を確実に学んでから、トライしてみてください。

この記事を読んだ方へのオススメ

「マクロの力を実感したい」と感じているなら、こちらの記事がオススメです。マクロが入ったエクセルファイルをダウンロードできるようにしています。もし詳細が知りたいなら、以下の記事で紹介していますので、合わせて読んでみてください。

サンプル1｜月末処理の自動処理する
 サンプル2｜エクセルで在庫管理するマクロ
 サンプル3｜outlookのメールを自動送信する
 サンプル4｜outlookの受信メールをエクセルに一覧にして、添付ファイルも保管する
 サンプル5｜エクセルマクロVBAで大量データを比較・照合してマッチングする方法
 サンプル6｜ウェブの情報を自動取得して、エクセルに出力する
 サンプル7｜エクセルの情報をワードに差し込み、印刷まで行う

ぜひご活用ください。

エクセルマクロでできることを知りたいなら

エクセルマクロVBA「できること」は何？100事例で自動化を解説

エクセルマクロVBAを使えば面倒な仕事を自動化して、作業をエクセルに処理させることができます。しかし、エクセルマクロと聞いてもそもそも何か分からない人もいたり、どのようなことができるのか知らなかったりする人は多いです。 […]

エクセルマクロを独学で習得したいなら

エクセルマクロVBAの勉強法｜独学で上達する18のコツ

エクセルVBAを使って、業務を効率化したり、カッコよく仕事を片付けたいけど「エクセルマクロってなんだか難しそう」「どう勉強すればいいのか…」と感じていませんか？実は、僕自身が、エクセルマクロを勉強を始めた頃、こん […]

エクセルマクロとは？もっと詳しく知りたいなら

エクセルVBAとは？意味・マクロとの違いや開き方・コードを紹介

VBAとは、Visual Basic for Applicationsの略でMicrosoft Office(エクセルやワードなど)に搭載されているプログラミング言語を指します。エクセルVBAは、主にエクセルの作業を処 […]

エクセルマクロの難易度や習得までの期間を知りたいなら

エクセルマクロVBAって難しい？習得者が語る難易度・学習期間(経験談付き)

・エクセルマクロに興味があるけど、習得できるか不安… ・私はITに疎いから習得できないんじゃないか… ・マクロを使って仕事の負担を減らしたい！でも習得に時間がかかりそう… そんなことを感じませんか？私もエクセルマクロV […]

マクロVBAでPDFを読み込み、テキスト抽出してエクセルに一覧にする方法

PDFの情報を自動でエクセルに一覧にした事例を動画で紹介

PDFからテキスト情報を取得するときのコツ｜ワード変換やテキスト変換ではうまくいかない

PDFのテキストを抽出してエクセルに書き出すプログラム

VBAのプログラムを作る前にAcrobat、FSO操作の参照設定を行う

参照の設定手順｜VBEの参照設定でAcrobatとMicrosoft Scripting Runtimeを追加

注意｜Acrobat操作には、Acrobat Proを利用する必要がある

PDFのテキストを読み込み、エクセルに一覧にするプログラム

VBAを使ったPDF操作について、もっと知りたいなら

PDF操作を習得より、VBA基礎作りが先決

人気記事

サイト運営情報

パソコンスキル

仕事術

PDFの情報を自動でエクセルに一覧にした事例を動画で紹介

PDFからテキスト情報を取得するときのコツ｜ワード変換やテキスト変換ではうまくいかない

PDFのテキストを抽出してエクセルに書き出すプログラム

VBAのプログラムを作る前にAcrobat、FSO操作の参照設定を行う

参照の設定手順｜VBEの参照設定でAcrobatとMicrosoft Scripting Runtimeを追加

注意｜Acrobat操作には、Acrobat Proを利用する必要がある

PDFのテキストを読み込み、エクセルに一覧にするプログラム

VBAを使ったPDF操作について、もっと知りたいなら

PDF操作を習得より、VBA基礎作りが先決

Footer

人気記事

サイト運営情報

パソコンスキル

仕事術