Импорт Word-не таблица в Excel-таблицу - VBA
Формулировка задачи:
Доброго времени суток!
Столкнулся на работе с такой проблемой, рекомендую сразу провалится в пример дока...
В нем представлена инфа, которую выдает программа для работы с установкой одной аналитической.
Дело в том, что информация представлена в ворде НЕ ТАБЛИЦЕЙ, а просто в строчку переменными.
Все это страх как нужно перенести грамотно в Эксель, чтобы не в 1 ячейку, а соответственно хотя бы саму таблицу по ячейкам.
Дальше сам разберусь, стяну оттуда что нужно. Есть умельцы?
Спасибо.
Решение задачи: «Импорт Word-не таблица в Excel-таблицу»
textual
Листинг программы
Sub Копирование_в_Excel_из_Word_4() 'Из открытого активного документа Dim i&, j&, k&, S$, A, WA As Object, oMyDoc As Object Set WA = GetObject(, "Word.Application") Set oMyDoc = WA.ActiveDocument For i = 1 To oMyDoc.Paragraphs.Count S = oMyDoc.Paragraphs(i).Range.Text S = Replace(S, Chr(13), "") 'Удаление символа конца абзаца Word S = Replace(S, " ", "") 'Удаление пробелов If InStr(1, S, vbTab) > 0 Then 'Если есть знаки табуляции k = k + 1 S = Replace(S, ",", ".") 'Разделитель дробной части A = Split(S, vbTab) For j = 0 To UBound(A) Cells(k, j + 1) = A(j) Next j End If Next i Set oMyDoc = Nothing: Set WA = Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д