Function IsFileOpen(filePath As String) As Boolean
Dim fileNum As Integer
On Error Resume Next
fileNum = FreeFile()
Open filePath For Binary Access Read Write Lock Read Write As #fileNum
Close #fileNum
If Err.Number = 0 Then
IsFileOpen = False
Else
IsFileOpen = True
Err.Clear
End If
End Function
Sub CheckIfFileIsOpen()
Dim filePath As String
filePath = "C:\Path\To\Your\File.txt" ' ファイルのパスを指定してください
If IsFileOpen(filePath) Then
MsgBox "ファイルは開いています。"
Else
MsgBox "ファイルは開いていません。"
End If
End Sub