同じフォルダ内にあるテキストファイルを監視し更新があった場合に指定セルに「更新」と表示出来るコードを設定しましたが、別添のようなエラーメッセージが出てしまします。
コード内(fileDateTime)が変色しております。
詳しいコード共に解決方法を教えてください。
このコードは作業ブックの「Sheet1」に設定しております。
コード
Option Explicit
Private Sub Worksheet_Activate()
' シートがアクティブになるたびに監視を開始する
StartFileMonitoring
End Sub
Private Sub Worksheet_Deactivate()
' シートが非アクティブになったら監視を停止する
StopFileMonitoring
End Sub
Private Sub StartFileMonitoring()
Application.OnTime Now + TimeValue("00:00:02"), "CheckForFileUpdate"
End Sub
Private Sub StopFileMonitoring()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:02"), "CheckForFileUpdate", , False
End Sub
Private Sub CheckForFileUpdate()
Dim folderPath As String
Dim fileName As String
Dim filePath As String
' 作業フォルダのパスを取得
folderPath = ThisWorkbook.Path
' 監視対象のテキストファイル名を設定(ここでは"sample.txt"としますが、実際のファイル名に合わせてください)
fileName = "23079238-1_再修正依頼.txt"
' ファイルのフルパスを取得
filePath = folderPath & "\" & fileName
' ファイルが存在し、前回の更新日時と異なる場合、セルに「更新」と表示する
If FileExists(filePath) And FileUpdated(filePath) Then
ThisWorkbook.Sheets("再修正").Range("A1").Value = "更新"
End If
' 監視を再開する
StartFileMonitoring
End Sub
Private Function FileExists(filePath As String) As Boolean
On Error Resume Next
FileExists = (Dir(filePath) <> "")
On Error GoTo 0
End Function
Private Function FileUpdated(filePath As String) As Boolean
Dim fileDateTime As Date
Dim prevFileDateTime As Date
Static prevFilePath As String
' 前回のファイルパスが設定されていない場合、または前回と異なるファイルを監視する場合
If prevFilePath = "" Or prevFilePath <> filePath Then
prevFileDateTime = #1/1/1601# ' 初期値は1601年1月1日(ファイルが存在しないことを示す)
prevFilePath = filePath
End If
' ファイルの更新日時を取得
fileDateTime = fileDateTime(filePath)
' 前回の更新日時と異なる場合、ファイルが更新されたと判定する
If fileDateTime <> prevFileDateTime Then
prevFileDateTime = fileDateTime
FileUpdated = True
End If
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
VBA 「,」・空白・カタカナ等の複数条件のマクロ
Visual Basic(VBA)
-
-
4
Vba Windows上で開いているファイル名を取得したい
Visual Basic(VBA)
-
5
Vba ユーザ定義関数について教えてください
Visual Basic(VBA)
-
6
wordのマクロで思うように行きません(ファイル削除ができない)
Visual Basic(VBA)
-
7
エクセルのマクロのコードについて
Visual Basic(VBA)
-
8
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
9
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
10
VBAについて 集計シートの『A5』にデータシート『I1』からコピーした「2023/10/1」がはい
Visual Basic(VBA)
-
11
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
12
エクセルで連勤チェックをしたいです。
Excel(エクセル)
-
13
EXCELの計算式のコピーについてのしつもんです。 10万件以上の支店が縦にずらっと続いています。
Excel(エクセル)
-
14
VBA コード
Visual Basic(VBA)
-
15
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
16
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ACCESS VBA】アクセスからデ...
-
複数のワークブックのVBAを変更...
-
VBAでフォルダ内のhtmlファイル...
-
ffftpでファイル取得が0バイト...
-
エクセルのVBAで開いている...
-
VBからExcelファイルを開くとき...
-
仕事で使用するマクロのコード...
-
vbaサブフォルダーをワイルドカ...
-
WSHでテキストファイルを修正し...
-
ファイル番号の取得について
-
遅延バインディングの回避方法
-
excel マクロ PDF化の際のエラ...
-
FTP対応のアプリケーション
-
「エクセルファイルが開いてい...
-
タイムスタンプの更新の方法2
-
Long型で表現できないファイル...
-
「AccessViolationException」...
-
VB.Netソリューションでフォー...
-
vbsでのアスタリスクとファイル...
-
EXCEL VBA tif画像のプロパティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
FileDialog オブジェクトでファ...
-
VBA ファイル名取得
-
VBAでフォルダ内のhtmlファイル...
-
excel マクロ PDF化の際のエラ...
-
vbsでのアスタリスクとファイル...
-
「エクセルファイルが開いてい...
-
ffftpでファイル取得が0バイト...
-
vbaサブフォルダーをワイルドカ...
-
ExcelVBA 文字コード変換
-
Accessのウインドウサイズの固定
-
サブフォルダ含むフォルダ内の...
-
VBからExcelファイルを開くとき...
-
VB6でUTF-8ファイルの読取りを
-
【VBAマクロ初心者】Excel VBA...
-
「AccessViolationException」...
-
エクセルのVBAで開いている...
-
Wordのプロパティ・総ページ数...
-
更新日が指定日以降のファイル取得
-
コモンダイアログでフォルダを...
おすすめ情報