bir klasördeki dosya isimlerini combobox'da görme ve açma

[hamitcan]

İyi günler Arkadaşlar,

Birbirinle ilişkili excel dosyalarını sakladığım bir klasörüm var.

1-) İstediğim bu dosyaları combobox içinde görmek

2-) Bu dosyaları açmak ve ilk sayfalarını bulunduğum sayfaya getirmek


Þimdiden teşekkürler

 

[danersin]

http://www.excel.web.tr/viewtopic.php?p=27968#27968

linkteki örnek tüm jpgleri listboxa ekliyor. uzantısını değiştirmeniz yeterli olur sanırım.


ilk sayfalarını bulunduğunuz sayfaya getirmekden kasıt ne?
copy-paste mı yapmasını istiyorsunuz yoksa
açılan dosyanın ilk sayfası açık olsun, bunumu istiyorsunuz. (bende ne güzel izah ettim :hiho:

 

[Levent Menteşoğlu]

Aşağıdaki kodlarıda deneyebilirsiniz. Yolu kendinize göre değiştirirsiniz.

[vb:1:1f8ebfc46f]Private Sub UserForm_Initialize()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\istatistic")
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub

Private Sub ComboBox1_Click()
On Error Resume Next
Workbooks.Open Filename:="C:\istatistic\" & ComboBox1.Value
Sheets(1).Select
Unload Me
End Sub[/vb:1:1f8ebfc46f]

 

[hamitcan]

:bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo: :bravo:

Sayın Leventm tam istediğim gibi olmuş teşekkürler, Sayın Danersin size de teşekkürler ilginiz için...
İyi akşamlar...

 

[Levent Menteşoğlu]

[vb:1:81b2c2ce7b]Private Sub UserForm_Initialize()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\istatistic")
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub
[/vb:1:81b2c2ce7b]

Yukarıdaki kodda, aşağıdaki gibi satır sayısını da azaltmak mümkün, bunuda bir bilgi olarak aktarayım.

[vb:1:81b2c2ce7b]Private Sub UserForm_Initialize()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\istatistic").Files
ComboBox1.AddItem dosya.Name
Next
End Sub
[/vb:1:81b2c2ce7b]

 

[hamitcan]

Teşekkürler Leventm bu kodların çalışmalarımda çok yararlı olduğunu söyleyebilirim.

 

[Levent Menteşoğlu]

Rica ederim. Bende bu vesile ile bilgisini bizimle paylaşma nezaketini göstererek, dersanemizde yayınlamış olduğu "FileSystemObject" ile ilgili makalesi ile bize ışık tutan sn bedersu'ya ayrıca teşekkür etmek istiyorum. Ben bu makaleden çok istifade ediyorum ve herkesede öneriyorum.

 

[adventurk]

arkadaşlar verdiğiniz bilgiler için teşekkürler peki birşey daha sormak istiyorum. kendi bilgisayarımdaki dosya isimlerini verdiğini kodlar ile alabiliyorum ancak ftp den başka bir bilgisayar üzerindeki klasördeki dosya isimlerinide alabilirmiyiz. yardımlarınız için şimdiden teşekkürler.

 

[adventurk]

benim sorum hakkında bilgisi olan yok mu?