- ©«¤l
- 16
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 60
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7 Professional
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-29
- ³Ì«áµn¿ý
- 2014-2-27
|
[µo°Ý] ¦sÀɮɡA¦Û°Ê¥[¤J¦sÀɮɪº¤é´Á
½Ð±Ð¦U¦ì°ª¤â
¤§«e¤p§Ì¦b½׾§ä¨ì¤@½g¸ê®Æ
http://gb.twbts.com/index.php?topic=660.msg2935#msg2935- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
- Cancel = True
- Me.Save
- Me.SaveCopyAs Me.Path & "\" Replace(Me.Name,".xls",Format(Date,"emmdd") & ".xls")
- End Sub
½Æ»s¥N½X ¦ý¬O²{¦b¤£¯à¥Î¤F
¥X²{¥²¶·¬O³¯zµ²§Àªº¿ù»~
½Ð°Ý¬Oreplaceªº¥Îªk¦³§ï¶Ü?
¤p§Ì¬O¥Î2007ª© |
|