Если текст с кучей строк сохранить в тхт файл и потом открыть его в еxcel - to excel автоматически разнесет его по строкам. Как сделать тоже самое но напрямую через VBA из переменной с текстом с кучей строк сразу в столбец по строкам. Может я иду не тем путем, мне это нужно для парсинга данных с сайта. Думал разнести их по строкам и потом обработать. Может есть прямые пути преобразования?
Если текст с кучей строк сохранить в тхт файл и потом открыть его в еxcel - to excel автоматически разнесет его по строкам. Как сделать тоже самое но напрямую через VBA из переменной с текстом с кучей строк сразу в столбец по строкам. Может я иду не тем путем, мне это нужно для парсинга данных с сайта. Думал разнести их по строкам и потом обработать. Может есть прямые пути преобразования?skais
Блин, как в первый раз вопрос задаете. Где эта "куча строк"? Как данные попадают в переменную? Есть ли они на листе Excel? Каким должен быть нужный итоговый результат? Где он должен быть? Почему нет примера того, что нужно?
Блин, как в первый раз вопрос задаете. Где эта "куча строк"? Как данные попадают в переменную? Есть ли они на листе Excel? Каким должен быть нужный итоговый результат? Где он должен быть? Почему нет примера того, что нужно?_Boroda_
Boroda_ В моем примере в ячейке A1 есть текст с кучей строк, думал получить ответ как из этой ячейки к примеру загнать данные в столбец B но уже по строкам. Ну а если точнее, то открою вопрос по шире и прикладываю новый пример. Мне нужно чтобы данные получились как в файле Pagettext, но без манипуляций с текстовым файлом. То есть пременная txt сразу в столбец A построчно, аналогично файлу PageText.
Boroda_ В моем примере в ячейке A1 есть текст с кучей строк, думал получить ответ как из этой ячейки к примеру загнать данные в столбец B но уже по строкам. Ну а если точнее, то открою вопрос по шире и прикладываю новый пример. Мне нужно чтобы данные получились как в файле Pagettext, но без манипуляций с текстовым файлом. То есть пременная txt сразу в столбец A построчно, аналогично файлу PageText.skais
RAN Спасибо за наводку, однако он как-то не совсем разносит по строкам (последний код в Вашем примере). Казалось, если он так делает с текстовым файлом, может есть какие-то решения? Или каким образом лучше парсить эту инфу?
RAN Спасибо за наводку, однако он как-то не совсем разносит по строкам (последний код в Вашем примере). Казалось, если он так делает с текстовым файлом, может есть какие-то решения? Или каким образом лучше парсить эту инфу?skais
Sub tt() txt = GetHTTPResponse("https://health-diet.ru/base_of_meals/meals_21253/?utm_source=leftMenu&utm_medium=base_of_meals") ar = Split(txt, vbLf) n_ = UBound(ar) If n_ Then ReDim ar1(0 To UBound(ar), 0 To 0) For i = 0 To UBound(ar) ar1(i, 0) = ar(i) Next i Cells(1, 1).Resize(n_ + 1) = ar1 End If End Sub Function GetHTTPResponse(ByVal sURL As String) As String On Error Resume Next Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") With oXMLHTTP .Open "GET", sURL, False .send GetHTTPResponse = .responseText End With Set oXMLHTTP = Nothing End Function
[/vba]
Так нужно? Тоже Сплитом [vba]
Код
Sub tt() txt = GetHTTPResponse("https://health-diet.ru/base_of_meals/meals_21253/?utm_source=leftMenu&utm_medium=base_of_meals") ar = Split(txt, vbLf) n_ = UBound(ar) If n_ Then ReDim ar1(0 To UBound(ar), 0 To 0) For i = 0 To UBound(ar) ar1(i, 0) = ar(i) Next i Cells(1, 1).Resize(n_ + 1) = ar1 End If End Sub Function GetHTTPResponse(ByVal sURL As String) As String On Error Resume Next Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") With oXMLHTTP .Open "GET", sURL, False .send GetHTTPResponse = .responseText End With Set oXMLHTTP = Nothing End Function
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
