|
こんにちは
ちょっとわからないところがあって教えてください。
ファイルを開いたときにそのファイルの最終更新日時を調べたいのですが、
エクスプローラーの実際の更新日時と違うものが表示されてしまいます。
エクスプローラー表記上は2003/4/7 3:36:20ですが
MSGBOXの表記上は2003/4/7 11:42:52となっています。
そのファイルのプロパティは
作成日時 2003年4月15日、16:29:13
更新日時 2003年4月7日、3:36:20
アクセス日時 2003年4月30日
となっています。
他のエクセルファイル(ファイル名、入っているフォルダ、更新日時などが変わるはずなのですが)
を開いてからそのマクロを実行しても同じ時間(2003/4/7 11:42:52)が表示されます。
説明がわかりにくかったらすみませんよろしくお願いします。
以下にコードを記述しておきます。
Sub 更新日時チェック()
Dim dteDateTime As Date
Let dteDateTime _
= ThisWorkbook.BuiltinDocumentProperties( _
"Last save time" ).Value
MsgBox Format(dteDateTime, "yyyy年mm月dd日 hh:mm:ss") _
& " 現在のデータです。"
End Sub
|
|