Архитектура Microsoft Windows для разработчиков

              

Создание подшивки средствами VBA


В этом упражнении Вы создадите новый файл подшивки и добавите в него документы Microsoft Word и Microsoft Excel.

> Создание подшивки и добавление компонентов

  1. Запустите Microsoft Visual Basic.

  2. Создайте новый проект типа Standard EXE.

  3. В меню Project щелкните References.

  4. Установите ссылку на Microsoft Binder 8.0 Object Library.

  5. Включите в форму командную кнопку cmdCreate, назвав ее &Create Binder.

  6. В событии cmdCreate_Click введите следующий код:

    Dim BND As OfficeBinder.Binder

    Set BND = CreateObject("Office. Binder")

    BND.Visible = True

    BND.Sections.Add ("Word.Document")

    BND.Sections.Add ("Excel.Sheet")

    BND.SaveAs filename:="NewBinder.obd"

    BND.Close 0

    Set BND = Nothing

  7. В меню Run щелкните Start.

  8. Щелкните кнопку Create Binder.

    Приложение создаст экземпляр подшивки Office Binder и посредством автоматизации добавит в нее документ Word и электронную таблицу Excel.

  9. Завершите работу программы и закройте Visual Basic.

    10. Использование VBA

    В этих упражнениях Вы примените Visual Basic for Applications в Word и Excel.

    > Использование VBA в Microsoft Word

    1. Запустите Microsoft Word и откройте файл VBA.doc в папке WA\Practice\Ch04.

    2. Если понадобится, в ответ на запрос об отключении макросов щелкните Enable Macros.

    3. В меню View, Toolbars установите флажок Visual Basic.

    4. В панели инструментов щелкните Design Mode.

    5. Поместите курсор в конец документа.

    6. В панели управления Control щелкните значок Command Button.

    7. Щелкните правой кнопкой мыши кнопку Command и выберите в меню ко манду Properties.

    8. Измените значение свойства Caption командной кнопки на Calculate.

    9. Закройте диалоговое окно Properties.

    10. Дважды щелкните кнопку Command, чтобы открыть окно кода VBA.

    11. В процедуре обработки щелчка кнопки CommandButton1 наберите следую щий код (он вычисляет ежемесячную выплату по кредиту):

      On Error GoTo ErrorHandler

      If APR > 1 Then APR = APR / 100 'Проверка значения If chkEOM = True Then

      PayType = 0 Else

      PayType = 1 End If

      IblMOpayment = Format(Pmt(APR / 12, TotPmts, -Pval, 0, PayType), "currency") Exit Sub



      Содержание  Назад  Вперед