Excel VBA ile kullanıcıya dosya seçtirme ve çalıştırma

Sadece pdf uzantılı dosyaları seçtirmek için;

Sub BrowsePDFDocument()
Dim strDocument As String
    strDocument = Application.GetOpenFilename("PDF Files,*.pdf", 1, "Open File", , False)
    If Len(strDocument) < 6 Then Exit Sub
    ActiveWorkbook.FollowHyperlink strDocument
End Sub


Tüm dosyaları seçtirmek için aşağıdaki değişikliği yapmanız gerekmektedir.

Application.GetOpenFilename("All Files (*.*),*.*", 1, "Open File", , False)