Формирование новой таблицы программным путем

В качестве простейшего примера совместной работы двух приложений Excel и Word, рассмотрим задачу рассылки извещений, созданных в редакторе Word, тем заказчикам, которые пожелали приобрести товар в задаче предыдущего параграфа, но не перевели деньги на счет фирмы-продавца.

Предварительно надо добавить изменение в программу кнопки «Принять заказ» на форме пользователя с тем, чтобы информация о сделанном заказе поступала на отдельный рабочий лист с именем «Заказы», структура которого представлена в табл.13.1.

Таблица 13.1

Заказчик Товар Кол-во Общая стоимость Дата Оплата
Луч Стул 160 000 11.09.08 да
Восток Кресло 120 000 11.09.08  
Восток Стол 400 000 12.09.08 да
Вест Кресло 360 000 12.09.08  

 

Шапка таблицы на листе имеется, надо программным путем сформировать содержимое. Для этого в программе для кнопки «Принять заказ» перед оператором End надо добавить следующий программный код:

i = 2

Do While Worksheets("Заказы").Cells(i, 1) <> ""

i = i + 1

Loop

Worksheets("Заказы").Cells(i, 1) = Worksheets("Платеж").Range("b8")

Worksheets("Заказы").Cells(i, 2) = Worsheets("Платеж").Range("a13")

Worksheets("Заказы").Cells(i, 3) = Worsheets("Платеж").Range("c13")

Worksheets("Заказы").Cells(i, 4) = Worsheets("Платеж").Range("d13")

Worksheets("Заказы").Cells(i, 5) = Worsheets("Платеж").Range("b17")

Тогда программа, помимо формирования платежной ведомости, будет заполнять первые 5 столбцов списка на листе «Заказы». В таблице «Заказы» имеется столбец «Оплата», который заполняется бухгалтером при получении сведений об оплате заказа вручную.

Затем в текстовом редакторе Word надо создать шаблон текстового документа «Извещение» с интерфейсом, представленным на рис. 13.1.

 

 

 

Рис. 13.1 – Текст документа «Извещение»








Дата добавления: 2015-09-25; просмотров: 529;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.