starry1314

¦^´_ 1# vavashop

§Ú¦Û¤vªº°µªk,¥ý½Æ»s¦n¸ê®Æ®w­n¶K¦Ü¥t¤@Àɮתºªº½d³ò,
¦b°õ¦æ§A­n°õ¦æªº¥¨¶°

1. Sub §å¦¸­×§ï()
   
2. 
   
3. ' ¿Ã¹õ¨ê·s,Ãö³¬
   
4. Application.ScreenUpdating = False
   
5. 
   
6.    Dim filenames As Variant
   
7. 
   
8. ''³]¸m¼Æ²Õµ¹Åܶq©M¯u¬°¦h¿ï
   
9.    ' set the array to a variable and the True is for multi-select
   
10.    filenames = Application.GetOpenFilename(, , , , True)
    
11. 
    
12.       counter = 1
    
13. 
    
14.       ' ¿ï¾Ü­n¶}±ÒªºÀÉ®×
    
15.       While counter <= UBound(filenames)
    
16. 
    
17.          '¥´¶}¿ï©wªº¤å¥ó
    
18.          Workbooks.Open filenames(counter)
    
19.          
    
20.          '¥¨¶°---------------------
    
21.          
    
22.          
    
23.          
    
24.          
    
25.          
    
26.          
    
27.          
    
28.          
    
29.          
    
30.          
    
31.          
    
32.          '¥¨¶°---------------------
    
33. 
    
34.    
    
35.         
    
36.          
    
37.          
    
38.               'Ãö³¬¿ï¾ÜªºÀÉ®×
    
39.          
    
40.          ActiveWorkbook.Close True
    
41.          
    
42. 
    
43. 
    
44.          '¶}±Ò·sÀÉ®×
    
45.          counter = counter + 1
    
46. 
    
47.       Wend
    
48.       
    
49.       ' ¿Ã¹õ¨ê·s,¶}±Ò
    
50. Application.ScreenUpdating = True
    
51. 
    
52.    End Sub

½Æ»s¥N½X