txt dosyalarını tek excel sayfasında birleştirme

[khancy]

Merhaba,

Bir klasör içerisinde bulunan birden fazla *.txt uzantılı dosyaları VBA kodu kullanarak Excel de tek sayfada alt alta birleştirmek istiyorum.

Yardımlarınız için şimdiden Teşekkürler...

 

[khancy]

VBA kodu bulunmuştur.

 

[Necdet]

VBA kodu bulunmuştur.

Aman kendine sakla, kimse öğrenmesin.

 

[khancy]

Sub Düğme1_Tıklat()
Sheets("GENEL").Range("A2:K65536").ClearContents
Dim con As Object, rs As Object
Dim col As Collection, evn As Object, K As Object

Set col = New Collection
Set evn = CreateObject("scripting.filesystemobject")
Set K = evn.getfolder(ThisWorkbook.Path & "\Panel_DATA")

For Each d In K.Files
col.Add d.Name
Next d
For t = 1 To col.Count
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & ThisWorkbook.Path & "\Panel_DATA\" & col(t) & ";extended properties=""excel 12.0 Macro;hdr=yes"""
Set rs = con.Execute("select Inch,Şasi,Panel,Panel_Kod,WB_Süre,Std_Sapma,WB_MIN,WB_MAX,Adet,Güncelleme,AÇIKLAMA from [DB$]")
Range("A65536").End(3)(2, 1).CopyFromRecordset rs
Next t
Set con = Nothing: Set rs = Nothing
Set evn = Nothing: Set K = Nothing

End Sub