Bir klasörün olup olmadığı ve oluşturulmadığı nasıl kontrol edilir?
Hiç Excel çalışma sayfasından bir klasörün var olup olmadığını kontrol etmeyi denediniz mi? Bu yazımda, belirli bir yolda bir klasör olup olmadığını kontrol etmekten bahsedeceğim, yoksa klasör yol altında otomatik olarak oluşturulacaktır.
VBA kodu ile belirli bir dosya yolunda bir klasör olup olmadığını kontrol edin
VBA kodu ile belirli bir dosya yolunda yoksa klasörü oluşturun
VBA kodu ile belirli bir dosya yolunda bir klasör olup olmadığını kontrol edin
Aşağıdaki VBA kodu, belirli bir dosya yolunda bir klasör olup olmadığını kontrol etmenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Belirli bir dosya yolunda bir klasör olup olmadığını kontrol edin:
Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
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
Not: Yukarıdaki kodda, klasör yolunu ve adını değiştirmelisiniz C: \ Kullanıcılar \ DT168 \ Masaüstü \ Test klasörü ihtiyaç duyduğunuz için.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, aşağıdaki sonuçları alacaksınız:
VBA kodu ile belirli bir dosya yolunda yoksa klasörü oluşturun
Bir dosya yolunda bir klasör olup olmadığını kontrol edin, yoksa, bu belirli dosya yolu altında oluşturmak için aşağıdaki VBA kodu bu işi bitirmenize yardımcı olabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Bir dosya yolunda yoksa bir klasör oluşturun:
Sub MakeMyFolder()
'Updateby Extendoffice
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
not: Yukarıdaki kodda, klasör yolunu ve adını değiştirmelisiniz C: \ Kullanıcılar \ DT168 \ Masaüstü \ Test klasörü ihtiyaç duyduğunuz için.
3. Kodu yapıştırdıktan sonra F5 çalıştırmak için anahtar:
(1.) Klasör varsa, gösterilen aşağıdaki ekran görüntüsü gibi bir istem kutusu açılır:
(2.) Klasör mevcut değilse, belirli bir yol altında aynı anda oluşturulur ve klasörün oluşturulduğunu size hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!