Импорт 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5