Sut i ddileu llyfr gwaith gweithredol (ffeil gyfredol) yn Excel?
Gadewch i ni ddweud ichi lawrlwytho llyfr gwaith o wefan ac agorodd y llyfr gwaith yn awtomatig. Fodd bynnag, efallai nad y llyfr gwaith yw'r un cywir, neu nid yw'r llyfr gwaith yn cynnwys y wybodaeth ofynnol, ac rydych chi am ei dileu. Weithiau, mae'n debyg eich bod yn anghofio'r cyfeiriadur diofyn y mae ffeiliau wedi'u lawrlwytho yn cael eu cadw i mewn yn awtomatig. Peidiwch â phoeni, gallwn ddileu'r llyfr gwaith agoriadol / gweithredol heb ei gau yn uniongyrchol yn Excel.
Dileu llyfr gwaith gweithredol (ffeil gyfredol) gyda VBA
Un clic i agor ffolder sy'n cynnwys llyfr gwaith gweithredol gyda'r llyfr gwaith hwn wedi'i ddewis
I agor y ffolder / cyfeiriadur sy'n cynnwys llyfr gwaith cyfredol yn gyflym, a chael llyfr gwaith cyfredol wedi'i ddewis yn y ffolder agoriadol, rhowch gynnig ar Kutools ar gyfer Excel's Ffolder sy'n Cynnwys Agored cyfleustodau.
Dileu llyfr gwaith gweithredol (ffeil gyfredol) gyda VBA
Bydd y dull hwn yn cyflwyno VBA i ddileu llyfr gwaith agoriadol / gweithredol heb ei gau yn Excel. Gwnewch fel a ganlyn:
1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, copïwch y cod VBA canlynol a'i gludo i mewn i ffenestr y modiwl agoriadol.
VBA: Dileu Llyfr Gwaith Gweithredol heb ei gau yn Excel
Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub
3. Gwasgwch y F5 allweddol neu Run botwm i redeg y VBA hwn.
Nodiadau:
(1) Gall y VBA hwn ddileu llyfr gwaith gweithredol, ond ni all gau ffenestr Excel. Os nad oes llyfrau gwaith yn agor ar ôl dileu llyfr gwaith gweithredol, caewch y ffenestr Excel â llaw.
(2) Os na arbedwyd llyfr gwaith gweithredol erioed o'r blaen, ni all y VBA hwn ei ddileu. Fodd bynnag, gallwch ddileu'r llyfr gwaith hwn sydd heb ei gadw yn uniongyrchol trwy ei gau.
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!