
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ベストアンサー
- 回答日時:
こんにちは
ご質問の内容はよくわからないけれど、ファイルの最終更新日を取得したいのなら
FileDateTime(ファイルパス)
で可能です。
https://xtech.nikkei.com/it/atcl/column/15/09010 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WORDのVBAで差し込み印刷時、デ...
-
バイナリファイルの区別
-
ATTファイルってどうやって開け...
-
ファイル変換
-
c言語での単語数のカウント
-
テキストファイル固定長データ...
-
C#のプログラムについての質問
-
Excel VBAが徐々に遅くなる
-
accessでクエリをExcelにエクス...
-
CSVファイルの時刻の形式について
-
COBOL、項目末尾に空白がある場...
-
Excel で「OLE は現在使用でき...
-
MFC SDIアプリで開いているファ...
-
Eclipseで検索ができなくなった
-
コマンドプロンプトのテキスト...
-
リソースファイルを認識してく...
-
Content-Dispositionヘッダーとは
-
TransferSpreadsheetでフルパス...
-
0バイトのテキストファイル
-
VBAで、JPG写真の撮影日時を読...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ATTファイルってどうやって開け...
-
テキストファイルの一部分を抽...
-
テキストファイル固定長データ...
-
テキストファイルの特定行の削...
-
Excel VBAが徐々に遅くなる
-
VB(VBA)で、バイナリデータを使...
-
既存のテキストファイルを開く方法
-
WORDのVBAで差し込み印刷時、デ...
-
ファイル変換
-
C言語のソースからコメントを抜...
-
Zbarというソフトについて
-
C#テキストファイルから1バイト...
-
VBA。開いているテキストファイ...
-
C言語でテキストファイルをバイ...
-
テキストファイル内容の、16進...
-
フォーム無しでアプリを作成す...
-
[VB.NET] 処理の高速化を行いた...
-
VBSでテキストファイルの2行目...
-
テキストファイル(英語&日本...
-
StreamReaderで読み込んだファ...
おすすめ情報