Подскажите как решить задачу распределения текста на ячейки. Дело в том что у меня есть 100+ текстов.в одном txt файле. Каждый абзац текста начинается с новой строки. Вот так это выглядит в txt файле - http://joxi.ru/ZrJVD43F1bzM4r. Разделяются тексты таким знаком ---- (разделитель можно поменять). Цель: вставить каждый текст (занимает 26 строк) в отдельные ячейки. Я могу также получить 100+ txt файлов каждый с отдельным тектом, цель аналогичная. Подскажите какой самый простой способ разделить текст или вставить из файлов для того чтобы достичь поставленной цели, и как это реализовать?
Добрый день!
Подскажите как решить задачу распределения текста на ячейки. Дело в том что у меня есть 100+ текстов.в одном txt файле. Каждый абзац текста начинается с новой строки. Вот так это выглядит в txt файле - http://joxi.ru/ZrJVD43F1bzM4r. Разделяются тексты таким знаком ---- (разделитель можно поменять). Цель: вставить каждый текст (занимает 26 строк) в отдельные ячейки. Я могу также получить 100+ txt файлов каждый с отдельным тектом, цель аналогичная. Подскажите какой самый простой способ разделить текст или вставить из файлов для того чтобы достичь поставленной цели, и как это реализовать?spite
Прекрасно А теперь еще нужен маленький файл Excel, сформированный вручную, с тем, как это должно окончательно выглядеть на примере хотя бы одного текста.
Прекрасно А теперь еще нужен маленький файл Excel, сформированный вручную, с тем, как это должно окончательно выглядеть на примере хотя бы одного текста.Gustav
Добрый день! Вынужден обратиться снова за помощью, макрос стал выдавать ошибку после изменения текста. Ошибка - http://joxi.ru/bmoopdaSMOv1Jm Пример измененного текста прикрепил к этому комментарию, скажите что там не так, уже по разному пробовал...?
Заранее спасибо за помощь!
Добрый день! Вынужден обратиться снова за помощью, макрос стал выдавать ошибку после изменения текста. Ошибка - http://joxi.ru/bmoopdaSMOv1Jm Пример измененного текста прикрепил к этому комментарию, скажите что там не так, уже по разному пробовал...?
макрос стал выдавать ошибку после изменения текста
Ну вот те раз - так Вы ж разделители кардинально поменяли! В предыдущем примере был использован нормальный разделитель "перевод строки + 5 минусов + перевод строки" и всё билось как надо. Сейчас же у Вас после 5 минусов до перевода строки идёт какой-то странный тэг типа "[fac_shortcode_115]". Меняйте в коде строку: [vba]
Код
vbCrLf & "-----" & vbCrLf
[/vba] на то, что у Вас сейчас, и счастье восстановится.
P.S. Хотя можете, конечно, упростить прошлый разделитель до буквального "-----", удалив переводы строк vbCrLf. Правда, в этом случае у Вас будут оставаться некоторые пустые строки в ячейках. Т.е. я говорю о следующем: [vba]
Код
Sub parseTextFileIntoRange2() Dim arr arr = WorksheetFunction.Transpose(Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(Application.GetOpenFilename).ReadAll, "-----")) Range("A1:A" & UBound(arr)) = arr End Sub
макрос стал выдавать ошибку после изменения текста
Ну вот те раз - так Вы ж разделители кардинально поменяли! В предыдущем примере был использован нормальный разделитель "перевод строки + 5 минусов + перевод строки" и всё билось как надо. Сейчас же у Вас после 5 минусов до перевода строки идёт какой-то странный тэг типа "[fac_shortcode_115]". Меняйте в коде строку: [vba]
Код
vbCrLf & "-----" & vbCrLf
[/vba] на то, что у Вас сейчас, и счастье восстановится.
P.S. Хотя можете, конечно, упростить прошлый разделитель до буквального "-----", удалив переводы строк vbCrLf. Правда, в этом случае у Вас будут оставаться некоторые пустые строки в ячейках. Т.е. я говорю о следующем: [vba]
Код
Sub parseTextFileIntoRange2() Dim arr arr = WorksheetFunction.Transpose(Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(Application.GetOpenFilename).ReadAll, "-----")) Range("A1:A" & UBound(arr)) = arr End Sub