GBKEE

¦^´_ 4# 0939875756
­×§ï§A´£°Ý http://forum.twbts.com/thread-2036-1-3.html
Hsiehª©¥Dµ¹ªº

1. Sub Ex()
   
2.     Dim fd$, fs$
   
3.     fd = "D:\10¤ë\" '§ó§ï¦¨§Aªº10¤ë¸ê®Æ§¨¥Ø¿ý
   
4.     fs = Dir(fd & "*.xls")
   
5.     Application.ScreenUpdating = False
   
6.     Do Until fs = ""
   
7.         With Workbooks.Open(fd & fs)
   
8.             .Sheets("¼Ò»s").PrintOut
   
9.             .Close 0
   
10.         End With
    
11.         fs = Dir
    
12.     Loop
    
13.     Application.ScreenUpdating = True
    
14. End Sub

½Æ»s¥N½X