• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
10 Nisan 2008
Mesajlar
394
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
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
 
yardım edecek kimse yokmu arkadaşlar

evren hocam bir el atsanız lütfen
 
Bir forma bir listbox ekleyip aşağıdaki kodları kod kısmına ekleyin. Dosyaların yolunu doğru şekilde yazmalısınız.
Kod:
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
 
Geri
Üst