Excelde Dosya Seçme ve Seçilen Dosyaların Yolu ve Adları

Bu dosya, Excel'de bir dosya seçme penceresi açan ve seçilen dosya ya da dosyaların tam yolunu ve adını mesaj kutusunda gösteren iki makro içerir. Dosya içe aktarma, toplu dosya işleme gibi çalışmalarda dosya yolunu kullanıcıdan almak için başlangıç şablonu olarak kullanılabilir.

Dosyanın içeriği​

• Sheet1: Veri ve formül içermeyen çalışma sayfasıdır; işlemler makrolar üzerinden yürütülür.
• Module1: GetImportFileName ve GetImportFileName2 adlı iki makroyu barındıran VBA modülüdür (yaklaşık 73 satır).

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar dosya silme veya dışarıya bağlantı gibi bir işlem yapmaz; yalnızca seçilen dosyanın yolunu okur ve gösterir.

• GetImportFileName: Application.GetOpenFilename ile "Select a File to Import" başlıklı bir pencere açar. Filtre listesinde Text Files (*.txt), Lotus Files (*.prn), Comma Separated Files (*.csv), ASCII Files (*.asc) ve All Files (*.*) seçenekleri vardır; varsayılan olarak All Files (*.*) seçilidir. Tek dosya seçilebilir ve dosyanın tam yolu ile adı mesaj kutusunda gösterilir. Pencere iptal edilirse "No file was selected." mesajı verilir.
• GetImportFileName2: Aynı pencereyi MultiSelect seçeneği açık olarak getirir. Birden çok dosya seçilebilir; seçilen her dosyanın yolu ve adı döngüyle alt alta listelenerek tek mesaj kutusunda gösterilir. İptal edilirse yine "No file was selected." mesajı çıkar.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın.
3. Tek dosya için GetImportFileName, birden çok dosya için GetImportFileName2 makrosunu seçip çalıştırın.
4. Açılan pencerede dosya türü filtresini gerekirse değiştirin ve dosyayı ya da dosyaları seçin.
5. Seçilen dosyaların yolu ve adı mesaj kutusunda görüntülenir.

Filtre listesi ve pencere başlığı, VBA kodundaki Filt ve Title değişkenleri düzenlenerek ihtiyaca göre değiştirilebilir.