Ինչպե՞ս ստուգել, ​​արդյոք ֆայլ գոյություն ունի որոշակի թղթապանակում:

Ենթադրելով, որ դուք ունեք մի պանակ, որը պարունակում է բազմաթիվ ֆայլեր, և այժմ դուք ցանկանում եք պարզել, թե արդյոք այս ֆայլում առկա է հատուկ ֆայլ Excel- ից: Այս հոդվածում ես կներկայացնեմ ձեզ արագ մեթոդ, որպեսզի ստուգեք, թե արդյոք Excel- ի միջոցով մանրամասն ֆայլ կա ֆայլում:

Ստուգեք, արդյոք ֆայլ գոյություն ունի VBA կոդով որոշակի պանակում

Ստուգեք, արդյոք ֆայլ գոյություն ունի VBA կոդով որոշակի պանակում

Ստուգելու համար, որ ֆայլը առկա է որոշակի թղթապանակում, թե ոչ Excel- ի աշխատանքային թերթում, կարող եք կիրառել հետևյալ VBA կոդը, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. Ստուգեք, արդյոք ֆայլ կա որոշակի թղթապանակում.

Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim FilePath As String
    FilePath = ""
    On Error Resume Next
    FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
    On Error GoTo 0
    If FilePath = "" Then
        MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "File exist", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = False
End Sub

Նշում: Վերոնշյալ ծածկագրում դուք պետք է փոխեք ֆայլի ուղին և անունը C: \ Users \ DT168 \ Desktop \ Test թղթապանակ \ Book2.xlsx " ձեր կարիքի համար:

3, Կոդի տեղադրումից հետո սեղմեք F5 այս կոդը գործարկելու բանալին.

(1.) Եթե ֆայլը գոյություն ունի, դուք կստանաք հետևյալ նկարը.

(2.) Եթե ֆայլը գոյություն չունի, դուք կստանաք հետևյալ նախազգուշացումը.