如何在特定空閒時間後自動儲存並關閉 Excel 檔案？

當我們將 Excel 工作簿儲存在共享記憶體中時，如果一人訪問工作表，其他人將無法儲存工作表；這個問題可以透過在一段時間後自動關閉工作表來解決。本教程將幫助您瞭解如何才能在特定空閒時間後自動儲存並關閉 Excel 檔案。

在特定空閒時間後自動儲存並關閉 Excel 檔案

在這裡，我們將首先為工作表插入 VBA 程式碼，然後建立一個 VBA 模組，然後執行它來完成我們的任務。讓我們來看一個簡單的過程，瞭解如何在一段時間後自動儲存並關閉 Excel 工作簿。我們將使用 VBA 應用程式的幫助來完成我們的過程。

步驟 1

讓我們考慮任何 Excel 工作簿，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。然後，雙擊此工作簿，並在文字框中鍵入“Program1”，如下圖所示。

示例

Dim xTime As String
Dim xWB As Workbook

Private Sub Workbook_Open()
'Updated by Nirmal
   On Error Resume Next
   xTime = Application.InputBox("Please specify the idle time:", "Plese enter the duration", "00:00:30", , , , , 2)
   Set xWB = ActiveWorkbook
   If xTime = "" Then Exit Sub
   Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   On Error Resume Next
   If xTime = "" Then Exit Sub
   Reset
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   On Error Resume Next
   If xTime = "" Then Exit Sub
   Reset
End Sub

Sub Reset()
   Static xCloseTime
   If xCloseTime <> 0 Then
      ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
   End If
   xCloseTime = Now + TimeValue(xTime)
   ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub

步驟 2

現在單擊“插入”，選擇“模組”，並在文字框中鍵入“Program 2”，如下圖所示。

示例

Sub SaveWork1()
'Updated by Nirmal
   Application.DisplayAlerts = False
   ActiveWorkbook.Save
   ActiveWorkbook.Close
    
   Application.DisplayAlerts = True
End Sub

步驟 2

將工作表另存為宏啟用模板，關閉工作表，然後重新開啟工作表。然後單擊“啟用程式碼”，然後輸入您希望工作表開啟的時間，然後單擊“確定”。

結論

在本教程中，我們使用了一個簡單的示例來演示如何在特定空閒時間後自動儲存並關閉 Excel 工作簿。

Pradeep Kumar

更新於：2023年1月11日

1K+ 次瀏覽

啟動您的 職業生涯

完成課程獲得認證

開始學習