VBAでPDFをテキスト出力する時のエラー
PDFをテキスト出力するVBA実行時、Acrobatから「ファイルを開けません」とエラーメッセージが表示されます。何のファイルなのかわからないので教えてください。
下記VBAで、最終行の「objJs.SaveAs txtFilePath, "com.adobe.acrobat.plain-text"」でPDFは読み込まれて画面表示されますが、同時に「ファイルを開けません」というメッセージが表示されます。PDFは正常に読み込まれていると思われるので、ほかに何が必要なのか教えてください。
AcrobatとMicrosoftScriptingRuntimeは組み込んでいます。
--------------------------------------------
'PDFのデータをExcelに読み込むメイン処理
Sub Main()
'PDFファイルをテキストに変換するための定数を用意
Const fileName = "テストファイル"
Const folderPath = "C:\Data\"
Const pdfFilePath = folderPath & fileName & ".pdf"
Const txtFilePath = folderPath & fileName & ".txt"
'PDFファイルをテキストに変換
Call convPDFtoText(fileName, folderPath, pdfFilePath, txtFilePath)
End Sub
'PDFファイルをテキスト変換する処理
Sub convPDFtoText(fileName As String, folderPath As String, pdfFilePath As String, txtFilePath As String)
'Acrobat操作用の変数を宣言
Dim objAcrobatApp As New Acrobat.AcroApp
Dim objAcrobatAVDoc As New Acrobat.AcroAVDoc
Dim objAcrobatPDDoc As Acrobat.AcroPDDoc
Dim AcrobatId As Long
Dim objJs As Object
'Acrobatアプリを起動
AcrobatId = objAcrobatApp.Show
'PDFファイルを開く
AcrobatId = objAcrobatAVDoc.Open(pdfFilePath, "")
'PDDocオブジェクトを取得
Set objAcrobatPDDoc = objAcrobatAVDoc.GetPDDoc()
'Acrobat JavaScriptオブジェクトを作成
Set objJs = objAcrobatPDDoc.GetJSObject
'PDFをテキストで保存
objJs.SaveAs txtFilePath, "com.adobe.acrobat.plain-text"
補足
早速の回答ありがとうございます。確かにタイミングの問題のようなんです。 VBAで、DoCmd.PrintOutしているのみです。この後、制御はAcrobatに渡っているので、手も足も出せないような気がしています。 プリンタとしてAdobePDFを指定し、そのプロパティで”結果のAdobePDFを表示”の設定しています。