Читать абзацы из большого текстового файла и вставлять в нужные ячейки

[domo22]

doober, для вас и для остальных - более реальный пример базы и желаемого результата. Надеюсь на помощь.
Пример

[Hugo121]

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

Hugo121, я не совсем понимаю, перед экспортом вставить оператор

ActiveWorksheet.Range("A:H").NumberFormat = "@"

или как?

Да. Или прямо перед значением добавляйте апостроф.

[domo22]

Hugo121, спасибо, но как-то оно не так работает. После экспорта остаются ячейки с ошибками: #ИМЯ?

[IgorGO]

а что мешает попробовать прежде, чем задавать вопрос?

[doober]

Если и этот макрос не так работает,то иду выращивать капусту.

[domo22]

doober
Вообще-то, выращивание капусты тоже дело хорошее. Но вижу, что макросы писать Вы таки точно умеете.

После интенсивного тестирования оказалось, что макрос на большинстве баз выполняет свою работу почти безукоризненно - четко и правильно.
Особенно понравилось, что часть условий вынесена в раздел Константы, так намного проще управлять макросом. Можно было бы еще добавить в константы интервал столбцов с идентификаторами, т.к. оказалось, что иногда это A:C иногда A:F или A:D. Да и комментарии кода не помешали бы для понимания.
Искреннее вам спасибо за такую хорошую работу и потраченное время.

Однако, поскольку в мире нет ничего идеального, то ложка дегтя будет такой:

1) на отдельных базах макрос вылетает с ошибкой
"Runtime error 7 - Out of memory"
на строке
Sh.Cells(XX.Row, 10) = ArrayBase.Item(Key)
Я пытаюсь сейчас найти точное место, которое приводит к ошибке. Хочу спросить, нет ли для этого кода какого-то заведомо известного ограничения - типа особый символ в записи, что всегда даст ошибку, или размер отдельной записи, например, не более 32 или 64Кб?

2) макрос чувствителен к регистру. Иногда это хорошо, иногда плохо. Можете ли Вы добавить константу, например РЕГИСТР, если она false или 0, макрос работает как сейчас, если true или 1 - макрос учитывает регистр?
Это не критично, но если можно, то было бы гораздо лучше.

3) почему-то часть ячеек, для идентификаторов которых не найдена запись, остаются пустыми, а часть со строкой "<Not found>". А тут нужна ясность, ведь потом мне еще нужно будет писать макрос, чтобы переместить все такие строки на отдельный лист для удаления или исправления.
Поэтому если такое возможно - то либо везде "<Not found>", либо пусто, но везде одинаково (а еще лучше и красным цветом).

4) на время работы макроса все замирает. Даже как-то жутко - 5, 10, 15 мин ничего не происходит, пока макрос не отработает. Не знаешь, то ли перегружать ПК, то ли еще ждать. Можно ли добавить какую-то инфу типа "запись хх из хх" в строку статуса или отдельное окошко, чтобы показать, что макрос жив и здоров? Это, конечно, замедлит работу, но будет спокойнее, да и всегда можно закомментировать.

И последнее. Наверно, это самое важное. Очень хотелось бы (да это и необходимо) проверить правильно ли макрос все обрабатывает. Лучший для меня способ для этого - сравнить новую базу с исходной как текст.
Найдется ли у Вас время, хотя бы в ближайшую неделю-две, написать макрос, который запишет базу обратно в текстовый файл? Конечно, с возвратом строк НАЧАЛО, КОНЕЦ и т.п., кроме тех переводов строки, которые удалены при импорте. Там Excel наверно захочет поставить вокруг каждой строки двойные кавычки, поэтому нужен будет нестандартный подход или макрос просто запишет как есть, а потом откроет Word и в нем удалит кавычки и сохранит.

[domo22]

Я разобрался почему макрос doober вылетает - когда размер записи более 64Кб. В этом случае лучшим решением было бы наверно проверять размер каждой записи и если она слишком велика - в нужную ячейку напротив идентификатора писать строку "<Too big>" и возможно писать это или заливать красным цветом.

[domo22]

doober, была ли у Вас возможность посмотреть можно ли устранить ошибку краха макроса на записях размером более 64Кб?
Пример

[doober]

Это не крах макроса,это слишком большие строки
Внесите изменения в этот фрагмент.

'.................................
    If Not XX Is Nothing Then
            SS = ArrayBase.Item(Key)
            If Len(SS) < 64000 Then
                Sh.Cells(XX.Row, 10) = SS
            Else
                Sh.Cells(XX.Row, 10) = "<Too big>"
                Sh.Cells(XX.Row, 10).Interior.Color = 255
            End If

        End If
'............................................

Найдется ли у Вас время, хотя бы в ближайшую неделю-две, написать макрос, который запишет базу обратно в текстовый файл? Конечно, с возвратом строк НАЧАЛО, КОНЕЦ и т.п., кроме тех переводов строки, которые удалены при импорте. Там Excel наверно захочет поставить вокруг каждой строки двойные кавычки, поэтому нужен будет нестандартный подход или макрос просто запишет как есть, а потом откроет Word и в нем удалит кавычки и сохранит.

Только под заказ.

[domo22]

Да, внесенные изменения обеспечили работу макроса даже с базами, имеющими очень большие по размеру записи. Огромное спасибо Вам за помощь, doober