Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13476 / 13644 ツリー ←次へ | 前へ→

【5235】ファイルの更新日時の表示 ntomo 03/4/30(水) 10:47 質問
【5236】Re:ファイルの更新日時の表示 ntomo 03/4/30(水) 11:16 発言
【5237】Re:ファイルの更新日時の表示 ntomo 03/4/30(水) 11:32 回答

【5235】ファイルの更新日時の表示
質問  ntomo  - 03/4/30(水) 10:47 -

引用なし
パスワード
   こんにちは
ちょっとわからないところがあって教えてください。
ファイルを開いたときにそのファイルの最終更新日時を調べたいのですが、
エクスプローラーの実際の更新日時と違うものが表示されてしまいます。
エクスプローラー表記上は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

【5236】Re:ファイルの更新日時の表示
発言  ntomo  - 03/4/30(水) 11:16 -

引用なし
パスワード
   バージョンは
WIN2000
OFFICE98

です

【5237】Re:ファイルの更新日時の表示
回答  ntomo  - 03/4/30(水) 11:32 -

引用なし
パスワード
   自己レスですみません
FileDateTime 関数でうまくいくようです。

13476 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free