Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Копирование таблиц из excel в word

Автор junkey, 23.01.2012, 17:16

« назад - далее »

junkey

Доброго времени суток! Необходимо сделать загрузку таблиц из 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.Path & "\123.docx")
.PageSetup.Orientation = 1
.Range.PasteExcelTable False, False, False
End With
wrd.Visible = True
Next

junkey