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