同じフォルダ内にあるテキストファイルを監視し更新があった場合に指定セルに「更新」と表示出来るコードを設定しましたが、別添のようなエラーメッセージが出てしまします。
コード内(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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コモンダイアログでフォルダを...
-
vbs ブック共有を解除
-
Wordテンプレート一括変更での...
-
動かなくなってしまった古いVBA...
-
ファイル番号の取得について
-
「エクセルファイルが開いてい...
-
ファイルを開く時間測定のスク...
-
カンマ区切りのCSVファイルから...
-
ファイルのアクセス回数について
-
エクセルのプロパティーでセキ...
-
エクセルのマクロで特定フォル...
-
エクセルvbaでdocuworksprinter...
-
会社のネットワーク上のファイ...
-
【C#】パス名で無効な文字
-
Windows10でコマンドプロンプト...
-
同じファイル名 上書きしないフ...
-
Vba初心者です。下記のコード助...
-
エクセルで複数のコメントのサ...
-
バッチファイル XCOPYで上書き...
-
デスクトップの画像をhtmlに表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダ含むフォルダ内の...
-
vbaサブフォルダーをワイルドカ...
-
FileDialog オブジェクトでファ...
-
動かなくなってしまった古いVBA...
-
ffftpでファイル取得が0バイト...
-
excel マクロ PDF化の際のエラ...
-
「エクセルファイルが開いてい...
-
VBAでCSVファイルを読み込もう...
-
VBからExcelファイルを開くとき...
-
vbsでのアスタリスクとファイル...
-
VBAでフォルダ内のhtmlファイル...
-
エクセルのVBAで開いている...
-
VB6でUTF-8ファイルの読取りを
-
EXCEL VBAを使ったファイル解析...
-
AccessからOLEオブジェクト型の...
-
タイムスタンプの更新の方法2
-
ExcelVBA 文字コード変換
-
ファイルを開く時間測定のスク...
-
VBAでのファイル名と更新日(作...
-
複数のワークブックのVBAを変更...
おすすめ情報