Перенос данных из текстовых файлов в excel

[SaylerZ]

Доброго всем дня!
Помогите, пожалуйста с решением проблемы!
Есть множество txt файлов, нужно при помощи макроса перенести данные из этих файлов в Ексель с разбивкой по столбцам. Если подробней, то текстовый файл содержит порядка 15 строк, нужно эти строки перенести в отдельные столбцы ексель, далее взять следующий текстовый файл и также, только с новой строки, разбить его на столбцы в этот же ексель. Формат текстового файла приблизительно такой:
текст1: значение1
Текст2: значение2 и т.д.
В идеале конечно же было копировать значения только после ":пробел", но хотя бы всю строку. Моих познаний хватило только на макрос с разбивкой одного файла на столбцы и то подсмотрел на форуме. В макросах совсем не силен.

[Hugo121]

1. Выполняем в каталоге с текстами

copy /b *.txt all.txt

2. Стандартно мастером "данные ->из текста" грузим этот all.txt в Эксель с нужной разбивкой по столбцам.

Писал пост дольше чем заняла бы эта работа...

[SaylerZ]

Спасибо, но толи я не понял Вас, толи это немного не то. Получится я все файлы соединю в один, а дальше разобью на столбцы допустим по ":" Получится только 2 столбца. Пример: есть 2 текстовых файла со значениями:
текст1: значение1
Текст2: значение2
Текст3: значение3
и:
текст1: значение4
Текст2: значение5
Текст3: значение6
По вашей схеме получится таблица:
текст1 значение1
Текст2 значение2
Текст3 значение3
текст1 значение4
Текст2 значение5
Текст3 значение6
А нужно:
текст1: значение1 Текст2: значение2 Текст3: значение3
Текст1: значение4 Текст2: значение5 Текст3: значение6
Или в идеале таблица:
значение1 значение2 значение3
значение4 значение5 значение6

[Hugo121]

Это я по описанию задачу не понял. Было подозрение, но обычно всем нужно так, как я написал
Тогда для Вас действительно мой способ не подходит, нужен цикл по текстовым файлам, в нём цикл по строкам каждого файла.

[Watcher_1]

Нужны исходные файлы и пример результата в экселе.

[SaylerZ]

Во вложении пример.

[Hugo121]

Ответил на другом форуме. Но пока без кода:

И что, во всех файлах именно в таком порядке есть все позиции? И ничего более? Из практики такого не бывает
Я делал так - сперва в словаре собирал коллекции или кажется другие словари данных из всех текстовых файлов, и уже затем раскладывал всё на лист.

[SaylerZ]

Да, во всех файлах одинаковые позиции. Все файлы однотипные, там позиций 20. Всё что до ":" не меняется, меняются только значения после ":".

[Hugo121]

Уже сделал на другом форуме.
Продублирую:

Sub tt()
 
    Dim FSO
    Dim TheFolder, TheFiles, AFile, i&, el
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TheFolder = FSO.GetFolder("e:\tmp\SaylerZ\")
    Set TheFiles = TheFolder.Files
    
    i = 10 'тут можно указать с какой строки начинать выгрузку
    For Each AFile In TheFiles
        If UCase(FSO.GetExtensionName(AFile.Path)) = "TXT" Then
            i = i + 1: ii = 0
            For Each el In Split(ReadTXTfile(AFile.Path), vbNewLine)
                ii = ii + 1
                Cells(i, ii) = Split(el, ":")(1)
            Next
        End If
    Next
 
End Sub
 
Function ReadTXTfile(ByVal filename As String) As String
    Set FSO = CreateObject("scripting.filesystemobject")
    Set ts = FSO.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set FSO = Nothing
End Function

Можно конечно оптимизнуть (избавиться от функции и лишнего объекта в ней), но лень