前回保存日時の取得について

いくつか手段はありますが、FileSystemObject　を使用する例を出しておきます。

Sub aaa()
Dim FS As Object, wFile As Object, wFileName As String
Set FS = CreateObject("scripting.filesystemobject")
With FS
  wFileName = "C:\Users\xxxx\Desktop\AAA\ABook.xlsx"
  If FS.fileexists(wFileName) Then
     Set wFile = FS.getfile(wFileName)
     MsgBox wFile.datelastmodified
  End If
End With
Set FS = Nothing
End Sub

これはデスクトップにあるフォルダのファイルの存在をチェックした上で、ファイルの更新日を取得しています。

サーバー上のファイルであってもドライブを

\\ｘｘｘｘｘ\ｙｙｙｙ\ssss.xls

のようにサーバー名に書き換えれば同じです。

ファイルシステムオブジェクトについては検索すれば山のように出てきますが一例として

田中亨さんのサイトを示しておきます。

http://officetanaka.net/excel/vba/filesystemobject/index.htm

>>y sakuda様

早速のご回答、ありがとうございます。

教えていただいた通りにコードを書いてみましたが、やはり更新日時（≠前回保存日時）が表示されてしまいます。

FileオブジェクトのDateLastModifiedプロパティでは前回保存日時は取得できないようです。

確認したところ、Workbooksオブジェクトはファイルを開いていることが前提のようで、

開いていない状態ではBuiltInDocumentPropertiesプロパティを参照できないことが分かりました。

また、現状として「サーバー上の対象ファイルの更新日時と前回保存日時にズレがある」ことを記載しておりませんでした。

肝心なところで誤り・説明不足があったことをお詫びします。

まだ問題は解決しておりませんが、FileSystemObjectの使用は勉強になりました。

ありがとうございました。

前回保存日時と更新日時とどう違うんでしょうか？？

私には理解できません。

>>y sakudaさま

>>前回保存日時と更新日時とどう違うんでしょうか？？

ここ数日PCを使える環境になかったため、確認が遅れて申し訳ありません。

前回保存日時と更新日時がどう違うのかは私にも解りません。

ただはっきりしているのは、

　　1.サーバー上の単一のExcelブックで、前回保存日時と更新日時にズレがあること

　　2.内容を更新しても更新日時が正しく変化しないこと（4月21日13時のまま）

　　3.内容を更新すると前回保存日時が正しい日時に変化すること

といった事象です。

現在はScreenUpdatingをFalseにした上でサーバー上のブックを開き、

そこから前回保存日時を取得するという方策で一応の処理ができています。

しかし、使わないかもしれないのにブックをとりあえず開くという、あまりスマートでない

やり方が好ましくないということ、元ブックの起動処理に相当の時間がかかることもあり、

なんとか対象ブックを開かずに正しい更新日時（=前回保存日時）を知りたいと思う次第です。

むしろ、BuildinPropertyが正しく更新されていないトラブルでは？

こちらはExcelオブジェクトのPropertyですからお気づきのようにExcelブックを開かないとまともな方法では取得できないと思います。

少なくとも私は存じません。

>>y sakuda様

>>むしろ、BuildinPropertyが正しく更新されていないトラブルでは？

そういった方面の可能性もあるのですね。さすがにそうなると根本の原因を探すことも難しそうです。

当面は先に記した方法でしのごうと思います。

y sakuda様、ご丁寧に付き合って頂き、ありがとうございました。