<06-10 특정 파일만 자동으로 가져와서 작업하기>

<06-10 특정 파일만 자동으로 가져와서 작업하기> 
   Dim FN As String 
   Dim wb As Workbook 
   Dim ws As Worksheet 
    
   Application.ScreenUpdating = False 
    
   FN = Environ("userprofile") & "\Desktop\Test\Test.xlsx" 
       
   If IsFileExist(FN) = False Then 
      MsgBox "파일이 존재하지 않습니다" 
      Exit Sub 
   End If 
    
   If IsFileOpen(FN) = True Then 
      MsgBox "파일이 이미 열려 있습니다. 닫고 다시 시작하세요" 
      Exit Sub 
   End If 
    
   Set wb = Workbooks.Open(Filename:=FN, UpdateLinks:=0) 
   Set ws = wb.Sheets(1) 
    
   'to do 
    
   wb.Close False 
    
   Application.ScreenUpdating = True 
    
   Set wb = Nothing 
   Set ws = Nothing 
'---------------------------------------------------------------------------- 
Function IsFileExist(FN As String) As Boolean 
   IsFileExist = (Dir(FN) <> "") 

End Function 
'----------------------------------------------------------------------------- 
Function IsFileOpen(FN As String) As Boolean 
   Dim OpenFName As Workbook 
    
   On Error Resume Next 
   Set OpenFName = Workbooks(Dir(FN)) 
   IsFileOpen = (Err.Number = 0) 
End Function

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]