downling

¦^´_ 9# Hsieh

¤£¦n·N«ä
Åý±z»~·|¤F

¤p§Ì»Ý­nªº¬O®³¨ìÀɮ׫á
¨Ï¥Îvba¥h­×§ïÀɦW(¥[¤W©Î­×§ï¦¨¤µ¤Ñ¤é´Á)«á¥t¦s·sÀÉ
ex:aaa.xlsx ---> aaa_20111110.xlsx or bbb_20111005.xlsx ---> bbb_20111110.xlsx

¤W­±ªºµ{¦¡À³¸Ó¥u¾A¥Î©ó¨S¦³¤é´ÁªºÀɦW.....

¦Ü©ó¤W¤W­±¨º­Óµ{¦¡«h¬O®³¨Ó°Ñ¥Î¤@¤U¥Lªº«äªk¦Ó¤wʨ

Hsieh

¦^´_ 8# downling

¨º§A­nªº»Ý¨D¥²¶·»¡©ú²M·¡ªü
³o¥u¤£¹L¬O¦r¦ê´À´«°ÝÃD
§Aªº³Ì²×ÀɦW¦r¦ê­n±o¨ì«ç¼Ë©O?

downling

­è¤S­×§ï¤F¤@¤U
²{¦bvba·|§â"§AªºÀɦW.xlsx"¥t¦s·sÀɬ°"§AªºÀɦW_yyyymmdd.xlsx"
½Ð«ü±Ð

1. Sub TD()
   
2. 
   
3.    myname = Application.ActiveWorkbook.FullName
   
4.    Application.DisplayAlerts = False
   
5.    ActiveWorkbook.SaveCopyAs Replace(myname, ".xls", "_" & Format(Date, "yyyymmdd") & ".xls")
   
6.    Application.DisplayAlerts = True
   
7.    
   
8. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# downling


    mypath = ThisWorkbook.Path & "\"

downling

¦^´_ 5# Hsieh

Hsieh ª©¤j±z»~·|¤F

¤W­±ªºµ{¦¡2007¬O¥i¥H¨Ï¥Îªº
¦ý¬OÀÉ®×¥²»Ý¬°¤@­Ó±a¥¨¶°ªºÀɮפ]´N¬O°ÆÀɦW¬°xlsm

²{¦b¤p§Ì¦]¤u§@ªº»Ý­n¡A¥²»Ý±`±`§ó·s¤£¦PªºÀɮסA¥Ñ©ó¬O¤£¦P¤H©Òµ¹ªº¡A
©Ò¥H·Q­n°µ¦¨¤@³q¥Îªº¥¨¶°©ÎVBA
ÅýµL¥¨¶°ªºÀɮס]¤]´N¬O¤@¯ëªºXLSÀÉ¡^¤]¯à¤è«Kªº¥[¤W¤é´Á

¤p§Ì¦³¦bºô¸ô¤W§ä¨ìÃþ¦üªº
¦ý¬O¸ô®|¬O³]¦nªº
·Q»¡­n«ç»ò­×§ï¦¨­ì¨ÓªºÀɮשҦbªº¸ê®Æ§¨

1. Sub TD()
   
2. ¡@ mypath = "C:\Documents and Settings\Administrator\®à­±\"
   
3. ¡@ myfile = "NN" & Format(Date, "emmdd") & ".xls"
   
4. ¡@ Sheets(Array("Sheet2", "Sheet3")).Copy
   
5. ¡@ ActiveWorkbook.SaveAs mypath & myfile
   
6. ¡@ Workbooks(myfile).Close
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 4# downling
¨º¥u¬Oª©¥»°ÝÃD
³o»yªk2003ª©¾A¥Î

downling

¦^´_ 2# Hsieh

§Ú·Q¦A°Ý¤@¤U
¤§«eªºvba¥²»Ý¬°¤@±a¥¨¶°ªºxlsmÀɤ~¯à¨Ï¥Î

­Y¬O¥Î¤@¯ëªºxlsÀɪºvba­n¦p¦ó¼g©O?

downling

·PÁÂHsiehª©¤j
¥i¥H¥Î¤F

Hsieh

¦^´_ 1# downling
¤Ö¤F¤@­Ó&
Me.SaveCopyAs Me.Path & "\" & Replace(Me.Name, ".xls", Format(Date, "emmdd") & ".xls")

¥ÎFULLNAME·|²M·¡ÂI
Me.SaveCopyAs Replace(Me.FullName, ".xls", Format(Date, "emmdd") & ".xls")