Копирование таблиц из Word в Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование таблиц из Word в Excel (Макросы/Sub)

StoTisteg

Дата: Понедельник, 16.04.2018, 11:22 | Сообщение № 1

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Господа, есть такая задача. В Вордовском документе по пути Thisworkbook.Path & "Задание.docx" есть три таблицы, две из них с закреплёнными строками заголовков и неизвестным заранее числом строк. Нужно в лист Thisworkbook.Worksheets(1) скопировать данные из второй таблицы, в лист Thisworkbook.Worksheets(2) — из первой. Заголовки таблиц в Экселе сделаны заранее и совпадают с заголовками таблиц в Ворде.
В примере Таблица П2 должна оказаться на первом листе, Таблица П1 — на втором.

К сообщению приложен файл: 1833111.docx (30.5 Kb) · 2148772.xlsm (9.0 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Понедельник, 16.04.2018, 13:19

Ответить

RAN

Дата: Понедельник, 16.04.2018, 19:46 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

С учетом того, что 1 это 3, можно так (только информация к размышлению)
[vba]

Код

Sub qq()
    Set wa = GetObject(, "word.application")
    Set wd = wa.activedocument
    wd.tables(3).Range.Copy
    Sheets(1).Range("A5").Select
    ActiveSheet.Paste
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

StoTisteg

Дата: Вторник, 17.04.2018, 12:49 | Сообщение № 3

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Ага, спасибо. Я примерно так и писал, только с вордовским Range пытался обращаться как с экселевским :-)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование таблиц из Word в Excel (Макросы/Sub)

Страница 1 из 1
1