Excel Makro Dosya Aç Konumu Kısayol

Kaynak: Excelvba.net

Dosya Aç (Ctrl+O) işlemi, son açılan konuma bakar. Belgelerim, masaüstü, ağ paylaşımı gibi sık kullandığınız konumlara tek hamleyle hızlı erişim araç çubuğundan erişmek isterseniz, aşağıdaki makroyu Personal.XLSB’ye ekleyip, araç çubuuğuna Makrolar kısmından kısayol atayabilirsiniz. D: ve masaüstü için yapılmıştır, türetebilirsiniz.

Sub DosyaAcKonumu_D()
Dim klasor As FileDialog
Set klasor = Application.FileDialog(msoFileDialogFolderPicker)
klasor.AllowMultiSelect = False
klasor.InitialFileName = "D:\"
klasor.Show
End Sub
Sub DosyaAcKonumu_Desktop()
Dim klasor As FileDialog
Set klasor = Application.FileDialog(msoFileDialogFolderPicker)
klasor.AllowMultiSelect = False
klasor.InitialFileName = "%userprofile%\desktop\"
klasor.Show
End Sub

Bir Cevap Yazın

This site uses Akismet to reduce spam. Learn how your comment data is processed.