Ինչպե՞ս ստուգել, արդյոք ֆայլը գոյություն ունի թղթապանակում, ապա ջնջել այն Excel-ում:
Այս ձեռնարկում դուք կսովորեք VBA սկրիպտ՝ ստուգելու համար, թե արդյոք որոշակի ֆայլ գոյություն ունի նշված թղթապանակում, եթե կա, ապա ջնջեք այն Excel-ի թղթապանակից:
Ստուգեք, արդյոք ֆայլը գոյություն ունի թղթապանակում, ապա ջնջեք այն Excel-ում VBA կոդով
Հետևյալ VBA սկրիպտը օգնում է ստուգել, արդյոք որոշակի ֆայլ գոյություն ունի թղթապանակում և ջնջել այն, եթե այն կա: Խնդրում ենք անել հետևյալը.
1. Բաց Excel աշխատանքային գրքում սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք հետևյալ VBA սկրիպտը Մոդուլ (կոդ) պատուհան.
VBA կոդը. Ստուգեք, արդյոք ֆայլը կա նշված թղթապանակում, ապա ջնջեք այն
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
ՆշումVBA կոդում, C:\Users\Win10x64Test\Desktop\պահպանել հավելվածները\aaa.xlsx այն ֆայլի ուղին է, որը ցանկանում եք ստուգել, արդյոք այն գոյություն ունի: Այս օրինակում ես ուզում եմ ստուգել, արդյոք Excel ֆայլը կոչվում է «aaa«գոյություն ունի» անունով թղթապանակումպահպանել հավելվածները» աշխատասեղանի վրա: Դուք կարող եք փոխել ֆայլի ուղին և ֆայլի ընդլայնումը ձեր կարիքներին համապատասխան:
3. Սեղմեք F5 ծածկագիրը գործելու համար:
4. Եթե ֆայլը գոյություն ունի, դուք կստանաք a Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում: Սեղմեք OK կոճակը այս ֆայլը թղթապանակից հեռացնելու համար:
Եթե ֆայլը թղթապանակում գոյություն չունի, մյուսը Excel- ի համար նախատեսված գործիքներ Երկխոսության տուփը նույնպես կհայտնվի ձեզ զգուշացնելու համար:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: