GBKEE

¦^´_ 1# joey0415

1. Sub ¿ù»~¤£¥i°õ¦æ()
   
2.     Dim I As Integer, Sh As Worksheet, S As Long
   
3.     Workbooks(1).Worksheets("test").Activate  'ActiveSheet(§@¥Î¤¤ªº¤u§@ªí)
   
4.     'Cells(11, 2) ¬O³oWorksheets("test")ªº©Ò·|¦³¿ù»~
   
5.     For I = 3 To 5
   
6.         sname = Workbooks(1).Worksheets("test").Cells(I, 1)
   
7.         Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sname & ".xlsx"
   
8.         Set Sh = Workbooks(2).Worksheets("cr")   '
   
9.         S = Application.Sum(Sh.Range(Sh.Cells(11, 2), Sh.Cells(11, 5)))
   
10.         '¤£¬O ActiveSheet(§@¥Î¤¤ªº¤u§@ªí) ªºRange,Cells(ª«¥ó) ­n«ü¦W¤÷¼h
    
11.         
    
12.         If S > 0 Then Workbooks(1).Worksheets("test").Cells(I, 5) = S
    
13.         Workbooks(2).Close
    
14.     Next
    
15.    
    
16. End Sub

½Æ»s¥N½X