klasör içindeki dosyaların listesi

[gunaygergin]

sevgili forum üyeleri. Bayaramınız mübarek olsun;

herhangi bir klasör (örn: Belgelerim.) içindeki dosyaların listesini bir form üzerindeki listbox veya combobox vasıtası ile nasıl yapabilirim.

 

[Orion1]

Merhabalar.
Aşağıdaki Kodlar "C:\Evren" klasörü içerisinde bulunan *.xls uzantılı dosyaları
listbox'ta listeliyor.Siz dosya yolunu ve arnacak dosya adını veya uzantılarını değştirerek bir deneyiniz.

Private Sub UserForm_Initialize()
dosya = Dir("C:\Evren\*.xls")
Do While dosya <> ""
    ListBox1.AddItem dosya
    dosya = Dir
Loop
End Sub

 

[gunaygergin]

sn sezar.
kodlar tam istediğim gibi.

bir de listbox içindeki dosya adı üzerine tıkladığımda o dosyayı açıp aktıf hale getirmemi sağlayacak kodu nasıl yazmalıyım.

 

[Orion1]

Merhabalar.
Aşağıdaki yol'da C:\Evren kalsörü gösteriliyor.Listbox'ta listelediğiniz Klasörün Yolunu yazınız.
Tek tıklamayla açmak için

Private Sub ListBox1_Click()
Workbooks.Open ("C:\Evren\" & ListBox1.Value)
End Sub

Çift yıklama ile açmak için

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open ("C:\Evren\" & ListBox1.Value)
End Sub

 

[gunaygergin]

sn.sezar;

faydalı katkılarınızdan dolayı çok teşekkür ederim.
tam istediğim gibi oldu

 

[Kemal Demir]

Soruya Cozum uretilmiş ama bende kucuk bir çözüm ilave etmek istiyorum.

Form üzerinde texbox'a adresi aşagıdaki sekilde giriniz.

Örnek: c: veya c:\Windows

Kısacası son klasor'e "\" işareti koymadan calıstırınız.

 

[gunaygergin]

güzel bir alternatif.


bu aşamada yapmak istediğim bir husus ta; herhangi bir klasör içindeki
dosyaların tamamındın belirli hücrelerinden (örn: C1 ve G6) verileri listelemek. ?

 

[Levent Menteşoğlu]

Dosyaların bulunduğu klasör yolunu belirtirmisiniz. Ayrıca alınan veriler altaltamı kaydedilecektir. Kaydedilecek sütunlar hangileridir.

 

[gunaygergin]

sn leventm;

haklısınız...

Yol: C:\MÜŞTERİ\(dosyalar)
***çalıştığım dosyada GİRİŞ ve RAPOR sayfaları mevcut.

Bilgiler ise;
RAPOR sayfasında B2 Hücresine veri alınacak Dosyadaki C1 değeri
C2 " " " " G6 " gelmeli


Her dosya bir alt satıra ilave olmalı ve klasörden dosya silindiğinde Listede görünmemeli... sizce olabilir mi.? Yardımlarınıza ihtiyacım var...

 

[Levent Menteşoğlu]

Birde veri alınacak dosyaların hep aynı sayfalarındanmı alınacak ayrıca bu sayfanın adı nedir.

RAPOR sayfasında B2 Hücresine veri alınacak Dosyadaki C1 değeri
C2 " " " " G6 " gelmeli

Bu ifadenizi anlayamadım.

Her dosya bir alt satıra ilave olmalı ve klasörden dosya silindiğinde Listede görünmemeli... sizce olabilir mi.?

Elbette olabilir, önereceğim kodu her çalıştırdığınızda verileri otomatikman güncelleyecektir.

 

[gunaygergin]

Bunu şu şekilde anlatmalıyım...

Çalıştığım :
Dosya : "GİRİŞ"
Sayfaları : "GİRİŞ" ve "RAPOR"

Veri Alınacak :
Klasör : "MÜŞTERİ"
Dosyalar : "Ahmet", "Mehmet", "Veli" v.b.
Sayfalar : "GİRİŞ" (Hepsinde aynı ve Tek sayfa)
C1 : Müşteri Adı
G6 : Borç Bakiyesi

.........Bütün dosyaların yapısı aynı.........

Dosyalardaki "GİRİŞ" Sayfasından Sadece "C1" ve "G6" hücrelerinden bilgi almak istiyorum.
(Aslına bakarsanız yapmak istesiğim Bir Bakiye listesi çıkarmak.)

 

[Kemal Demir]

Bunu şu şekilde anlatmalıyım...

Çalıştığım :
Dosya : "GİRİŞ"
Sayfaları : "GİRİŞ" ve "RAPOR"

Veri Alınacak :
Klasör : "MÜŞTERİ"
Dosyalar : "Ahmet", "Mehmet", "Veli" v.b.
Sayfalar : "GİRİŞ" (Hepsinde aynı ve Tek sayfa)
C1 : Müşteri Adı
G6 : Borç Bakiyesi

.........Bütün dosyaların yapısı aynı.........

Dosyalardaki "GİRİŞ" Sayfasından Sadece "C1" ve "G6" hücrelerinden bilgi almak istiyorum.
(Aslına bakarsanız yapmak istesiğim Bir Bakiye listesi çıkarmak.)

Yukarıda belirtiğiniz doğrultuda musteriler ait excel sayfaları tek sheet'ten oluştugunu varsayarak kucuk bir çalışma hazırladım.
Daha Profosyonelce hazırlanabilir diye dusunuyorum.

Dosyayı ınceleyınız.Umarım işinizi görür.

Ctrl+r yaparak kodu calısıtırınız.

 

[Kemal Demir]

Sn.Günayergin

Rahatsızlıgım için özür dilerim.

Forumda buna benzer başka bir soru varmıs.

İstersenız inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=21169

 

[Levent Menteşoğlu]

Aşağıdaki koduda deneyebilirsiniz.

Sub verial()
[a:c].ClearContents
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\MÜŞTERİ").Files
c = c + 1
Cells(c, "a") = Replace(Dosya.Name, ".xls", "")
Cells(c, "b") = ExecuteExcel4Macro("'C:\MÜŞTERİ\[" & Dosya.Name & "]GİRİŞ'!R1C3")
Cells(c, "c") = ExecuteExcel4Macro("'C:\MÜŞTERİ\[" & Dosya.Name & "]GİRİŞ'!R6C7")
Next
End Sub

 

[gunaygergin]

sn Kemaldemir;
Bilanço çalışmanız çok güzel çok faydalandım. yanlız kodlar döngüde fazla kalıyorlar. Herşey için teşekkür ediyorum. takıldığımızda sizin gibi kıymetli dostların hemen şurada olduğunu bilmek huzur veriyor.

sn Leventm' in kodlarınız çok kısa ve çok işlevli. açıkçası şaşırtıcı.
kendinizi bu kadar nasıl geliştirdiniz şaşırmamak elde değil. Ne diyebilirim ki HARİKA...