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

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Июн

Импорт таблицы 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