ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

³Æ¥÷¸ê®Æ

³Æ¥÷¸ê®Æ

¥­¦w
¨C¶g¤­³£­n³Æ¥÷¸ê®Æ
¦p¦óÅýÀɮרC¶g¤­¦Û°Ê°õ¦æ©O

Sub Backup()  
FileDate = Format(Date, "yyyymmdd")  ' ¦~¤ë¤é®æ¦¡¦@8­Ó¼Æ¦r(³Æ¥÷)
ActiveWorkbook.SaveCopyAs Filename:= _
"\\Web_server\pcmac¥æ´«°Ï\³Æ¥÷\" & FileDate & ".xls"
End Sub
µL¤îºÉªº§V¤O¤W¶i

¦^´_ 1# vinejason
  1. Sub Backup()
  2.     'If Weekday(Date, vbMonday) <> 5 Then Exit Sub
  3.     If Weekday(Date, vbMonday) = 5 Then
  4.         FileDate = Format(Date, "yyyymmdd")  ' ¦~¤ë¤é®æ¦¡¦@8­Ó¼Æ¦r(³Æ¥÷)
  5.         ActiveWorkbook.SaveCopyAs Filename:= _
  6.         "\\Web_server\pcmac¥æ´«°Ï\³Æ¥÷\" & FileDate & ".xls"
  7.     End If
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

¥­¦w
·PÁ¶W¯Åª©¥Dªº¦^ÂÐ
¤]¼W¦h¨Çª¾ÃÑ
µL¤îºÉªº§V¤O¤W¶i

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD