Sut i wirio a yw ffeil yn bodoli mewn ffolder ac yna ei dileu yn Excel?
Yn y tiwtorial hwn, byddwch yn dysgu sgript VBA i wirio a yw ffeil benodol yn bodoli mewn ffolder penodedig, os ydyw, yna ei dileu o'r ffolder yn Excel.
Gwiriwch a yw ffeil yn bodoli mewn ffolder yna dilëwch hi yn Excel gyda chod VBA
Mae'r sgript VBA ganlynol yn helpu i wirio a yw ffeil benodol yn bodoli mewn ffolder a'i dileu os yw'n bodoli. Gwnewch fel a ganlyn.
1. Mewn llyfr gwaith Excel agored, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch y sgript VBA ganlynol i'r Modiwl (Cod) ffenestr.
Cod VBA: Gwiriwch a yw ffeil yn bodoli mewn ffolder penodedig yna dilëwch hi
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
Nodyn: Yn y cod VBA, C:\Users\Win10x64Test\Desktop\cadw atodiadau\aaa.xlsx yw llwybr y ffeil yr ydych am ei wirio a yw'n bodoli. Yn yr enghraifft hon, rwyf am wirio a yw ffeil Excel o'r enw “aaa" yn bodoli mewn ffolder o'r enw "arbed atodiadau” ar y bwrdd gwaith. Gallwch newid y llwybr ffeil a'r estyniad ffeil i ddiwallu eich anghenion.
3. Gwasgwch y F5 allwedd i redeg y cod.
4. Os yw'r ffeil yn bodoli, byddwch yn cael a Kutools ar gyfer Excel blwch deialog fel y dangosir yn y screenshot isod. Cliciwch ar y OK botwm i dynnu'r ffeil hon o'r ffolder.
Os nad yw'r ffeil yn bodoli yn y ffolder, un arall Kutools ar gyfer Excel bydd blwch deialog hefyd yn ymddangos i roi gwybod i chi.
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!