Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование таблиц из Word в Excel - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование таблиц из Word в Excel (Макросы/Sub)
Копирование таблиц из Word в Excel
StoTisteg Дата: Понедельник, 16.04.2018, 11:22 | Сообщение № 1
Группа: Авторы
Ранг: Ветеран
Сообщений: 570
Репутация: 47 ±
Замечаний: 0% ±

Excel 2010
Господа, есть такая задача. В Вордовском документе по пути Thisworkbook.Path & "Задание.docx" есть три таблицы, две из них с закреплёнными строками заголовков и неизвестным заранее числом строк. Нужно в лист Thisworkbook.Worksheets(1) скопировать данные из второй таблицы, в лист Thisworkbook.Worksheets(2) — из первой. Заголовки таблиц в Экселе сделаны заранее и совпадают с заголовками таблиц в Ворде.
В примере Таблица П2 должна оказаться на первом листе, Таблица П1 — на втором.
К сообщению приложен файл: 1833111.docx(30.5 Kb) · 2148772.xlsm(9.0 Kb)


Проверь всё. ThisWorkbook.Save. On Error Resume Next.

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

Автор - StoTisteg
Дата добавления - 16.04.2018 в 11:22
RAN Дата: Понедельник, 16.04.2018, 19:46 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4730
Репутация: 950 ±
Замечаний: 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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеС учетом того, что 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]

Автор - RAN
Дата добавления - 16.04.2018 в 19:46
StoTisteg Дата: Вторник, 17.04.2018, 12:49 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 570
Репутация: 47 ±
Замечаний: 0% ±

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеАга, спасибо. Я примерно так и писал, только с вордовским Range пытался обращаться как с экселевским :-)

Автор - StoTisteg
Дата добавления - 17.04.2018 в 12:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование таблиц из Word в Excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!