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

В качестве простейшего примера совместной работы двух приложений 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 – Текст документа «Извещение»

Рандомно подобранные статьи с сайта:

Microsoft Access № 27: запрос Access на создание таблицы


Похожие статьи:

  • Формирование заголовка и шапки таблицы

    Лабораторная работа №1 (4 часа) Обработка числовых данных в электронных таблицах Цель работы:Изучение процесса создания электронных таблиц: ввод…

  • Объединение и связывание таблиц для формирования итоговой ведомости

    Microsoft Excel предоставляет возможность объединять и связывать рабочие листы таким образом, чтобы в результате ввода значений или выполнения вычислений…

  • Копирование таблицы из программы access

    Программа Access позволяет копировать набор строк или целую таблицу в другую программу без применения мастера экспорта. Access копирует выбранные строки…

admin