klasördeki excel sayfalarını listbox ve combaboxta görme ve açmak

[aydın3838]

selamlar

sorum şöyle

masa üzerinde müşteri kartları adında bir klasör var

bu klasöre sürekli müşterilerin ismine excel sayfaları açıyorum

ve bu açtığım sayfaları listboxt ve comboboxta görmem ve

tıkladığımda sayfayı açmam gerekiyor

yardımcı olursanız sevinirim

 

[aydın3838]

örnek ektedir

örnek ektedir

 

[aydın3838]

yardım edecek kimse yokmu arkadaşlar

 

[aydın3838]

yardım edecek kimse yokmu arkadaşlar

evren hocam bir el atsanız lütfen

 

[janveljan]

Bir forma bir listbox ekleyip aşağıdaki kodları kod kısmına ekleyin. Dosyaların yolunu doğru şekilde yazmalısınız.

Const yol = "D:\Bilgisayar\Excel"
Private Sub ListBox1_Click()
    Workbooks.Open (yol & "\" & ListBox1.List(ListBox1.ListIndex))
End Sub
Private Sub UserForm_Initialize()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each dosya In FSO.Getfolder(yol).Files
    uzanti = FSO.GetExtensionName(yol & dosya.name)
    If uzanti = "xls" Then UserForm2.ListBox1.AddItem Mid(dosya.name, 1, Len(dosya.name) - 4)
    Next
End Sub