関数・メソッド

ブックのプロパティを取得する【BuiltinDocumentPropertiesプロパティ】【ExcelVBA】

構文

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

関連記事

 

コメント