Seçilen Dosyanın veya Programın Uygulama Yolunu

Bu dosya, bilgisayardan seçilen bir dosyanın hangi uygulama ile açıldığını ve o uygulamanın çalıştırılabilir dosya yolunu gösterir. Örneğin bir .pdf ya da .docx dosyası seçildiğinde, bu türle ilişkilendirilmiş programın tam yolu mesaj kutusunda görüntülenir.

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: Veri ya da formül içermez; makro bu sayfadan bağımsız çalışır.
• Module1: İki prosedürün bulunduğu VBA modülüdür (yaklaşık 25 satır).

Makrolar​

• GetFileName: Dosya seçme penceresini Application.GetOpenFilename ile açar. Seçilen dosyanın yolunu GetExecutable işlevine gönderir, sonucu "The executable file is" başlıklı bir mesaj kutusunda gösterir. Mesaj kutusunun başlığında seçilen dosyanın yolu yer alır.
• GetExecutable: Dosya yolunu alıp Windows'un shell32.dll kütüphanesindeki FindExecutableA API işlevini çağırır ve dosya türüne bağlı programın yolunu metin olarak döndürür. Bildirim hem 32 bit hem 64 bit Office sürümleri için ayrı yazılmıştır (VBA7 ve Win64 koşulu).

Kod yalnızca ilişkili program yolunu sorgular; dosya silme, değiştirme ya da dışarıya bağlantı işlemi içermez. Bu işlev yalnızca Windows'ta çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve istenirse makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın ve GetFileName makrosunu seçip çalıştırın.
3. Açılan pencerede incelemek istediğiniz dosyayı seçin.
4. Mesaj kutusunda, o dosyayı açan uygulamanın yolu görüntülenir.

GetExecutable işlevi ayrıca kendi makrolarınızdan çağrılarak, dosya yolu verilen herhangi bir dosya için program yolunu almakta kullanılabilir. Pencere kapatılır ya da iptal edilirse seçim yapılmadığı için sonuç boş döner.