Создание подшивки средствами 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.

Использование 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.


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


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



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



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



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



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



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



23. В событии Click командной кнопки наберите следующий код:
    
    Cells.Range("A1") = "Hello world!"
    
    
24. Щелкните Exit Design Mode в панели инструментов Visual Basic.



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



26. Щелкните кнопку CommandButtonI в Microsoft Excel.
    
    В первой ячейке электронной таблицы появится строка «Hello World!».
    
    
    Содержание раздела
    
    
    
    
    

    ---