İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir faylın müəyyən bir qovluğa malik olub olmadığını necə yoxlamaq olar?

Şübhəsiz ki, birdən çox fayl olan bir qovluq var və indi xüsusi bir faylın Excel-də bu qovluqda olub olmadığını müəyyən etmək istəyirsən. Bu məqalə, bir dosyanın Excel vasitəsilə detallı bir xüsusi qovluqda mövcud olub olmadığını yoxlamaq üçün sürətli bir üsul təqdim edəcəyəm.

Bir faylın VBA kodu ilə müəyyən bir qovluğa malik olub olmadığını yoxlayın


arrow mavi sağ bubble Bir faylın VBA kodu ilə müəyyən bir qovluğa malik olub olmadığını yoxlayın


Bir faylın xüsusi bir qovluğa malik olmadığını yoxlamaq və yoxlamaq üçün Excel viza kodunu tətbiq edə bilərsiniz, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modulesvə Modul Pəncərəsində aşağıdakı kodu yapışdırın.

VBA kodu: Dosyanın müəyyən bir qovluğa malik olmadığını yoxlayın:

Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice 20161109
    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

Qeyd: Yuxarıdakı kodda, fayl yolunu və adını dəyişdirin C: \ Users \ DT168 \ Desktop \ Test qovluğu \ Book2.xlsx " ehtiyacınız üçün.

3. Kodu bağladıktan sonra, mətbuatın üzərinə basın F5 bu kodu çalıştırmak üçün açar:

(1.) Fayl varsa, aşağıdakı ekran görüntüsünü əldə edəcəksiniz:

1 fayl varsa, doc

(2.) Fayl yoxdursa, aşağıdakı xəbərdarlıq alacaqsınız:

2 fayl varsa, doc



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.