Последние записи
- Событие по изменению Edit.Text
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
10th
Июн
Импорт таблицы Word на лист Excel
Posted by obzor under VBA
Нужно импортировать таблицу из word (в приложении «Ворд.docx») на «Скрытый лист» книги excel (в приложении «Excel.xlsx») начиная с ячейки «E6», затем из скопированной таблички на «Скрытый лист» нужно подставить данные в таблицу на лист «База». Или возможно подставить данные в таблицу на листе «База» минуя «Скрытый лист».
 |
Ворд.docx (20.1 Кб) |
 |
Excel.xlsx (9.6 Кб) |
по приложенным таблицам не понятно что куда надо распихивать. Хоть бы показал что надо получить. А так разбирайся дальше сам
Таблицу достать можно так:
Таблицу достать можно так:
Код:
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
