返回列表 上一主題 發帖

[發問] 請問自動存檔的寫法

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-15 18:38 | 只看該作者

[發問] 請問自動存檔的寫法

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

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

是寫在thisworkbook的open中嗎?


自動存檔.rar (11.96 KB)
收藏 分享

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
2#
發表於 2015-9-15 19:28 | 只看該作者
回復 1# laieven


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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2015-9-15 19:32 | 只看該作者
本帖最後由 stillfish00 於 2015-9-15 19:35 編輯

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

  3. Sub AutoSave()
  4.     ThisWorkbook.Save
  5.     dteNextTime = Now + TimeSerial(0, 0, 5)
  6.     Application.OnTime dteNextTime, "ThisWorkbook.AutoSave", , True
  7.    
  8. End Sub

  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  11.     Application.OnTime dteNextTime, "ThisWorkbook.AutoSave", , False
  12. End Sub

  14. Private Sub Workbook_Open()
  15.     AutoSave
  16. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
4#
發表於 2015-9-16 09:18 | 只看該作者
回復 3# stillfish00


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

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題