オープンしたファイルの最終保存日を取得するには

ThisWorkbookに次のマクロを貼り付けてください。なお、エクセルのカレントフォルダ名が"C:\My Documents"となっている場合は、そこにファイルを置いておく必要があります。その他の場合は、絶対パスで指定してください。

Private Sub Workbook_Open() Dim myFilefullname Dim mystamp myFilefullname = ActiveWorkbook.Name mystamp = FileDateTime(myFilefullname) Range("b1") = "このファイルの最終保存日は" Range("b2") = mystamp MsgBox myFilefullname & "の最終保存日付は、" & mystamp End Sub