|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.01.2012, 17:25 | #1 |
Новичок
Джуниор
Регистрация: 23.01.2012
Сообщений: 2
|
Копирование таблиц из excel в word
Доброго времени суток! Необходимо сделать загрузку таблиц из excel в word, в excel таблицы находятся на разных листах, в word эти таблицы должны быть просто друг за другом. Проблема состоит в том, что при переносе таблицы не идут друг за другом, а заменяются, и в итоге в документе остается только одна таблица - последняя. Очень прошу помочь, т.к. с vb пока не дружу(
Вот код: Dim wrd As Word.Application Dim ws As Worksheet Set wrd = New Word.Application For Each ws In ThisWorkbook.Sheets ws.UsedRange.Copy With wrd.Documents.Open(ThisWorkbook.Pat h & "\123.docx") .PageSetup.Orientation = 1 .Range.PasteExcelTable False, False, False |
23.01.2012, 20:53 | #2 |
Новичок
Джуниор
Регистрация: 23.01.2012
Сообщений: 2
|
Задача решена)
http://www.hardforum.ru/t94478/#post617701 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
импорт таблиц word в excel | manowar_gub | Microsoft Office Excel | 6 | 13.12.2010 10:23 |
Копирование таблиц из Excel в Word с помощью макроса | Kostaen | Microsoft Office Word | 3 | 25.08.2009 05:00 |
Встраивание таблиц Word или Excel | yngwie | Win Api | 2 | 23.06.2009 20:55 |
Копирование Word из в Excel | Юрийpirs2008 | Microsoft Office Excel | 2 | 31.12.2008 05:11 |