Txt file birleştirilmesi

[aatoş]

Merhabalar,
daha önceki sorularımdan ve aldığım cevaplardan çok faydalandım.
Benim sorunum elimde 33 tane ekde sunduğum txt fille'arından var.ben bunları bankaya atarken tek bir txt file olarak atmak istiyorum.bunu makro veya benzeri bir işlemle nasıl yapabilirim.
şimdiden ilginize teşekkür ediyorum...

 

[Orion1]

Bütün dosyaların ayni klasörde olamsı lazım.
Evren.txt dosyasına kayıtlar aktarılıyor.
Dosyanız ektedir.

Sub txt_birlestir()
Dim fso As Object, fs As Object, deg As String
Set fso = CreateObject("Scripting.filesystemobject")
Open (ThisWorkbook.Path & "\Evren.txt") For Output As #1
For Each fs In fso.getfolder(ThisWorkbook.Path).Files
    If Right(fs.Name, 4) <> ".xls" And fs.Name <> "Evren.txt" Then
        Open (ThisWorkbook.Path & "\" & fs.Name) For Input As #2
        Print #1, "============================================================="
        Print #1, "                 evrengizlen@hotmail.com"
        Print #1, "                 " & fs.Name & ""
        Print #1, "=============================================================="
        Do While Not EOF(2)
            Line Input #2, deg
            Print #1, deg
        Loop
        Print #1, "=============================================================="
        Close #2
    End If
Next
Close #1
MsgBox "Dosyalar Evren.txt dosyasında birleştirildi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[aatoş]

merhaba,
öncelikle bu kadar hızlı cevap verdiğiniz için teşekkürler.emeğinize sağlık sorunum halledildi sizin ve formunuz sayesinde.
sizlere iyi çalışmalar diliyorum tekrar ilgi ve alakanıza teşekkürler kolay gelsin.

 

[Orion1]

merhaba,
öncelikle bu kadar hızlı cevap verdiğiniz için teşekkürler.emeğinize sağlık sorunum halledildi sizin ve formunuz sayesinde.
sizlere iyi çalışmalar diliyorum tekrar ilgi ve alakanıza teşekkürler kolay gelsin.

Rica ederim.
iyi çalışmalar.