構文
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 メソッドを参照ください。
- 設定されていないプロパティを参照する場合はエラーが発生します。
関連記事
コメント