メニューの”ファイル”−”プロパティー”、もしくはエクスプローラから
エクセルファイルのプロパティーを表示したときに表示される情報には組込み
のプロパティー(BuiltinDocumentProperties)とユーザ設定のプロパティー
(CustomDocumentProperties)があります。これらのプロパティーに含まれる
情報を取得するには次のようにします。先にプロパティー設定してからサン
プルを実行してください。

Sub GetDocumentPropertries()

    Dim Ret As String
    
    On Error Resume Next
    With ThisWorkbook
    
    '組込みのプロパティー(BuiltinDocumentProperties)
        Ret = "BuilinDocumentProperties" & vbCrLf
        For i = 1 To .BuiltinDocumentProperties.Count
            With .BuiltinDocumentProperties.Item(i)
                Ret = Ret & .Name & ":" & .Value & vbCrLf
                End With
                Next i
                
                'ユーザ設定のプロパティー(CustomDocumentProperties)
                Ret = Ret & vbCrLf & "CustomDocumentProperties" & vbCrLf
                For x = 1 To .CustomDocumentProperties.Count
                With .CustomDocumentProperties.Item(x)
                Ret = Ret & .Name & ":" & .Value & vbCrLf
            End With
        Next x
    End With
    
    MsgBox Ret
    
End Sub