Birden fazla Txt dosyasından veri alımı

[NoiR_DeSiRe]

Herkese merhaba....
Belirli bir klasör altındaki 1 den fazla txt dosyasını aynı anda excel a aktarma şansımız var mı acaba...Daha önce bir başlık açılmış ancak o arkadaşımızın sorusu cevapsız kalmış.
Herkese iyi çalışmalar...

 

[NoiR_DeSiRe]

Dostlar sanırım kendimi doğru ifade edemedim çünük bu sitede cevapsız bir konu olduğunu hiç görmedim...
O yüzden biraz daha net anlatayım.
Olay şudur bir palm cihazı ile sayım yapıyorum ve sayım txt dosyası olarak hazırlanıyor,toplamda 450 kadar sayım yaptığımda elimde ufak ufak 450 adet txt dosyası oluyor bunları bir kerede bir excel sayfasına almak oldukça zahmetli daha da önemlisi hata riski çok fazla.Kısacası ;
e001.txt
e002.txt
e003.txt
e004.txt
şeklinde bulunan txt dosyalarını bir kerede excel hangi yöntemle aktarabilirim teşekkürler....

 

[Levent Menteşoğlu]

Bunun için basit bir kod yazılabilir. Siz bu txt dosyalarından bir örnek ile verilerin aktarılmış şeklini gösteren excel dosyası örneği eklermisiniz. Birde bu dosyaların bulunduğu klasör yolunu verin.

 

[NoiR_DeSiRe]

Örnek klasör

Sorumla ilgili dosya ektedir.İçerisinde örnek txt ve excel dosyaları mevcut...
Teşekkür ederim....

 

[veyselemre]

Ekteki örneği inceleyin.

 

[NoiR_DeSiRe]

Eror

Öncelikle ilgine teşekkür ederim.
Dostum ;

Set f = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)

Runtime Eror 429 :ActiveX componant cant create object

şeklinde bir hata ile karşılaşıyorum....

 

[NoiR_DeSiRe]

Yine ben arkadaşlar rahatsızda etmek istiyorum bu tür boş mesajlarla ama yardımınıza ihtiyacım var...
Teşekkür ederim...

 

[zafer]

Merhaba

Runtime Eror 429 :ActiveX componant cant create object

İnternetteki araştırmalarıma göre bunun birçok hatası olabilir dosya yolu yanlıştır.windows sp2 yüklü değildir.Vb runtime'ları yüklü değildir.

Bunlardan bilgisayarınızda yüklü olmayan varmı.

 

[NoiR_DeSiRe]

Merhaba

Sanırım dosya yolu yanlış...kodu okuyamadığım için yönlendirilen klasörüde anlamıyorum çok acı .... Servis Pack 2 Kurulu çünkü..
Karar verdim ileri excel kurslarına gidicem izmir de tavsiyelere açığım teşekkürler...