Daha önce dosya seçtirmeyi (FilePicker) görmüştük. Peki, kullanıcının sadece bir Klasör seçmesini ve o klasördeki tüm dosyaları işlemek isterseniz?

VBA Kodu

Sub KlasorSec()
 Dim KlasorYolu As String
 
 With Application.FileDialog(msoFileDialogFolderPicker)
 .Title = "Lütfen Raporların Olduğu Klasörü Seçin"
 If .Show = -1 Then 'Kullanıcı Tamam a bastıysa
 KlasorYolu = .SelectedItems(1)
 MsgBox "Seçilen Klasör: " & KlasorYolu
 Else
 MsgBox "İşlem İptal Edildi."
 End If
 End With
End Sub