返回列表 上一主題 發帖

EXCEL 定時依日期自動另存新檔

JamesLin

帖子
3 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
MS 
軟體版本
Win 7 
閱讀權限
10 
註冊時間
2015-2-7 
最後登錄
2015-2-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-7 10:46 | 只看該作者

EXCEL 定時依日期自動另存新檔

請教各位，

如何讓EXCEL 定時依日期自動另存新檔

謝謝
收藏 分享

JamesLin

帖子
3 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
MS 
軟體版本
Win 7 
閱讀權限
10 
註冊時間
2015-2-7 
最後登錄
2015-2-7 
2#
發表於 2015-2-7 11:50 | 只看該作者
wl02353427大大曾經發表過以下程序，但如何將該程序另存新檔時，巨集也不會同時儲存

在工作表1 or ThisWorkbook下：
Private Sub CommandButton1_Click()
startTimer
End Sub

Private Sub CommandButton2_Click()
stopTimer
End Sub

在模組當中：
Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
End Sub

Sub Increment_count()
hiji = Now()
Range("A1") = hiji

WaitSec = 30 '延遲時間

NameOfThisProcedure = "儲存程序"

NextTime = hiji + TimeSerial(0, 0, WaitSec)

Application.OnTime EarliestTime:=NextTime, Procedure:=NameOfThisProcedure, LatestTime:=NextTime

startTimer
End Sub

Sub 儲存程序()
  ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmdd") & ".xls"
End Sub

TOP

JamesLin

帖子
3 
主題
1 
精華
0 
積分
5 
點名
0  
作業系統
MS 
軟體版本
Win 7 
閱讀權限
10 
註冊時間
2015-2-7 
最後登錄
2015-2-7 
3#
發表於 2015-2-7 15:10 | 只看該作者
請問如何設定另存新檔的時間。
我需要每幾天另存新檔
我試過在WaitSec 調整但儲存時間好像都不是固定
THX

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題