ComboBox'ta Dosya Listeleme

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar, C\Belgelerim'de dosyalarım var, bunları ComboBox'ta listelenip, dosyaları açabilir miyiz?, yardımlarınız için şimdiden teşekkür ediyorum.

 

[Excelmy]

Sayın Seyit TİKEN

Aşağıdaki kodlar ile uygulama yapınız.

Private Sub ComboBox1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\sistem kayıt adı\Belgelerim\" & ComboBox1.Value
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim ewbtr As Object
ComboBox1.Clear
Set ewbtr = CreateObject("scripting.filesystemobject")
Set klasor = ewbtr.getfolder("C:\Documents and Settings\sistem kayıt adı\Belgelerim\")
For Each dosyalar In klasor.Files
If VBA.Right(dosyalar.Name, 3) = "xls" Then
ComboBox1.AddItem Replace(dosyalar.Name, ".xls", "")
End If
Next
End Sub

 

[Seyit Tiken]

Çook teşekkür ediyorum, sağolun.