前提・実現したいこと
PDFの内容をエクセルへ変換させる機能を実装中に以下のエラーメッセージが発生しました。
発生している問題・エラーメッセージ
実行時エラー'91': オブジェクト変数またはwithブロック変数が設定されていません。
該当のソースコード
VBA
ソースコード
Option Explicit
Sub CommandButton21_Click()
Dim objAcroApp As New Acrobat.AcroApp Dim objAcroAVDoc As New Acrobat.AcroAVDoc Dim objAcroPDDoc As Acrobat.AcroPDDoc Dim lRet As Long Dim jso As Object 'Acrobatアプリケーションを起動する。 lRet = objAcroApp.Show 'PDFファイルを開いて表示する。 lRet = objAcroAVDoc.Open("E:¥save_as_xml.pdf", "") 'PDDocオブジェクトを取得する Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 'JavaScriptオブジェクトを作成する。 Set jso = objAcroPDDoc.GetJSObject 'PDFをアクセステキスト(accesstext)に変換する。 jso.SaveAs "E:¥test-01A.txt", "com.adobe.acrobat.accesstext" 'PDFをプレーンテキスト(plain-text)に変換する。 jso.SaveAs "E:¥test-01P.txt", "com.adobe.acrobat.plain-text" 'PDFファイルを閉じます。 lRet = objAcroAVDoc.Close(1) 'Acrobatアプリケーションを終了する。 lRet = objAcroApp.Hide lRet = objAcroApp.Exit 'OLEを行うとAcrobatが不安定になるので '一応オブジェクトを強制開放する。 Set objAcroPDDoc = Nothing Set objAcroAVDoc = Nothing Set objAcroApp = Nothing
End Sub
### 試したこと ここに問題に対して試したことを記載してください。 ### 補足情報(FW/ツールのバージョンなど) Excel2016
回答2件
あなたの回答
tips
プレビュー