Hsieh

¦^´_ 1# wisad


    ´`§Ç¶}ÀɸոÕ

1. Sub nn()
   
2. fd = "D:\" 'Àɮץؿý
   
3. obs = Array("ABC1.xls", "ABC2.xls", "ABC3.xls")
   
4. For Each ob In obs
   
5.    Workbooks.Open fd & ob
   
6. Next
   
7. End Sub

½Æ»s¥N½X

²Ä¤G­Ó°ÝÃD¬Ý¤£À´´y­z

Hsieh

¦^´_ 4# wisad

1. Sub Eddie_OTP2()
   
2.     Application.ScreenUpdating = False
   
3.     fd = ThisWorkbook.Path & "\" '"C:\OTP\"'¥H¬Û¦P¥Ø¿ý´ú¸Õ
   
4.     obs = Array("OTP1.xls", "OTP2.xls") 'ÀɮצCªí   
   
5.     r = 6 '¼g¤J°_©l¦C¦ì
   
6.         For i = 0 To 1
   
7.         With Workbooks.Open(fd & obs(i)) '¶}±ÒÀÉ®×
   
8.            For j = 13 To 15
   
9.               fstr = "CH" & ThisWorkbook.ActiveSheet.Cells(3, j)
   
10.                  Set a = .Sheets(1).Rows("7:7").Find(fstr, lookat:=xlWhole) '·j´M
    
11.                  If Not a Is Nothing Then ThisWorkbook.ActiveSheet.Cells(r, j) = Application.Max(a.EntireColumn)
    
12.            Next
    
13.         .Close
    
14.         r = r + 1
    
15.         End With
    
16.         Next
    
17. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# wisad
With....End With
°£¤F¤£¥²­«½Æ¨Ï¥Îª«¥ó±Ô­z¥~¡A±zÁ٬ݨì¬Æ»ò¤£¦P¥Îªk?
¤p§Ì¨£ÃѲLÁ¡¡AÁٽХS¥x«ü¾É