構文
Object.BuiltinDocumentProperties.index
index・・・ワークブックのプロパティを取得
BuiltinDocumentPropertiesプロパティはObjectに指定したプロパティを取得します。
ワークブックの作成者や作成日時、アクセス日時などを取得可能です。
取得可能な情報は以下参照。※一例です
| 名前 | インデックス番号 | 説明 |
| Title | 1 | タイトル |
| Subject | 2 | 件名 |
| Author | 3 | 作成者 |
| Keywords | 4 | タグ(キーワード) |
| Comments | 5 | コメント |
| Template | 6 | テンプレート |
| Last Author | 7 | 前回保存者 |
| Revision Number | 8 | 改訂番号 |
| Last print Date | 10 | 前回印刷日 |
| Creation Date | 11 | 作成日時 |
| Last Save Time | 12 | 更新日時 |
| Total Editing Time | 13 | 編集時間(分) |
| Number of Oages | 14 | ページ数 |
| Number of Words | 15 | 単語数 |
| Number of Characters | 16 | 文字数(スペースは含まない) |
| Security | 17 | セキュリティ(パスワード保護) |
BuiltinDocumentPropertiesプロパティのサンプルコード
Public Sub sample()
'■タイトルを反映(インデックス番号で反映)
ThisWorkbook.BuiltinDocumentProperties(1) = "sample" '1=タイトルをsampleに変更
'■コメントを反映(名前で反映)
ThisWorkbook.BuiltinDocumentProperties("Comments") = "test" 'Comments=コメントをtestに変更
'■タイトルを取得(名前で取得)
Debug.Print ThisWorkbook.BuiltinDocumentProperties("Title") 'sample
'■コメントを取得(インデックス番号で取得)
Debug.Print ThisWorkbook.BuiltinDocumentProperties(5) 'test
'■設定されていない値や名前を取得すると実行時エラー '5':プロシージャの呼び出し、または引数が不正です。
Debug.Print ThisWorkbook.BuiltinDocumentProperties(999)
Debug.Print ThisWorkbook.BuiltinDocumentProperties("aaa")
End Sub
注意点
- ブックのプロパティを削除したい場合は RemoveDocumentInformation メソッドを参照ください。
- 設定されていないプロパティを参照する場合はエラーが発生します。
関連記事



コメント