Импорт данных из Word в Excel макросом

[doober]

Все возможно,приложите образец Ворда и Exsel документов

[doober]

Например так,если я правильно понял.

[pooli]

Есть сетка вещания тв программы в .rtf
задача вытащить данные в excel!

в таблице(ворда) 3 столбца,нужно взять данные из таблицы только первых двух, и так как они есть вставить в excel для дальнейшего редактирования

в примере оригинал файла и экселевский

[doober]

Смотрите вложение

[pooli]

Спасибо,работает

[pooli]

решил сделать втягивание напрямую из excel:

Private Sub op()
Dim wd As Object
Dim ns As Worksheet

On Error Resume Next
Set wd = CreateObject("Word.Application")

'получим имя файла
f = Application.GetOpenFilename("Файлы RTF, *.rtf,Все файлы, *.*")
If TypeName(f) = "Boolean" Then Exit Sub 'если Отмена - выход

'откроем выбранный очередной файл
Set wdd = wd.Documents.Open(f)

'скопируем содержимое документа
t = wdd.Content.Copy

'создадим лист для этого документа
Set ns = ActiveWorkbook.Worksheets.Add

'вставим скопированное в новый лист
ns.Paste Destination:=ns.Cells(1, 1)

'немного выравним вид
ns.Columns("A:A").ColumnWidth = 12
ns.Columns("B:B").ColumnWidth = 70
ns.Columns("B:B").WrapText = True
ns.Columns("C:C").Delete
ns.Rows("1:2").Delete Shift:=xlUp

ns.Columns("B:B").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
wdd.Close (False)
wd.Quit (False)

End Sub


появилась новая задача.
в лист то, я все вставил но вот при вставке значений вид их должен строиться так:
в первом столбце время эфира, во втором наименования
но в некоторых ячейках наименование разбито на строки при это время у него одно.
так вот как сделать макрос переноса?! с удалением лишнего.

прикладываю пример того что импортировалось и пример как должно быть.

[pooli]

При копировании текста из word в excel (просто без макроса)
почему-то значения времени ИМЕННО ЦИФРЫ 11 и 12 форматируются как ДАТА (ноябрь,декабрь)!
формат ячейки ни к чему не приводит.
как от этого избавиться?

[TbIL]

Доброго времени суток! Столкнулся с такой проблемой. Нужно из ворда определенные данные перенести в эксель, и создать связь, чтобы при изменении данных в ворде они автоматически менялись в экселе.