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

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

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)
                If Len(el) Then
                    ii = ii + 1
                    Cells(i, ii) = Split(el, ":")(1)
                Else
                    Exit For
                End If
            Next
        End If
    Next
 
End Sub

i = i + 1: ii = 0
For Each el In Split(ReadTXTfile(AFile.Path), vbNewLine)
   ii = ii + 1
   Cells(i, ii) = Split(el, ":")(1)
Next

 
  sss = ReadTxtFile() 'читаем весь файл целиком в переменную sss
  arrStrings = Split(sss,vbNewLine) 'разбиваем на массив строк
  for ii=0 to arrStrings.Size-1 step 1 'перебираем все строки в массиве строк
    arrWords = Split(arrStrings(ii),":") 'разбиваем каждую строку на массив слов, используя двоеточие в качестве разделителя
    Cells(i,ii) = arrWords(1) ' записываем в ячейку второй элемент массива слов (тот что после двоеточия)
  next

For Each el In Split(ReadTXTfile(AFile.Path), vbNewLine)

Sub test()
Dim myFile As String, text As String, textline As String
myFile = ThisWorkbook.Path & "\JENK.txt"
Open myFile For Input As #1
Do Until EOF(1)
    Line Input #1, textline
    text = text & textline
Loop
Close #1
 
b = 3
Range(Cells(1, 3), Cells(100, 1)).ClearContents 'Это для удобства только
 
For j = 1 To 8
 
If j = 1 Then posLat = InStr(1, text, "фаза_Jen", 1)
If j = 2 Then posLat = InStr(1, text, "фаза_Jen_прнзлы", 1)
If j = 3 Then posLat = InStr(1, text, "фаза_UpJenm", 1)
If j = 4 Then posLat = InStr(1, text, "город", 1)
If j = 5 Then posLat = InStr(1, text, "фаза_Jenh_1", 1)
If j = 6 Then posLat = InStr(1, text, "фаза_Jenh_2", 1)
If j = 7 Then posLat = InStr(1, text, "загородный", 1)
If j = 8 Then posLat = InStr(1, text, "JENK_Сумма", 1)
 
    For i = 1 To 100 'Понятия не имею, как найти конец строки, по этому пусть будет 100
        myvalue = Replace((Mid(text, posLat + i, 1) & Mid(text, posLat + i + 1, 1) & Mid(text, posLat + i + 2, 1) & Mid(text, posLat + i + 3, 1)), " ", "")
        If myvalue Like "#.##" Then
                Cells(b, 1).Value = myvalue
                b = b + 1
                GoTo nextlevel
        End If
    Next i
nextlevel:
Next j
End Sub

7| 
Дата|
 
Таблица
№| 
1| 1 фаза_Jen|2935|0.239| 8.16
2| 2 фаза_Jen_прнзлы| 744| 0.178| 23.98
3| 3 фаза_UpJenm| 5130|0.316| 6.16
4| город| 8808|0.734| 8.34
5| 4 фаза_Jenh_1| 7554|0.486| 6.43
6| 5 фаза_Jenh_2| 10348| 0.894| 8.64
7| загородный|17902| 1.380| 7.71
8| JENK_Сумма|26710| 2.114| 7.92

myvalue = Replace(" ", "|")
myvalue = Replace("||", "|")

        myvalue = Replace(myvalue, " ", "|")
        myvalue = Replace(myvalue, "||", "|")