dosyada ekli excel ismini comboda farklı gösterme

[aydın3838]

selamlar

2 sorum olacak

1. sorum

klasörlerde excel sayfalarım var klasöre süreki excel sayfaları ekliyorum

ve combodan ve listboxtan görüp sayfalara işlemler yapıyorum

benim isteğimse farzedelim YALÇIN AYDIN xls adında bir sayfam var

bu yalçın aydın isminini combo veya listboxa aldığımda yanında xls veya txt

uzantısı var

bu uzantıları nasıl silerim

YALÇIN AYDIN xls

YALÇIN AYDIN

kırmızı işaretli uzantı olmayacak

kullandığım kod aşağıda

saygılar

dosya = Dir("D:\AYDIN_YAPI\MÜŞTERİ_KARTLARI\*.xls")

Do While dosya <> ""
ListBox1.AddItem dosya
dosya = Dir
Loop

MyPath = "D:\AYDIN_YAPI\MÜŞTERİ_KARTLARI"
MyFile = Dir(MyPath & Application.PathSeparator & _
"*.xls", vbDirectory)
Do While MyFile <> ""
If MyFile = ThisWorkbook.Name Then GoTo ResumeLoop:
i = i + 1
ComboBox1.AddItem MyFile
MyFile = Dir
ResumeLoop:
Loop


2. sorum ise

listboxtaki kaydırma çubugunu naıl iptal ederim

 

[janveljan]

İlgili satırı aşağıdaki gibi deneyin

ComboBox1.AddItem Left(MyFile, InStr(1, MyFile, ".") - 1)

Bir sakınca var onu da belirteyim. Listboxdaki isimlere göre işlem yapıyorsanız uzantılarda problem çıkabilir txt ve xls karışabilir, dir li bir kontrol satırı yazılarak üstesinden gelinebilir.


Listboxdaki kaydırma çubuğuda data sayısı listboxın boyunu geçmiyor ise zaten gözükmüyor, ancak boyutunu geçince zannediyorum kaldırılmıyor.

 

[aydın3838]

teşekkürler sayın janveljan bey

vermiş olduğunuz bilgiler ve kod için sağolun

 

[halit3]

ListBox1.AddItem dosya
ComboBox1.AddItem MyFile

yukarıdakileri
aşağıdaki gibi kullanabilrsiniz


ListBox1.AddItem Mid(dosya, 1, Len(dasya) - 4)
ComboBox1.AddItem Mid(MyFile, 1, Len(MyFile) - 4)


ancak dosyaları geri çağıracaksanız ".xls" bu uzantıyı eklemelisiniz.

 

[aydın3838]

teşekkürler