İ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

Qovluq mövcud olub olmadığını yoxlamaq üçün necə?

Excel qovluğunda bir qovluğun olub olmadığını yoxlamağa çalışdın mı? Bu yazıda, bir qovluq müəyyən bir yolda olub olmadığını yoxlamaq üçün danışıram, əgər deyilsə, qovluq avtomatik olaraq yolun altında yaradılacaq.

Bir qovluq VBA kodu ilə müəyyən bir fayl yolunda olub olmadığını yoxlayın

VBA kodu ilə xüsusi bir fayl yolunda olmadıqda qovluğu yaradın


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


Aşağıdakı VBA kodu bir qovluğun müəyyən bir fayl yolunda olub olmadığını yoxlamağa kömək edə bilər, 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 > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Bir qovluğun müəyyən bir fayl yolunda olub olmadığını yoxlayın:

Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice 20161109
    Dim sFolderPath As String
    sFolderPath = "C:\Users\DT168\Desktop\Test folder"
    If Right(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    If Dir(sFolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
    End If
End Sub

Qeyd: Yuxarıda göstərilən kodda qovluq yolunu və adını dəyişdirin C: \ Users \ DT168 \ Desktop \ Test qovluğu ehtiyacınız var.

3. Sonra basın F5 bu kodu çalıştırmak üçün açar, aşağıdakı nəticələr əldə edəcəksiniz:

doc qovluğu var 1


arrow mavi sağ bubble VBA kodu ilə xüsusi bir fayl yolunda olmadıqda qovluğu yaradın

Bir faylın bir fayl yolunda olub olmadığını yoxsa, bu xüsusi fayl yolu altında yaratmaq üçün aşağıdakı VBA kodu bu işi bitirmək üçün kömək edə bilər.

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 > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Fayl qovluğunda olmasa bir qovluq yaradın:

Sub MakeMyFolder()
'Updateby Extendoffice 20161109
    Dim fdObj As Object
    Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
        MsgBox "Found it.", vbInformation, "Kutools for Excel"
    Else
        fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
        MsgBox "It has been created.", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

Qeyd: Yuxarıda göstərilən kodda qovluq yolunu və adını dəyişməlisiniz C: \ Users \ DT168 \ Desktop \ Test qovluğu ehtiyacınız var.

3. Kodu yapışdırdıktan sonra basın F5 çalıştırmak üçün açar:

(1.) Qovluq mövcuddursa, aşağıdakı ekran görüntüsü kimi bir sorğu qutusu açılır:

doc qovluğu var 2

(2.) Klasör mövcud deyilsə, xüsusi bir yol altında bir anda yaradılacaq və qovluq yaradıldığını xatırlatmaq üçün bir sorğu qutusu açılır, ekran görüntüsünə baxın:

doc qovluğu var 3



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.
  • To post as a guest, your comment is unpublished.
    felipe · 14 days ago
    I'm running this macro, but in the step to create the folder, the process goes down.

    can you help me????


    'Comprobar si la carpeta existe

    Dim ruta As String
    Dim libro As String

    M = ActiveWorkbook.Name

    ruta = Application.Workbooks(M).Sheets("Diccionario").Range("B5").Value

    If Right(ruta, 1) <> "\" Then
    ruta = ruta & "\"
    End If
    If Dir(ruta, vbDirectory) <> vbNullString Then
    MsgBox "Folder exist, please continue"
    Else
    MsgBox "Folder doesn't exist"
    End If

    'Crea la carpeta que necesitas

    Dim fdObj As Object
    Dim folder As String

    folder = Application.Workbooks(M).Sheets("Dicionario").Range("B5").Value (here is where the process falls)

    Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    If fdObj.FolderExists(folder) Then
    MsgBox "Found it, pleace continue."
    Else
    fdObj.CreateFolder (folder)
    MsgBox "It has been created."
    End If
    Application.ScreenUpdating = True
  • To post as a guest, your comment is unpublished.
    Kyffer · 3 months ago
    Super Thanks!
  • To post as a guest, your comment is unpublished.
    Roger · 4 months ago
    Thanks Man, work amazing
  • To post as a guest, your comment is unpublished.
    Bengbeng · 5 months ago
    This is really helpful! thanks!
  • To post as a guest, your comment is unpublished.
    Kenneth · 11 months ago
    Great article. Just what I was looking for :)