ListBox ta Access Çalışma Kitaplarını Görmek

[captan]

Öncelikle bütün arkadaşlara çok çok kolay gelsin. .

Arkadaşlar bir çalışmamda Userform üzerindeki bir ListBox ta Deneme Adlı Klosörün içindeki bütün Access dosyaları görmek istiyorum. Listeden seçtiğim dosyaya bağlanmak istiyorum. Birkaç deneme yaptım ama başarılı olamadım.

Yardımlarınızı Bekliyorum . .

 

[veyselemre]

Listbox'a aşağıdaki şekilde listeleyebilirsiniz. Bağlantı işinden anlamam.

Private Sub UserForm_Initialize()
    Set lst = CreateObject("Scripting.FileSystemObject").GetFolder(ActiveWorkbook.Path)
    ReDim dosyalar(1 To 1)
    For Each dosya In lst.Files
        'If dosya.Type = "Microsoft Office Access Uygulaması" Then
        If Right(dosya.Name, 4) = ".mdb" Then
            a = a + 1
            dosyalar(a) = dosya.Name
            ReDim Preserve dosyalar(1 To a + 1)
        End If
    Next
    If a = 0 Then GoTo Skip
    ReDim Preserve dosyalar(1 To a)
    ListBox1.List = dosyalar
Skip:
    Erase dosyalar
    Set lst = Nothing
End Sub

 

[captan]

Bağlantılarda benim olayım Sn Veyselemre . .

Yardımın için çok teşekkür ederim. Bazen böyle beynim bir yere takılıp kalabiliyor. .
Geniş açıdan düşünemiyorum,

Bu forumu da bu yüzden seviyorum..