スキルアップ・問題解決なら、モーグにおまかせ！

メニューの“ファイル”−“プロパティ”、もしくはエクスプローラからエクセルファイルのプロパティを表示したときに表示される情報には組込みのプロパティ(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