Soru Klasör içindeki TXT formatlı dosyaları birleştirmek

[bulentkars]

Arkadaşlar Merhaba;

Ekteki Dosyada Örnek olarak anlattım. Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

Yapmak istediğim;

Yolunu göstereceğim klasörün içerisindeki aynı formatta olan TXT dosyalarının içindeki verileri alt alta kopyalamak istiyorum.

 

[veyselemre]

Sub txtDosyalariOku()
    Dim pth$, satir&, bas&, txtFile As Object, txtSatir
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Klasör Seç"
        .Show
        If .SelectedItems.Count > 0 Then
            pth = .SelectedItems(1)
        Else
            MsgBox "Klasör seçilmedi!"
            Exit Sub
        End If
    End With

    satir = 1
    bas = 2
    Range("A2:C" & Rows.Count).ClearContents

    For Each txtFile In CreateObject("Scripting.FileSystemObject").GetFolder(pth).Files
        If Right(txtFile.Name, 3) = "txt" Then
            Open txtFile.Path For Input As #1
            Do Until EOF(1)
                Line Input #1, txtSatir
                If txtSatir <> "" Then
                    satir = satir + 1
                    Cells(satir, 2).Value = txtSatir
                End If
            Loop
            Close #1
            Range("A" & bas & ":A" & satir).Value = Replace(txtFile.Name, ".txt", "")
            Range("C" & bas & ":C" & satir).Value = Format(txtFile.DateLastModified, "dd.mm.yyyy")
            bas = satir + 1
        End If
    Next txtFile

    MsgBox "Veriler başarıyla alındı!"
End Sub

PQ =>

let
    path= Excel.CurrentWorkbook(){[Name="tblDosyaYolu"]}[Content]{0}[Dosya Yolu],
    Kaynak = Folder.Files(path),
    filtrele = Table.SelectRows(Kaynak, each ([Extension] = ".txt")),
    dataEklendi = Table.AddColumn(filtrele, "Özel", each Table.FromColumns({Lines.FromBinary([Content],null,null,1254)})),
    dosyaAdiAyir = Table.ReplaceValue(dataEklendi,".txt","",Replacer.ReplaceText,{"Name"}),
    digerSutunlariKaldir = Table.SelectColumns(dosyaAdiAyir,{"Name", "Date modified", "Özel"}),
    sutunlariSirala = Table.ReorderColumns(digerSutunlariKaldir,{"Name", "Özel", "Date modified"}),
    datayıGenislet = Table.ExpandTableColumn(sutunlariSirala, "Özel", {"Column1"}, {"Column1"}),
    sutunlariAdlandir = Table.RenameColumns(datayıGenislet,{{"Name", "Dosya Arı"}, {"Column1", "Dosya İçeriği"}, {"Date modified", "Dosya Değiştirme Tarihi"}})
in
    sutunlariAdlandir

 

[bulentkars]

Sayın; veyselemre bey çok teşekkür ederim. Elinize emeğinize sağlık