Klasörden Excel dosyalarını listboxa süzmek ?

[ikikan]

Arkadaşlar çok acil yardım lazım yapmak istediğim
belirlediğimiz klasöründe bulunan excel dosyalarını listbox da listeliye biliyoruz
aryrıca aktifsayfayı veri sayfası olarak süzde yaptıra biliyoruz
ancak
Bir ComboBoxa bir harf veya harf gurubu yazı ilgili klasördeki ilgili excel dosyalarını
aktif sayfayı kullanmadan süzmek mümkünmüdür


On Error Resume Next
PGiris.ListBox1.Clear
yol = Dir("E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & "*.xlsx")
While yol <> ""
ListBox1.AddItem yol
yol = Dir
Wend
End Sub

bu üsteki kod listboxa klasördeki dosya isimlerini listeliyor benim istedigimse

bir text veya ComboBox ile aktif sayfayı kullanmadan verileri süzmek ?

 

[halit3]

Arkadaşlar çok acil yardım lazım yapmak istediğim
belirlediğimiz klasöründe bulunan excel dosyalarını listbox da listeliye biliyoruz
aryrıca aktifsayfayı veri sayfası olarak süzde yaptıra biliyoruz
ancak
Bir ComboBoxa bir harf veya harf gurubu yazı ilgili klasördeki ilgili excel dosyalarını
aktif sayfayı kullanmadan süzmek mümkünmüdür


On Error Resume Next
PGiris.ListBox1.Clear
yol = Dir("E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & "*.xlsx")
While yol <> ""
ListBox1.AddItem yol
yol = Dir
Wend
End Sub

bu üsteki kod listboxa klasördeki dosya isimlerini listeliyor benim istedigimse

bir text veya ComboBox ile aktif sayfayı kullanmadan verileri süzmek ?

Formunuzun üzerine bir adet textbox1 nesnesi ekleyin ve bu kodu deneyin.

Private Sub TextBox1_Change()
PGiris.ListBox1.Clear
yol = Dir("E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & "*.xlsx")
While yol <> ""
If UCase(Mid(TextBox1.Text, 1, Len(TextBox1.Text))) = UCase(Left(yol, Len(TextBox1.Text))) Then
ListBox1.AddItem yol
End If
yol = Dir
Wend
End Sub

 

[ikikan]

tam istediğim gibi olmuş teşekürler
bir sorum daha olcak
yol ve dir
yazdıgımız yeri programı kurarken
belirlene bilirmi ?

 

[halit3]

tam istediğim gibi olmuş teşekürler
bir sorum daha olcak
yol ve dir
yazdıgımız yeri programı kurarken
belirlene bilirmi ?

Anlıyamadım.?

konuyu birazcık açarmısınız.

 

[ikikan]

örnek

yol = Dir("E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & "*.xlsx")

yol = Dir("?????" & "*.xlsx")

soru işareti olan C: taşırsam ona göre F: taşırsam ona göre değişe bilirmi

 

[halit3]

örnek

yol = Dir("E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & "*.xlsx")

yol = Dir("?????" & "*.xlsx")

soru işareti olan C: taşırsam ona göre F: taşırsam ona göre değişe bilirmi

Kırmızı yeri değiştirmen yeterli

yol = Dir("[COLOR=red]E[/COLOR]:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & "*.xlsx")

 

[ikikan]

yanlış anlatım galiba
bu otamatik değişirmi diye sormam lazımdı !

 

[halit3]

yanlış anlatım galiba
bu otamatik değişirmi diye sormam lazımdı !

Ne şekilde değiştirmek istediğini bilmiyorum.
ben aklıma geleni söylüyüm
forma 1 adet ComboBox1 nesnesi ekle

sonra aşağıdaki koduda forma ekle

Private Sub UserForm_Initialize()
ComboBox1.AddItem "C"
ComboBox1.AddItem "D"
ComboBox1.AddItem "E"
ComboBox1.AddItem "F"
ComboBox1.Text "E"
End Sub

ve textbox1 kodunu aşağıdaki ile değiştir.

Private Sub TextBox1_Change()
PGiris.ListBox1.Clear
Yol = Dir(ComboBox1.Text & ":\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\" & "*.xlsx")
While Yol <> ""
If UCase(Mid(TextBox1.Text, 1, Len(TextBox1.Text))) = UCase(Left(Yol, Len(TextBox1.Text))) Then
ListBox1.AddItem Yol
End If
Yol = Dir
Wend
End Sub

not:
Klasör yolu ilgili sürücüde olması lazım

 

[Orion1]

Dosya yolu , adı ve uzantısı konusunu çalışın isterseniz.
syntax aşağıdaki gibi olmalı.

dosya=dir(dosya_yolu & "\" & dosyaadıveuzantısı)