|
すみません、行き詰まったのでお願いします。
やりたいことは、ExcelにPDFファイル名の一覧が数百行ありまして、
それぞれのPDFに入力されているプロパティの
タイトル(Title)を取得したいのです。
環境はWindows7、Excel2010、Acrobat XIで、Readerではなく
製品版のAcrobatがインストールされています。
いろいろなサイトでそれっぽいコードがあるのですが、
どれもエラーで動かず、一応自分でエラーが出ないところまではいきました。
しかし肝心のタイトルが取得できません。
解決方法をご存知の方がいれば教えてください。
Sub test()
Dim ret As Boolean
Dim filePath As String
filePath = "C:\Users\hage\Desktop\test.pdf"
Dim acroApp As Object
Dim pdDoc As Object
Dim avDoc As Object
Set acroApp = CreateObject("AcroExch.APP")
Set pdDoc = CreateObject("AcroExch.PDDoc")
Set avDoc = CreateObject("AcroExch.AVDoc")
ret = avDoc.Open(filePath, "")
Dim strTitle As String
strTitle = pdDoc.GetInfo("Title")
MsgBox (strTitle)
ret = avDoc.Close(False)
acroApp.Exit
Set avDoc = Nothing
Set pdDoc = Nothing
Set acroApp = Nothing
End Sub
作業場が会社でデータを持ってこれないので打ち直しました。
細かい入力ミスは無視してください。
上はテストでMsgBoxにしていますが、最終的には一覧から
ファイル一覧を取得して、隣のセルにタイトルを入力していく感じです。
|
|