Bir klasör altındaki verileri alma

[muratsedef]

Merhaba arkadaşlar,

Sorunum şöyle: Bir klasör icerisinde cok sayıda txt dosyası bulunuyor. Dosyalar sabit sayıda degil, düzenli olarak artıyorlar. Txt dosyasının içeriği virgülle ayrılmış veriler. Yani dışarıdan veri al komutuyla yükleyebiliyorum bunlari excele. Ama txt dosalarının sayısı cok fazla olduğundan ve sürekli yenileri eklendiğinden bunun otomatik olarak bir makroyla calıştırmak istiyorum.
Yani kısacası makroyu calıştırdıgımda klasör icerisindeki tüm txt verileri bir calışma sayfasında toplansın. Buna uygun bir formül bulamadım. Dış veri kaynagı olarak tüm klasör altındaki dosyaları gösteremedim. Makro ile olabilir mi.

Yardim edecek herkeze şimdiden çok teşekkür ederim.

Ekte txt dosyasının ve burdan elde etmek istedigim excel dosyasının örneğini yolluyorum.

Saygılarımla

 

[Kemal Demir]

Sub verial()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\cati\Desktop\DMC ANTALYA_PDF_100806.txt", _
Destination:=Range("A1"))
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub

"C:\Documents and Settings\cati\Desktop\DMC ANTALYA_PDF_100806.txt"

yukarıdaki kısmını kendinize göre uyarlayınız.

 

[muratsedef]

döngü ekleme

Sayin kemaldemir,
Cok tesekkür ederim. Ise yaradi.
Basarilar dilerim
Saygilarimla
Murat Sedef