Архитектура 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


      ErrorHandler:

      IblMOpayment = 0

    12. Закройте редактор Visual Basic.


    13. Переключитесь в окно документа Word.


    14. В панели инструментов щелкните кнопку Exit Design Mode. Теперь заполните поля.


    15. Введите значения в каждое поле и щелкните кнопку Calculate.


    16. Сохраните изменения в документе и закройте Word.


    17. > Использование VBA в Microsoft Excel

    18. Запустите Microsoft Excel.


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


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


    21. В панели инструментов Visual Basic щелкните Control Toolbox.


    22. Добавьте в электронную таблицу Excel элемент управления «командная кнопка».


    23. Дважды щелкните на CommandButtonI для открытия редактора VBA.


    24. В событии Click командной кнопки наберите следующий код:

      Cells.Range("A1") = "Hello world!"

    25. Щелкните Exit Design Mode в панели инструментов Visual Basic.


    26. Закройте редактор VBA.


    27. Щелкните кнопку CommandButtonI в Microsoft Excel.

      В первой ячейке электронной таблицы появится строка «Hello World!».


      Содержание раздела