Makro ile Klasör Açma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Klasor_Yol()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath
.Title = "Lütfen adını almak istediğiniz klasörü seçin..."
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Iptal Edildi..."
Else
MsgBox .SelectedItems(1)
End If
End With
End SubAçıklama
Kodu çalıştırdığınızda alacağını görüntü aşağıdaki gibi olacaktır:Faydalanılması temennisiyle
