Hsieh

¦^´_ 3# bulletin
©ñ¦b'Workbooks("°]³ø²Î­pªí.xlsm")ªº¼Ò²Õ

1. Sub Getdata()
   
2.     For i = 2 To 5
   
3.         Dim WB1 As Workbook
   
4.             Set WB1 = Workbooks.Open (Filename:="C:\Users\user\Documents\KT\§ë¸ê²z°]\Excel¤ÀªR¼Ò²Õ\" & Range("A" & i) & "©u³ø.xlsx", UpdateLinks:=False, ReadOnly:=True)
   
5.              With Thisworkbook.Worksheets("sheet1")   'Workbooks("°]³ø²Î­pªí.xlsm")
   
6.                 Range("E" & i).FormulaR1C1 = "=[" & Range("A" & i) & "©u³ø.xlsx]ISQ!R4C2"
   
7.                 Range("F" & i).FormulaR1C1 = "=[" & Range("A" & i) & "©u³ø.xlsx]ISQ!R5C2"
   
8.             End With
   
9.         WB1.Close
   
10.     Next i   
    
11. End Sub

½Æ»s¥N½X