dosyaları comboboxta göstermek

[unforgivenn]

Herkeze iyi geceler, klasördeki dosya isimlerini combobox'ta gösteren bir kodum var. Yapmak istediğim klasördeki tüm dosyaları değilde Textbox1 ile aynı isimi taşıyan dosyaları göstermesi ve birde Comboboxta görünen bu dosyaya tıklayınca dosyanın açılması. Şimdiden teşekkürler



Private Sub UserForm_Initialize()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Klasörüm")
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub

 

[dEdE]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Klasörüm")
Set dc = f.Files
ComboBox1.Clear
    For Each Dosya In dc
        x = Replace(Dosya.Name, "." & ds.GetExtensionName(Dosya.Name), "")
        If x = TextBox1.Text Then ComboBox1.AddItem Dosya.Name
    Next
End Sub

Private Sub ComboBox1_Click()
Workbooks.Open "C:\Klasörüm\" & ComboBox1.Value
End Sub

 

[unforgivenn]

Malesef dostum çalışmadı

 

[unforgivenn]

örneği ekledim, userbox1 deki listboxa tıklayınca userform 2 açılıyor. Yapmak istediğim başka bir klasörde tuttuğum dosyaların (pdf.xls,jpeg gibi) eğer seçtiğim listboxtaki firma ismiyle ile alakası varsa yani textboxla aynı ismi taşıyorsa comboboxta görünmesi ve comboboxa tıklayınca o dosyanın açılması.

 

[dEdE]

Merhaba,
Kodlarınızdaki Private Sub UserForm_Initialize ve Private Sub TextBox1_Change prosedürünü silelim ve aşağıdaki şekilde deneyelim.

Private Sub TextBox1_Change()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\Erdem\barco")
Set dc = f.Files
ComboBox1.Clear
    For Each Dosya In dc
        X = Replace(Dosya.Name, "." & ds.GetExtensionName(Dosya.Name), "")
        If X = TextBox1.Text Then ComboBox1.AddItem Dosya.Name
    Next

TextBox1.Value = StrConv(TextBox1.Value, vbProperCase)
End Sub

Private Sub ComboBox1_Click()
Workbooks.Open "C:\Erdem\barco\" & ComboBox1.Value
End Sub

 

[unforgivenn]

Sanırım kodu yazarken ben hata yaptım, yazdığınız kod çalışıyor fakat açmak istediğim dosya sadece xls uzantılı değil. Pdf, jpeg gibi dosyalarıda açmak istiyorum yani klasör içeriğim farklı uzantıları olan dosyalar. Sizin verdiğiniz kodda excel dosyası içinde açmaya çalıştığı için pdf gibi dosyalarda sorun yaşanıyor

 

[Korhan Ayhan]

Forumda "Shell" komutunun işlendiği konuları inceleyin.

 

[unforgivenn]

Tşkler yardımınız için