<06-12 특정한 파일을 유저가 선택해서 작업하기>

<06-12 특정한 파일을 유저가 선택해서 작업하기> 
   Dim FD As FileDialog 
   Dim FN As Variant 
   Dim wb As Workbook 
   Dim ws As Worksheet 
    
   Application.ScreenUpdating = False 
    
   ChDir ThisWorkbook.Path 
    
   Application.FileDialog(msoFileDialogFilePicker).Filters.Add "Excel Files", "*.xls*" 
    
   Set FD = Application.FileDialog(msoFileDialogFilePicker) 
    
   With FD 
       .AllowMultiSelect = True   '여러개 파일 선택 
       '.AllowMultiSelect = False   '한 개 파일 선택 
        
       If .Show Then 
    
           For Each FN In .SelectedItems 
               Set wb = Workbooks.Open(Filename:=FN, UpdateLinks:=0) 
               Set ws = wb.Sheets(1) 
                   
              'To do 
                
               wb.Close False 
           Next 
       End If 
    
        
   End With 

   Application.ScreenUpdating = True 
   Set wb = Nothing 
   Set ws = Nothing

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