Совмещение таблиц Excel и Word....

Программирование на Visual Basic for Applications
sonata
Постоялец
Постоялец
 
Сообщения: 321
Зарегистрирован: 31.07.2002 (Ср) 13:18
Откуда: Russia

Совмещение таблиц Excel и Word....

Сообщение sonata » 02.06.2003 (Пн) 13:42

Интересная тема:
Есть таблица в Excel, необходимо скопировать значения из Excel, в таблицу Word.Т.е. поясню:
в Word есть своя таблица, например 1 (одна) строка и з (три) столбца,
в Excel тоже есть значения Cells(1,1),Cells(1,2),Cells(1,3),
необходимо скопировать эти значения(без форматов) в таблицу Word.
Наверное, кто-нибудь сталкивался с подобной ерундистикой, а тащить
в Word Excel-ю таблицу, совсем нет желания...

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 02.06.2003 (Пн) 14:16

В двух словах это выглядит так:

в Word есть коллекция Tables, в ней все таблицы. нужная таблица получается из коллекции как Tables("MyTable") скажем. Или как Tables(1) - это первая таблица из документа. У таблицы есть коллекция Cells - полный аналог Excel евской. Дальше дело техники - либов вордовский документ подшиваем референс на библиотеку Excel либо в ексельную книгу референс на Word. И потом уже просто получаем нужную таблицу ворда описанным способом и заполняем ее.

sonata
Постоялец
Постоялец
 
Сообщения: 321
Зарегистрирован: 31.07.2002 (Ср) 13:18
Откуда: Russia

Сообщение sonata » 02.06.2003 (Пн) 16:09

А ты, случайно, для себя подобной лафы не делал?
Очень надо.....Была бы весьма признательна за код. :oops:

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 02.06.2003 (Пн) 16:11

Не делал :)

Код весьма прост - всего навсего два вложенных for или вообще один for each :)



2 Всем:

Ну сделайте вы кто нибудь этот код :) Времени просто у меня нету :)


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 32

    TopList