Hsieh

1. Sub ex()
   
2. Dim MyPath As String, fs As String, MySht As Worksheet
   
3. MyPath = ThisWorkbook.Path & "\"
   
4. fs = Dir(MyPath & "*.xls")
   
5. Do Until fs = ""
   
6. If fs <> ThisWorkbook.Name Then
   
7.    With Workbooks.Open(fs)
   
8.       Set MySht = .Sheets(2) '­n½Æ»sªº¤u§@ªí
   
9.       MySht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
   
10.       ActiveSheet.Name = Replace(fs, ".xls", "")
    
11.       .Close
    
12.     End With
    
13. End If
    
14.     fs = Dir
    
15. Loop
    
16. End Sub

½Æ»s¥N½X

¦^´_ 3# waterful.tw