Sut i arbed a chau ffeil Excel yn awtomatig ar ôl amser segur penodol?
Mewn rhai achosion, megis gadael ffeil Excel ar ddisg a rennir, pan fydd defnyddiwr yn dal i agor y ffeil, ni all eraill olygu'r llyfr gwaith. Felly sut i gau'r ffeil ar ôl amser segur penodol er mwyn lleddfu gwaith pobl eraill? Bydd yr erthygl hon yn eich helpu gyda dull VBA.
Auto arbed a chau ffeil Excel ar ôl amser segur penodol gyda chod VBA
Auto arbed a chau ffeil Excel ar ôl amser segur penodol gyda chod VBA
I arbed a chau ffeil Excel yn awtomatig ar ôl amser segur penodol, gwnewch fel a ganlyn.
1. Agorwch y llyfr gwaith sydd ei angen arnoch i'w wneud yn awtomatig wedi'i gadw a'i gau ar ôl amser segur penodol. Yna pwyswch y Alt + F11 allweddi gyda'i gilydd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ar y Llyfr Gwaith hwn yn y cwarel iawn i agor ffenestr y Cod. Yna copïwch a gludwch islaw cod VBA i mewn i ffenestr y Cod. Gweler y screenshot:
Cod VBA 1: Cadw a chau ffeil Excel yn awtomatig ar ôl amser segur penodol
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 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
3. Yna ewch ymlaen i glicio Mewnosod > modiwl, a chopïo a gludo islaw'r cod i mewn i ffenestr y Modiwl. Gweler y screenshot:
Cod VBA 2: Cadw a chau ffeil Excel yn awtomatig ar ôl amser segur penodol
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
5. Cliciwch Ffeil > Save As > Pori. Gweler y screenshot:
6. Yn y Save As blwch deialog, dewiswch ffolder i achub y ffeil, ei henwi yn ôl yr angen yn y blwch enw Ffeil, dewiswch Llyfr Gwaith Macro-alluogedig Excel oddi wrth y Arbed fel math rhestr ostwng, ac yn olaf cliciwch y Save botwm. Gweler y screenshot:
O hyn ymlaen, bob tro wrth agor y llyfr gwaith hwn, a Kutools ar gyfer Excel bydd blwch deialog yn ymddangos. Rhowch yr amser y byddwch yn ei arbed ac yn cau'r llyfr gwaith yn seiliedig arno, ac yna cliciwch ar y OK botwm.
A bydd y llyfr gwaith yn cael ei gadw a'i gau yn awtomatig ar ôl yr amser segur penodedig hwnnw. Gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!