彰化一整天的論壇

 找回密碼
 立即註冊
查看: 945|回復: 3

定時自動存檔與關閉檔案

[複製鏈接]
發表於 2016-11-3 11:51:54 | 顯示全部樓層 |閱讀模式
您好:
   希望每天中午12點定時存檔,並關閉檔案,請教要如何做呢?
    謝謝!
回復

使用道具 舉報

發表於 2016-11-3 15:33:04 | 顯示全部樓層
本帖最後由 imingho 於 2016-11-3 15:40 編輯

您可以參考底下網友的做法.http://blog.xuite.net/chichuangc ... 1%E5%B7%A8%E9%9B%86
excel如何設定每1分鐘自動執行一次巨集
每分鐘去檢查是否是中午12點.
若是再去執行儲存檔案及關閉檔案.
再參考
https://www.youtube.com/watch?v=CuNq7N6jyIA
如何讓程式30秒後自動執行與關閉
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2016-11-3 18:18:43 | 顯示全部樓層
您好:謝謝!測試過已經沒有問題了!

Dim i As Single '宣告變數i
Dim Workday As Integer  '宣告變數Workday
Private Sub workbook_open() '當這個excel檔案打開時,執行以下程序

  Call a

End Sub
Private Sub a() '宣告一個程序a


     Application.OnTime Now + TimeValue("00:30:00"), "ThisWorkBook.b" '每隔一分鐘便執行程序b

  End Sub
  Private Sub b() '宣告一個程序b

  If Hour(Time) = 12 Then
  

    ThisWorkbook.Save '每分鐘存檔
    ThisWorkbook.Close False
  End If
  
     
End Sub
回復 支持 反對

使用道具 舉報

發表於 2016-11-4 09:38:38 | 顯示全部樓層
Lynn 發表於 2016-11-3 18:18
您好:謝謝!測試過已經沒有問題了!

Dim i As Single '宣告變數i

謝謝您提供程式碼.00:30:00是每隔30分鐘執行一次.
  1. Dim i As Single '宣告變數i
  2. Dim Workday As Integer  '宣告變數Workday
  3. Private Sub workbook_open() '當這個excel檔案打開時,執行以下程序

  4.   Call a

  5. End Sub
  6. Private Sub a() '宣告一個程序a


  7.      Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkBook.b" '每隔一分鐘便執行程序b

  8.   End Sub
  9.   Private Sub b() '宣告一個程序b

  10.   If Hour(Time) = 12 Then
  11.   

  12.     ThisWorkbook.Save '每分鐘存檔
  13.     ThisWorkbook.Close False
  14.   End If
  15.   
  16.      
  17. End Sub
複製代碼
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-9-23 23:57 , Processed in 0.148317 second(s), 18 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表