返回列表 上一主題 發帖

[發問] Excel 2007 自動另存新檔

wl02353427

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
新北市 
註冊時間
2013-11-30 
最後登錄
2023-1-12 
1# 跳轉到 »
發表於 2013-12-6 11:24 | 顯示全部帖子
以下是測試出來的方式，這方法不知道穩不穩定，也希望有前輩可以指導，新手學習中...

在工作表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
自動儲存裝置.rar (21.8 KB)
初新者~指教囉~

TOP

wl02353427

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
新北市 
註冊時間
2013-11-30 
最後登錄
2023-1-12 
2#
發表於 2013-12-6 11:27 | 顯示全部帖子
回復 3# macacajau

您好，2F前輩的程式碼僅複製上去執行就有效果。
初新者~指教囉~

TOP

wl02353427

帖子
30 
主題
4 
精華
0 
積分
34 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
10 
性別
男 
來自
新北市 
註冊時間
2013-11-30 
最後登錄
2023-1-12 
3#
發表於 2013-12-6 11:51 | 顯示全部帖子
本帖最後由 wl02353427 於 2013-12-6 11:53 編輯

回復 6# macacajau
應該可以直接複製以下使用，那個時間只是確認他有沒有在動而已...
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

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題