標題: [發問] 請問自動存檔的寫法 [打印本頁]

---

作者: laieven    時間: 2015-9-15 18:38     標題: 請問自動存檔的寫法

本帖最後由 laieven 於 2015-9-15 18:51 編輯

請問各位先進~~我用excel自動記錄~~在vba運行的過程中,每隔一段時間可能是5秒鐘
就自己存個檔,以免若不幸當機就白紀錄了我試了一小段程式
可以順利執行,但我要怎麼做才能讓他打開檔案就自動執行而不需要我在特別的去執行呢?

是寫在thisworkbook的open中嗎?

[attach]21989[/attach]
[attach]21990[/attach]

---

作者: laieven    時間: 2015-9-15 19:28

回復 1# laieven


    更新一下!!!!問題已解決!!!!!!

---

作者: stillfish00    時間: 2015-9-15 19:32

本帖最後由 stillfish00 於 2015-9-15 19:35 編輯

回復 2# laieven
5秒太快了吧，建議儲存間隔不要那麼短...
ThisWorkbook內

1. Dim dteNextTime As Date
   
2. 
   
3. Sub AutoSave()
   
4.     ThisWorkbook.Save
   
5.     dteNextTime = Now + TimeSerial(0, 0, 5)
   
6.     Application.OnTime dteNextTime, "ThisWorkbook.AutoSave", , True
   
7.    
   
8. End Sub
   
9. 
   
10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
11.     Application.OnTime dteNextTime, "ThisWorkbook.AutoSave", , False
    
12. End Sub
    
13. 
    
14. Private Sub Workbook_Open()
    
15.     AutoSave
    
16. End Sub

複製代碼

---

作者: laieven    時間: 2015-9-16 09:18

回復 3# stillfish00


    感謝提醒!!!
5秒是測試用~~我性子急~~^_^
正式運行我把它改為1分鐘!!!
也感謝熱情回應!!!
qqq
qqq
qqq
^_^

---

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