vba düşeyarada kaynak dosyanın adını listboxtan seçmek

[Feylosof]

Merhaba
Aşağıdaki kodu @Korhan Ayhan hocam bir soruma cevaben yazmıştı. Bu kodda bir revizyon ricam olacak. 4. satırda ("Dosya_Yolu" olan satır) kaynak dosyanın adını listboxtan seçmek istiyorum. Listboxta excel dosyalar listelenmektedir. Adları farklı ama formatları aynı olan dosyalardan birini listboxtan seçmek suretiyle veri aktarımı yapmak için 4. satırdaki kod nasıl revize edilmelidir?
Not: Kaynak dosyaların tümünün sayfa adları aynıdır.

Sub Aktar()

    Dim Dosya_Yolu As String, Son As Long, Zaman As Double
    Zaman = Timer
    Application.ScreenUpdating = False
    Dosya_Yolu = ThisWorkbook.Path & Application.PathSeparator & "[BANKA LİSTESİ.xls]Sayfa1"
    Son = Cells(Rows.Count, 2).End(3).Row
    With Range("E2")
        .Resize(Rows.Count - 1).ClearContents
        .Resize(Son).Formula = "=IFERROR(VLOOKUP(B2,'" & Dosya_Yolu & "'!$B:$E,4,0),"""")"
        .Resize(Son).Value = .Resize(Son).Value

    End With
    Application.ScreenUpdating = True
    MsgBox "Veri aktarımı tamamlanmıştır." & vbCr & vbCr & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Dosya_Yolu = ThisWorkbook.Path & Application.PathSeparator & "[" & Listbox1.Value & "]Sayfa1"

Dosya isimleri Listbox üzerinde nasıl görünüyor belirtmemişsiniz. Eğer uzantıları yoksa üstte ki satıra dosya uzantısı eklemeniz gerekebilir.

 

[Feylosof]

Deneyiniz.

Dosya_Yolu = ThisWorkbook.Path & Application.PathSeparator & "[" & Listbox1.Value & "]Sayfa1"

Dosya isimleri Listbox üzerinde nasıl görünüyor belirtmemişsiniz. Eğer uzantıları yoksa üstte ki satıra dosya uzantısı eklemeniz gerekebilir.

Evet bunu düşünemedim. Ama dosya isimleri listboxta uzantı ile birlikte görünüyor.

 

[Feylosof]

Sayın @Korhan Ayhan üstadım. Hızlı cevabınız için bir kez daha çok teşekkür ederim .