Liste Kutusuna dosya isimlerinin otomatik olarak gelmesi

[ContReX]

Liste Kutusuna dosya isimlerinin otomatik olarak gelmesi

http://www.excel.web.tr/showthread.php?t=33612

forumda arama yaptım ve ilgili konuyu buldum.. ancak eklentilerde problem olduğu için indiremiyoruz ve konu da kilitli olduğu için o konuya cevap yazıp istekte bulunamadım...

bu konu için eklentileri tekrar verebilir misiniz? Şimdiden teşekkürler..

 

[Orion1]

Ekli dosyayı inceleyiniz.
Ekleden ad tanımlaması yapı ad alanını belirleyiniz.
Liste kutusuna denetim biçimlendirden girdi aralığına tanımladığınız adı verimzi.
Sonra Butona yazdığım kodları yazın.
Ben C:\Evren Klasörü için excel dosyaların listelemesini yaptım.Siz kodlarada yol a istediğiniz klasörü yazabilirsiniz.

Sub Düğme2_Tıklat()
Dim yol As String, sat As Long
Dim dosya As String, dsy As String
yol = "C:\Evren\"
dosya = "*.xls"
sat = 2
dsy = yol & dosya
Dir (dsy)
Do While dsy <> ""
    Cells(sat, "A").Value = dsy
    dsy = Dir
    sat = sat + 1
Loop
MsgBox "Dosyalar listelenmiştir..!!", vbOKOnly + vbInformation, "DOSYALAR"
End Sub

 

[ContReX]

Teşekkürler, şimdi kodları açıp bakamıyorum ama akşama bununla uğraşmış olurum..