Чтение данных с текстового файла(VBA)

[manula]

Здравствуйте уважаемые формумчане, у меня такая проблема:
есть текстовый файл и мне надо прочитать его и разбить на фрагмента и данные фрагменты поместить в столбцы листа книги, но считать данные нужно не с начала файла а с 9 строки,и каждая новая запись начинается с 9 строки,как мне это осуществить, я пробовал с помощью инструкции Open и т.д. но запнулся именно в этом моменте чтения.
Разбиение нужно начинать со строки:

010010650111Ж19550622..... информация о 1 человеке
........
010011253111М19520228..... информация о 2 человеке

разбить и добавить данные в ячейки книги таким образом:

Num1 | Num2 | Num3 | Num4 | Num5
01 | 00106 | 501 | 19550622 | Ф.И.О.
01 | 00112 | 531 | 19520228 | Ф.И.О.2


Помогите пожалуйста решить данную проблему.Всем откликнувшимся,огромное спасибо!)Ниже прикреплен текстовый файл с информацией.

[IgorGO]

см.вложение.
давайте только без фанатизма с "огромным спасибо" - пришлите просто денег...

[Hugo121]

Не понял про 9 строк - в файле их ведь всего 5?
И вообще всё прекрасно разбивается при стандартном импорте текста - только потом лишнюю первую строку удалить...

P.S. Нашёл девятую строку - это если включить wordwrap, и ещё поиграть шириной окна блокнота - тогда можно добиться такого эффекта
Но это не имеет ничего общего с количеством строк. Так, фикция....

[manula]

Сообщение от Hugo121

Не понял про 9 строк - в файле их ведь всего 5?
И вообще всё прекрасно разбивается при стандартном импорте текста - только потом лишнюю первую строку удалить...

P.S. Нашёл девятую строку - это если включить wordwrap, и ещё поиграть шириной окна блокнота - тогда можно добиться такого эффекта
Но это не имеет ничего общего с количеством строк. Так, фикция....

Имеется в виду каждая новая запись начинается после 9 строк,а этот текстовый файл может содержать более 1000 записей
Это все хорошо но мне нужно именно программно реализовать при нажатии на кнопку,а экспорт я делал таким образом,вопрос стоит о реализации алгоритма за счет использования инструкций для работы с текстовыми файлами

[IgorGO]

всё прекрасно разбивается при стандартном импорте текста - только потом лишнюю первую строку удалить

Игорь, чтобы первую не удалять, достаточно в стандартном импорте указать "Начать импорт со строки:" ...

[IgorGO]

manula,
втянуть файл на лист 1 - это нажать несколько раз кнопку на мыше
разможить формулы на листе 2 на 1000 строк - еще несколько раз.
итого 10-15 сек. - все готово.

[Hugo121]

Слушай, а я про первую строку и не знал!
Редко пользуюсь таким импортом, всё больше кодом, ибо часто нужно сразу фильтровать...
Ну а тут файл толково сделан - уже и разделители есть.
Вот, записал рекордером (2003 Эксель), путь поменяйте на свой или добавьте диалог пользователя по выбору файла:

Option Explicit

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 04.04.2012 by Hugo
'

'
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\TMP\info.txt", _
        Destination:=Range("A1"))
        .Name = "info"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Если повыкидывать лишнее, то можно ограничиться этим (возможно AdjustColumnWidth = True тоже лишнее):

Sub ImportData()
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;D:\TMP\info.txt", _
        Destination:=Range("A1"))
        .AdjustColumnWidth = True
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTabDelimiter = True
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .Refresh BackgroundQuery:=False
    End With
End Sub

Кстати, если есть лишние/ненужные колонки, то их можно при импорте исключить - в мастере всё легко и понятно делается.
Или просто в этом коде замените соответствующую 2 (текстовый формат) на 9 (пропустить столбец).

P.S. Если бы не пара/тройка полей, то есть путь проще - меняете/дописываете расширение xls и открываете файл
Но столбец перед фамилиями (и один дальше) Эксель преобразует в 8.3E+38, что всё портит (правда ещё и в первом и втором нули крадёт, ну и дальше тоже может, если попадутся в начале). Если эти столбцы не нужны - просто потом удалите первую строку и лишние столбцы.