麻辣家族討論版版 » Excel程式區 » 請問自動存檔的寫法

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

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

中學生 Rank: 2

帖子: 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)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 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
^_^

大學生 Rank: 4

帖子: 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內

Dim dteNextTime As Date
Sub AutoSave()
ThisWorkbook.Save
dteNextTime = Now + TimeSerial(0, 0, 5)
Application.OnTime dteNextTime, "ThisWorkbook.AutoSave", , True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dteNextTime, "ThisWorkbook.AutoSave", , False
End Sub
Private Sub Workbook_Open()
AutoSave
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

2^#

發表於 2015-9-15 19:28 | 只看該作者

回復 1# laieven

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

靜思自在 : 發脾氣是短暫的發瘋。

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