- 帖子
- 124
- 主題
- 43
- 精華
- 0
- 積分
- 167
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣台北
- 註冊時間
- 2011-3-16
- 最後登錄
- 2021-10-7
|
備份檔案
平安
以下代碼可以按日期備份檔案
一個問題請教
假如這個檔案有許多Sheet
我只想另存Sheet(3,5,6,10,11,12,14,15)
可以做到嗎 ?
Sub Backup ()
PAF = MsgBox("要備份資料嗎?", vbYesNo + vbQuestion, "訊息視窗")
If PAF = vbYes Then
Application.StatusBar = "檔案備份中,敬請稍候!"
FileDate = Format(Date, "yyyymmdd") ' 年月日格式共8個數字(備份)
ActiveWorkbook.SaveCopyAs filename:= _
"\\Web_server\pcmac交換區\發行\備份\" & FileDate & ".xls"
Else
MsgBox "再見 !", vbOKOnly + vbInformation, "訊息視窗"
End If
end sub |
|
發表於 2014-6-19 09:01
| 
