- 帖子
- 37
- 主題
- 9
- 精華
- 0
- 積分
- 61
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-4-26
- 最後登錄
- 2014-7-28
|
- Sub SaveIt()
- Msg = MsgBox("My Dear Friend,It's been a while,please press YES to save file!" & Chr(13) _
- & "是(Y):Save File" & Chr(13) _
- & "否(N):You Are in Trouble." & Chr(13) _
- & "取消Cancel:Your Boss Is in Trouble.", vbYesNoCancel + 64, "Take a Break!")
- '提示用戶保存當前活動文檔。
- If Msg = vbYes Then Application.Run "OutputtoUpdatedDataI" Else If Msg = vbCancel Then Exit Sub
- ActiveWorkbook.Save
- ActiveWorkbook.Worksheets("Updated Data").Copy
- ActiveWorkbook.Worksheets("Updated Data").SaveAs "D:\" & "Updated Data" & ".xlsx"
- ActiveWorkbook.Worksheets("Updated Data").SaveAs "D:\Updated Data " & Date$ & ".xlsx"
- Call runtimer '如果用戶沒有選擇取消就再次調用 Runtimer
- End Sub
複製代碼 回復 20# Hsieh
搞定了!!
謝謝超級版主的指點!設定好了很好用喔!由於這個備份會把同檔案覆蓋上去,有許多幼幼班的使用者共同使用該檔,所以我也在另外設定儲存三個檔案(1.原檔、2.只有該工作表、3.只有該工作表+日期),不過有1個小問題想麻煩請超級版處幫我解決:
1. 存'只有該工作表'在執行指令時會開起儲存後自動關閉,但'只有該工作表+日期'這個不會,請問要怎麼樣才能使2、3備份檔都在儲存後自動關閉呢? (我試了幾個方法但不靈光...有把3個檔都關掉也有3個檔都開起沒被關掉...-_-lll)
拜託您了!!
謝謝!
弱女子留 |
|