½Ð°Ývba-°õ¦æ¶}±Ò¬¡­¶Ã¯

eric093

½Ð°Ý¦U¦ì¡G
¦pªG¦b¤½¥qªº¦@¥Î°Ï¨C¤é·|¨Ì¤é´Á²£¥Í·sªº³øªí¡A¨äÀɦW¬°¡G¬d®Ö¸ê®Æ0725.xls
­Y¬O§Ú·Q¼g¤@­Ó¥¨¶°¡A¨C¤é°õ¦æ®É·|¦Û°Ê¶}±Ò·í¤é¡]©Î«e¤@¤é¡^ªº³øªí¶Ü¡H

·PÁ¡I

eric093

·PÁ³á¡I§Úª¾¹D¤F¡I
§Ú¯uªº«Ü²L¡AÁÙ¦b¾Ç²ß¡AÁÙ¦n¦³³o­Óºô¯¸¥i¥H½Ð¦U¦ì°ª¤â¡I

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

eric093

©êºp¡A½Ð°Ý±µÄò¤W­±ªº°Ê§@«á¡A§Ú·Q±N¶}±Òªº¬d®Ö¸ê®Æ¡]´N¥u¦³¤@­Ósheet)¶i¦æ½Æ¨î¦Ü­ì¥»ÀɮסA
¦ý«ç»ò¸Õ³£¤£¦æ...±Ï±Ï§Ú§a
Window("sStr&.xls").Activate.Select
Windows("sStr&.xls").Activate.Copy
Workbooks("½m²ß¶}ÀÉ").Sheets("sheet1").Select

Workbooks("½m²ß¶}ÀÉ").Sheets("sheet1").Paste

eric093

·PÁ¡A¤£¹L¡A·Q°ÝsStr$¡A¥[³o­Ó$¬O¤°»ò·N«ä¡H¥i¥H¤£¥[¶Ü¡H

luhpro

¦^´_ 1# eric093

1. Dim sStr$, sPath$
   
2. sPath = "D:\"   ' ½Ð³]¬°¹ê»Ú¬d®Ö¸ê®Æ¬ÛÃöÀɮשҦbªº¥Ø¿ý
   
3. sStr = "¬d®Ö¸ê®Æ" & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".xls"
   
4. Workbooks.Open sPath & sStr

½Æ»s¥N½X