ブックのプロパティを取得する : Excel(エクセル)

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

Excel Tipsメニューに戻る

スポンサードリンク



■ プロパティの項目内容
  (*)の項目はテストしましたが取得できないようです。

Excel実行画面

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

Excel Tipsメニューに戻る

スポンサードリンク





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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved