Последние записи
- Регулярные выражения findall — найти позиции вхождения подстроки в строку
- Удалить повторяющиеся элементы из массива (VBA в Excel)
- Сравнить значения в TRxDBGrid
- Определить слова наибольшей и наименьшей длины (VBA в Microsoft Office Excel)
- Массив с Фибоначчи. Создание массива с произведением элементов Фибоначчи — Microsoft Office Excel
- Импорт таблицы Word на лист Excel
- Изменение имени файла в C# (си шарп)
- Поле и вычисления в запросе (SQL в Access)
- Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
- Раскрашивание ячеек в DBGrid
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
Похожие статьи
