Excel VBAでブックのプロパティを取得する|30項目の取得テスト

BuiltinDocumentPropertiesを使用し、ブックのプロパティを取得するVBAを掲載しています。


Homeに戻る > Excel ブックのTipsへ

ブックのプロパティを見るにはプロパティ画面を開き見ることができるますが、Excel VBAでも可能です。
逆に設定するには「ブックのプロパティを設定する」Tipsを見てください。





■ プロパティの取得項目内容

(*)の項目はテストしましたが取得できないようです。

  • 1 : タイトル - Title
  • 2 : サブタイトル - Subject
  • 3 : 作成者 - Author
  • 4 : キーワード - Keywords
  • 5 : コメント - Comments
  • 6 : テンプレート - Template
  • 7 : 更新者 - Last Author
  • 8 : 改訂番号 - Revision Number
  • 9 : アプリケーション名 - Application Name
  • 10 : 印刷日時 - Last Print Date
  • 11 : 作成日時 - Creation Date
  • 12 : 更新日時 - Last Save Time
  • 13 : 編集時間 - Total Editing Time
  • 14 : ページ数 - Number of Pages
  • 15 : 単語数 - Number of Words
  • 16 : 文字数 - Number of Characters (*)
  • 17 : セキュリティ - Security
  • 18 : 分類 - Category
  • 19 : 形式 - Format
  • 20 : 管理者 - Manager
  • 21 : 会社名 - Manager
  • 22 : バイト数 - Number of Bytes (*)
  • 23 : 行数 - Number of Lines (*)
  • 24 : 段落数 - Number of Paragraphs (*)
  • 25: スライドの数 - Number of Slides (*)
  • 26 : メモの数 - Number of Notes (*)
  • 27 : 非表示スライドの数 - Number of Hidden Slides (*)
  • 28 : マルチメディアクリップの数 - Number of Multimedia Clips (*)
  • 29 : ハイパーリンクの基点 - Hyperlink Base
  • 30 : 文字数(スペースを含む) - Number of Characters (with space) (*)

Excel実行シート画面

ブックのプロパティをセットボタンをクリックすると、順に項目を取得し表示します。
D列に表示した項目のプロパティを取得し、E列に表示しています。

Bookのプロパティを表示する

Excel VBA実行コード

取得できない項目はエラーになるのでコメントにしています。

Option Explicit
Private Sub CommandButton1_Click()
'1 : タイトル
Range("E1") = ActiveWorkbook.BuiltinDocumentProperties.Item("Title")
'2 : サブタイトル
Range("E2") = ActiveWorkbook.BuiltinDocumentProperties.Item("Subject")
'3 : 作成者
Range("E3") = ActiveWorkbook.BuiltinDocumentProperties.Item("Author")
'4 : キーワード
Range("E4") = ActiveWorkbook.BuiltinDocumentProperties.Item("Keywords")
'5 : コメント
Range("E5") = ActiveWorkbook.BuiltinDocumentProperties.Item("Comments")
'6 : テンプレート
Range("E6") = ActiveWorkbook.BuiltinDocumentProperties.Item("Template")
'7 : 更新者
Range("E7") = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Author")
'8 : 改訂番号
Range("E8") = ActiveWorkbook.BuiltinDocumentProperties.Item("Revision Number")
'9 : アプリケーション名
Range("E9") = ActiveWorkbook.BuiltinDocumentProperties.Item("Application Name")
'10 : 印刷日時
'Range("E10") = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Print Date")
Range("E10") = ActiveWorkbook.BuiltinDocumentProperties.Item(10)
'11 : 作成日時
Range("E11") = ActiveWorkbook.BuiltinDocumentProperties.Item("Creation Date")
'12 : 更新日時
Range("E12") = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
'13 : 編集時間
Range("E13") = ActiveWorkbook.BuiltinDocumentProperties.Item("Total Editing Time")
'Range("E13") = ActiveWorkbook.BuiltinDocumentProperties.Item(13)
'14 : ページ数
Range("E14") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Pages")
'Range("E14") = ActiveWorkbook.BuiltinDocumentProperties.Item(14)
'15 : 単語数
Range("E15") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Words")
'Range("E15") = ActiveWorkbook.BuiltinDocumentProperties.Item(15)
'16 : 文字数
'Range("E16") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Characters")
'Range("E16") = ActiveWorkbook.BuiltinDocumentProperties.Item(16)
'17 : セキュリティ
Range("E17") = ActiveWorkbook.BuiltinDocumentProperties.Item("Security")
'18 : 分類
Range("E18") = ActiveWorkbook.BuiltinDocumentProperties.Item("Category")
'19 : 形式
Range("E19") = ActiveWorkbook.BuiltinDocumentProperties.Item("Format")
'20 : 管理者
Range("E20") = ActiveWorkbook.BuiltinDocumentProperties.Item("Manager")
'21 : 会社名
Range("E21") = ActiveWorkbook.BuiltinDocumentProperties.Item("Manager")
'22 : バイト数
'Range("E22") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Bytes")
'Range("E22") = ActiveWorkbook.BuiltinDocumentProperties.Item(22)
'23 : 行数
'Range("E23") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Lines")
'Range("E23") = ActiveWorkbook.BuiltinDocumentProperties.Item(23)
'24 : 段落数
'Range("E24") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Paragraphs")
'Range("E24") = ActiveWorkbook.BuiltinDocumentProperties.Item(24)
'25: スライドの数
'Range("E25") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Slides")
'Range("E25") = ActiveWorkbook.BuiltinDocumentProperties.Item(25)
'26 : メモの数
'Range("E26") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Notes")
'Range("E26") = ActiveWorkbook.BuiltinDocumentProperties.Item(26)
'27 : 非表示スライドの数
'Range("E27") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Hidden Slides")
'Range("E27") = ActiveWorkbook.BuiltinDocumentProperties.Item(27)
'28 : マルチメディアクリップの数
'Range("E28") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Multimedia Clips")
'Range("E28") = ActiveWorkbook.BuiltinDocumentProperties.Item(28)
'29 : ハイパーリンクの基点
Range("E29") = ActiveWorkbook.BuiltinDocumentProperties.Item("Hyperlink Base")
'30 : 文字数(スペースを含む)
'Range("E30") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Characters (with space)")
'Range("E30") = ActiveWorkbook.BuiltinDocumentProperties.Item(30)
End Sub


Homeに戻る > Excel ブックのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved