Excelで更新日時と更新者を表示させる

いずれも、BuiltinDocumentPropertiesを使って表示してみました。ユーザー定義関数です。 日付は関数内で表示を指定しています。 =LastAuthor()、=LastSaveTime()　として使います。 '最終更新者 Public Function LastAuthor() 　　With ThisWorkbook 　　　　LastAuthor = .BuiltinDocumentProperties.Item(7) 　　End With End Function '最終更新日時 Public Function LastSaveTime() 　　With ThisWorkbook 　　　　LastSaveTime = Format(.BuiltinDocumentProperties.Item(12), "yyyy/mm/dd h:mm:ss") 　　End With End Function BuiltinDocumentPropertiesのItem番号と意味は、抜粋すると、 ( 3)Author ( 7)Last author ( 9)Application name (11)Creation date (12)Last save time (17)Security (21)Company　　　　　　です。 ＞BuiltinDocumentProperties(7)というのを使用するようですが、記述方法がまったくわかりません 組込みのプロパティーを全てアクティブシートのA、B、C列に書き出してみました。（記述方法の例です。） ↓ Sub printDocumentPropertries() 　　Dim itm As Integer 　　Dim rw As Integer 　　On Error Resume Next 　　With ThisWorkbook 　　　　For itm = 1 To .BuiltinDocumentProperties.Count 　　　　　　With .BuiltinDocumentProperties.Item(itm) 　　　　　　　　rw = rw + 1 　　　　　　　　Cells(rw, 1) = "'(" & itm & ")" 　　　　　　　　Cells(rw, 2) = .Name 　　　　　　　　Cells(rw, 3) = .Value 　　　　　　End With 　　　　Next 　　End With End Sub

VisualBasicEditerを起動して[標準モジュール]を作って下さい。 ここに Option Explicit Sub Auto_Open() Worksheets(1).Activate Cells(1, 1).Value = ActiveWorkbook.BuiltinDocumentProperties(7) End Sub と書いて保存し一旦閉じてからもう一度開いてみてください。 Auto_Openはファイルを開いた時に実行されます。

下の回答と補足より、 これを、記述すればお望みの答えとなるでしょう。 Function Koushinsya() As String Koushinsya = ActiveWorkbook.BuiltinDocumentProperties(7) End Function

ヘルプを見た限りでは Worksheets(1).Activate Cells(1, 1).Value = ActiveWorkbook.BuiltinDocumentProperties(7) で良いのではないでしょうか。 FunctionでもSubでも構わないと思います。 通常、処理結果を戻り値として返す必要があるときはFunctionを使います。