Klasörü listeye alma

[akd]

Merhaba arkadaşlar,
D klasöründeki bir klasörün içindeki excel belğelerini listbox' almak istedim
bir türlü olmadı,
aşağıdaki kod daha önce çalışıyordu ama şimdi çalıştıramadım

Workbooks.Open "D:\AKD_MAASLAR\AKD_MEMUR\" & lıste1.Value
selamlar

Not : siteye her girişte şifre sorması normalmi ? yok sa benim pc denmi kaynaklanıyor

 

[zafer]

Merhaba

Kullanıcı ve şİfreyi yazdıktan sonra Beni hatırla kutusunu işaretleyin

 

[zafer]

Merhaba

Private Sub CommandButton1_Click()
dizin = "D:\AKD_MAASLAR\AKD_MEMUR"
dosya = Dir(dizin & Application.PathSeparator & _
"*.xls", vbDirectory)
Do While dosya <> ""
If dosya = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
ListBox1.AddItem dosya
ResumeSub:
dosya = Dir
Loop

End Sub

 

[akd]

Merhaba Zafer kardeş,
Cevabınız için çok teşekkür ederim,
KOd çok güzel çalışıyor,
Aşağıda yazdığım kod Win98 kayıtlı Pc de daha önce çalışıyordu,
Şimdi niye çalışmaz acaba,
ChDir "D:\AKD_MAASLAR\AKD_MEMUR"
dosya = Dir("*.xls")
While dosya <> ""
menuformu.lıste1.AddItem dosya
dosya = Dir
Wend

 

[zafer]

Merhaba

Çalışıyor.

Userform'da ki listbox'ın ismi değişik olmasın.
Hata veriyorsa hangi satırda veriyor.