Excel VBA 指定したファイルが開かれているかを確認したい～IsFileOpen関数

Excel 2013のファイルからPDFを出力する際、すでに該当のPDFが開かれているとエラーになります。
今回は、指定したファイルが開かれているかを確認するVBA用関数を書いてみました。

ファイルオープン チェック関数

Public Function fncIsFileOpen(ByVal strArgFile As String) As Boolean

    On Error GoTo FILE_ERR
    
    Open strArgFile For Binary Access Read Lock Read As #1
    Close #1
    fncIsFileOpen = False
    
    Exit Function
    
FILE_ERR:

    fncIsFileOpen = True
    
End Function

参考にしたサイト

• Open Statement - Developer Network