Combobox içine Klasör içindeki Excel dosyalarının isimlerini vba ile nasıl alırız

[Mdemir63]

Selamlar
Arkadaşlar ekteki dosyamda AnaSayfa isimli excel dosyasının içindeki Combobox a Dosyalarım Klasörünün içindeki excel Dosyalarının adlarını alıp,
sonra combobox içinden herhangi bir dosya seçtiğimde seçtiğim dosyanın açılmasını yapmak istiyorum.

Saygılar

Not:Sitede aradım ancak bulamadım

 

[Haluk]

Ekli dosyayı Md isimli klasörün içine yerleştirip, dosyayı açın ...

.

 

[Ömer BARAN]

Merhaba.

Eminim Sayın Haluk Bey'in yöntemi en ideal sonucu verecektir.
Hazırlamıştım, benimkisi de alternatif olsun artık.
İlk kod (combobox'un okuna tıklayınca), belirtilen klasördeki dosya isimlerinin combobox'a alınmasını sağlar,
ikinci kod ise comboboxta ismi seçilen belgeyi açar.

Private Sub ComboBox1_DropButtonClick()
Dim brn As Object
ComboBox1.Clear
Set brn = CreateObject("scripting.filesystemobject")
Set dizin = brn.getfolder(ThisWorkbook.Path & "\Dosyalarım")
For Each belge In dizin.Files
    If VBA.Right(belge.Name, 4) = "xlsm" Or _
        VBA.Right(belge.Name, 4) = "xlsx" Or _
        VBA.Right(belge.Name, 3) = "xls" Then
        ComboBox1.AddItem belge.Name
    End If
Next
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
    Workbooks.Open ThisWorkbook.Path & "\Dosyalarım\" & ComboBox1.Value
End If
End Sub

 

[Mdemir63]

Sayın Haluk Hocam
Sayın Ömer Baran Hocam
2 şekilde de kullanabilirim. Ellerinize sağlık. Teşekkür ederim.

Saygılar