標題: 備份資料 [打印本頁]

---

作者: vinejason    時間: 2014-6-3 11:07     標題: 備份資料

平安
每週五都要備份資料
如何讓檔案每週五自動執行呢

Sub Backup()  
FileDate = Format(Date, "yyyymmdd")  ' 年月日格式共8個數字(備份)
ActiveWorkbook.SaveCopyAs Filename:= _
"\\Web_server\pcmac交換區\備份\" & FileDate & ".xls"
End Sub

---

作者: GBKEE    時間: 2014-6-3 14:28

回復 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個數字(備份)
   
5.         ActiveWorkbook.SaveCopyAs Filename:= _
   
6.         "\\Web_server\pcmac交換區\備份\" & FileDate & ".xls"
   
7.     End If
   
8. End Sub

複製代碼

---

作者: vinejason    時間: 2014-6-3 17:40

回復 2# GBKEE

平安
感謝超級版主的回覆
也增多些知識

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)