GBKEE

¦^´_ 1# spermbank
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim R As Integer, EPath As String, Ar(), Wb As Workbook
   
3.     EPath = "D:\base\"
   
4.     With Sheets("¤u§@ªí1")
   
5.         For R = 2 To .Range("A1").End(xlDown).Row 'ªÑ²¼½d³ò
   
6.             Set Wb = Workbooks.Open(EPath & .Cells(R, "A") & ".xlsx")
   
7.             With Wb.Sheets("BASIC")
   
8.                 Ar = Array(.[E9], .[E13], .[E12], .[C16], .[C7])
   
9.             End With
   
10.             .Cells(R, "C").Resize(1, 5) = Ar                                           '¬õ°Ï
    
11.             .Cells(R, "H").Resize(1, 8) = Wb.Sheets("FR").[B15].Resize(1, 8).Value     'ºñ°Ï
    
12.             .Cells(R, "P").Resize(1, 8) = Wb.Sheets("BASIC").[B32].Resize(1, 8).Value  '¶À°Ï
    
13.             Wb.Close False
    
14.      Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X