파일 존재하는지, 열려있는지 함수 IsFileExist, IsFileOpen

 

 

 

 

Function IsFileExist(파일 As Variant) As Boolean

 IsFileExist = Dir(파일) <> ""
  
End Function

 

 

Function IsFileOpen(파일 As Variant) As Boolean

 Dim 열린파일 As Workbook
  
 On Error Resume Next
  Set 열린파일 = Workbooks(Dir(파일))

  IsFileOpen = Err.Number = 0
 
End Function