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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ストリームについて。
-
テキストファイルの特定行の削...
-
Excel VBAが徐々に遅くなる
-
VBA。開いているテキストファイ...
-
テキストファイルの一部分を抽...
-
ハングル語のテキスト変換で困...
-
ATTファイルってどうやって開け...
-
バイナリデータの中からMidのよ...
-
メール 添付フォルダ テキス...
-
TAB区切りのテキストをEXCELで...
-
gnuplot:テキストファイルから...
-
VBA で エクスプロー操作
-
accessでクエリをExcelにエクス...
-
COBOL、項目末尾に空白がある場...
-
HTMLまたはJavaScriptでフ...
-
COBOL FILLER
-
MDI形式のファイルから文字をき...
-
CシェルとCOBOLについて
-
FTP受信が不調
-
ファイナルカットで編集した動...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ATTファイルってどうやって開け...
-
Excel VBAが徐々に遅くなる
-
テキストファイルの一部分を抽...
-
既存のテキストファイルを開く方法
-
テキストファイル(英語&日本...
-
VB(VBA)で、バイナリデータを使...
-
パイソンでのテキストデータの...
-
VBA。開いているテキストファイ...
-
テキストファイルの特定行の削...
-
テキストファイル内容の、16進...
-
StreamReaderで読み込んだファ...
-
テキストファイル固定長データ...
-
ファイル変換
-
STM32 Nucleo-F446REでデータを...
-
テキストファイルで一番使われ...
-
エクセルVBAでメールの自動作成...
-
テキストファイルのログをExcel...
-
UTF-8とASCIIコードにおける互...
-
テキストファイル内の文字の有...
-
フォーム無しでアプリを作成す...
おすすめ情報