ExcelのVBAコードについて教えてください。

ThisWorkbookモジュールに下記のコードを設定しております。
このコードは同じフォルダ内にある、テキストファイルを編集し、再度保存した時の
日時を指定セルに表示出来るように設定しております。
このコードでは、テキストファイルを編集して、上書き保存をした時に
マクロを設定しているブックを、一旦閉じて、再度、開いた時にテキストファイルの最終日時を表示できますが、
マクロ設定ブックを開いたままで、テキストファイルの最終日時をセルに表示出来る方法を教えてください。
例えば
テキストファイルとマクロ設定ブックを同時に開いており、テキストファイルを編集し、上書き保存をしたタイミングで、マクロ設定ブックを開いたままで「更新」ボタン等をクリックすると
セルに最終日時に変更されて表示される等
が希望です。
よろしくお願いいたします。

Private Sub Workbook_Activate()

mystamp_update

End Sub

Private Sub Workbook_Deactivate()

mystamp_update

End Sub

Private Sub mystamp_update()

If mystamp > Sheets("青紙表").Range("AX75").Value Then
Sheets("青紙表").Range("AX75").Value = mystamp
Range("AX75").NumberFormatLocal = "yyyy/m/d h:mm:ss"
End If

End Sub

Private Function mystamp() As Double

Dim tDir As String
Dim tName As String
Dim fpName As String
Dim fName As String

tDir = ThisWorkbook.Path
tName = "*_再修正依頼.txt"
fpName = tDir & "\" & tName
fName = Dir(fpName)

If fName <> "" Then
fpName = tDir & "\" & fName
mystamp = FileDateTime(fpName)
End If

End Function

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/08/08 16:10

こんにちは

ご質問の内容はよくわからないけれど、ファイルの最終更新日を取得したいのなら
　FileDateTime(ファイルパス)
で可能です。

https://xtech.nikkei.com/it/atcl/column/15/09010 …

この回答へのお礼

回答ありがとうございました。
参考にさせて頂きます。

お礼日時：2023/08/08 16:16