Импорт таблицы Word на лист Excel

Posted by obzor under VBA

Нужно импортировать таблицу из word (в приложении «Ворд.docx») на «Скрытый лист» книги excel (в приложении «Excel.xlsx») начиная с ячейки «E6», затем из скопированной таблички на «Скрытый лист» нужно подставить данные в таблицу на лист «База». Или возможно подставить данные в таблицу на листе «База» минуя «Скрытый лист».

	Ворд.docx (20.1 Кб)
	Excel.xlsx (9.6 Кб)

alex77755

по приложенным таблицам не понятно что куда надо распихивать. Хоть бы показал что надо получить. А так разбирайся дальше сам
Таблицу достать можно так:

Код:


Sub qwert()
    Set app = CreateObject("Word.Application")
    app.Documents.Open Filename:=ActiveWorkbook.Path & "\Ворд.docx"
    Set tb = app.activedocument.tables(1)
    
    tb.Range.Copy
    Лист2.Cells(1, 1).Select
    ActiveSheet.PasteSpecial Format:="HTML"
    app.Quit
    Set app = Nothing
End Sub

тема на форуме

Последние записи

Импорт таблицы Word на лист Excel

Похожие статьи