Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5432 / 76732 ←次へ | 前へ→

【76913】PDFのプロパティの取得の仕方
質問  K  - 15/4/11(土) 0:57 -

引用なし
パスワード
   すみません、行き詰まったのでお願いします。

やりたいことは、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にしていますが、最終的には一覧から
ファイル一覧を取得して、隣のセルにタイトルを入力していく感じです。
874 hits

【76913】PDFのプロパティの取得の仕方 K 15/4/11(土) 0:57 質問[未読]
【76914】Re:PDFのプロパティの取得の仕方 マナ 15/4/11(土) 16:12 発言[未読]
【76915】Re:PDFのプロパティの取得の仕方 マナ 15/4/11(土) 20:39 発言[未読]
【76922】Re:PDFのプロパティの取得の仕方 K 15/4/13(月) 20:16 お礼[未読]
【76923】Re:PDFのプロパティの取得の仕方 マナ 15/4/13(月) 20:27 発言[未読]
【76929】Re:PDFのプロパティの取得の仕方 K 15/4/13(月) 22:03 お礼[未読]

5432 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free