註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 請問自動存檔的寫法
返回列表
下一主題
上一主題
發帖
[發問]
請問自動存檔的寫法
laieven
發短消息
加為好友
laieven
當前離線
UID
14669
帖子
81
主題
31
精華
0
積分
117
金錢
117
點名
0
作業系統
windows7
軟體版本
office2010
閱讀權限
20
性別
男
來自
台北
在線時間
25 小時
註冊時間
2013-8-3
最後登錄
2024-4-30
中學生
帖子
81
主題
31
精華
0
積分
117
點名
0
作業系統
windows7
軟體版本
office2010
閱讀權限
20
性別
男
來自
台北
註冊時間
2013-8-3
最後登錄
2024-4-30
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2015-9-15 18:38
|
只看該作者
[發問]
請問自動存檔的寫法
本帖最後由 laieven 於 2015-9-15 18:51 編輯
請問各位先進~~我用excel自動記錄~~在
vba
運行的過程中,每隔一段時間可能是5秒鐘
就自己存個檔,以免若不幸當機就白紀錄了我試了一小段程式
可以順利執行,但我要怎麼做才能讓他打開檔案就自動執行而不需要我在特別的去執行呢?
是寫在thisworkbook的
open
中嗎?
下載
(208.38 KB)
2015-9-15 18:50
自動存檔.rar
(11.96 KB)
下載次數: 16
2015-9-15 18:50
樓主熱帖
請教接收資料只要產生變動就記錄該怎麼寫
請問Application.OnTime Now + TimeValue("
請問一個自動記錄數據轉圖表的問題
請問visual basic圖表呈現的問題
詢問一個紀錄開高低收價的VBA問題
一段關於開盤價最高價最低價收盤價的vb程式
請問excel 2013數字列跑到右邊該怎麼恢復
請問程式在紀錄資料,如何讓最新資料保持可見
關於匯入外部資料的問題
請問一個關於dde連結的問題
收藏
分享
laieven
發短消息
加為好友
laieven
當前離線
UID
14669
帖子
81
主題
31
精華
0
積分
117
金錢
117
點名
0
作業系統
windows7
軟體版本
office2010
閱讀權限
20
性別
男
來自
台北
在線時間
25 小時
註冊時間
2013-8-3
最後登錄
2024-4-30
中學生
帖子
81
主題
31
精華
0
積分
117
點名
0
作業系統
windows7
軟體版本
office2010
閱讀權限
20
性別
男
來自
台北
註冊時間
2013-8-3
最後登錄
2024-4-30
2
#
發表於 2015-9-15 19:28
|
只看該作者
回復
1#
laieven
更新一下!!!!問題已解決!!!!!!
TOP
stillfish00
發短消息
加為好友
stillfish00
當前離線
UID
9276
帖子
1018
主題
15
精華
0
積分
1058
金錢
1058
點名
0
作業系統
win7 32bit
軟體版本
Office 2016 64-bit
閱讀權限
50
性別
男
來自
桃園
在線時間
1141 小時
註冊時間
2012-5-9
最後登錄
2022-9-28
大學生
帖子
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
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。
TOP
laieven
發短消息
加為好友
laieven
當前離線
UID
14669
帖子
81
主題
31
精華
0
積分
117
金錢
117
點名
0
作業系統
windows7
軟體版本
office2010
閱讀權限
20
性別
男
來自
台北
在線時間
25 小時
註冊時間
2013-8-3
最後登錄
2024-4-30
中學生
帖子
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
靜思自在 :
布施如播種,以歡喜心滋潤種子,才會發芽。
返回列表
下一主題
上一主題
Excelㄧ般區
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲