¥»©«³Ì«á¥Ñ mycmyc ©ó 2010-10-19 22:33 ½s¿è
½Ð°Ý §Ú¼Ò¥é¥L¤H °µ¤@Ó ³Æ¥÷¥¨¶°
Sub backup_file()
'§âÀɮק@§¹¾ãªº³Æ¥÷¦b¥t¥~ªº¸ô®|
TmpN1 = Format(Date, "yyyymmdd") '¥Î¤µ¤Ñªº¤é´Á·í§@¥t¦s·sÀɪºÀɦW
TmpN2 = Format(Time, "s") '¥Î·í®Éªº¬í¼Æ·í¨úÀɦWªº±ø¥ó
ActiveWorkbook.SaveAs Filename:="C:\" & TmpN1 & "_" & TmpN2 & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
'³Æ¥÷Àɮתº¸ô®|¤ÎÀɦW
ActiveWorkbook.SaveAs Filename:="E:\macro-test\test2\" & TmpN1 & "_" & TmpN2 & "B" & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Workbooks.Open "C:\" & TmpN1 & "_" & TmpN2 & ".xls"
Workbooks(TmpN1 & "_" & TmpN2 & "B" & ".xls").Close SaveChanges:=False
End Sub
¤]°µ¤@Ó«öÁä §Ú·Q«ö«á ¯à¥X²{¤@Ó«H®§"§A½T©wn¦sÀÉ¶Ü " ¦³ "¬O" "§_"
³o³Æ¥÷ÀÉ «Ü©Ç ¥L·|Àx¦s¨ì³Æ¥÷ÀÉ ¦ý¥ÀÀÉ «o¨SÀx¦s¨ì «K¸õ¨ì ³Æ¥÷ÀÉ
¯àÀ°§Ú×¥¿ ¥ÀÀɤ]Àx¦s ¨Ã³Æ¥÷ ¨Ãºû«ù¥ÀÀɶ}±Òª¬ºA ¶Ü
³Æ¥÷.rar (13.85 KB)
ActiveWorkbook.Save ¸Ñ¨M Àx¦s¥ÀÀÉ°ÝÃD |