返回列表下一主題上一主題發帖

備份資料

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-6-3 11:07 | 顯示全部帖子

備份資料

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

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