GBKEE

¦^´_ 4# eric093

1. Option Explicit
   
2. Sub Ex()
   
3.     'String(¦r¦ê)ªº«¬ºA«Å§i¦r¤¸¬° $¡C
   
4.     'Dim sStr$, sPath$
   
5.     Dim sStr As String, sPath As String  'Dim(«Å§i)  ÅÜ¼Æ As String(¦r¦ê)ªº«¬ºA
   
6.     sPath = "D:\"                        ' ½Ð³]¬°¹ê»Ú¬d®Ö¸ê®Æ¬ÛÃöÀɮשҦbªº¥Ø¿ý
   
7.     sStr = "¬d®Ö¸ê®Æ" & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".xls"
   
8.     Workbooks.Open sPath & sStr
   
9.     Workbooks(sStr).Sheets(1).Copy After:=Workbooks("½m²ß¶}ÀÉ").Sheets(1)
   
10. 
    
11. End Sub

½Æ»s¥N½X