Автоматизация приложений Microsoft Office и управление процессами

В меню Project (Проект) щелкните на команде Add Reference (Добавить ссылку). Появится диалоговое окно Add Reference (Добавить ссылку), показанное ниже.

Диалоговое окно Add Reference (Добавить ссылку) содержит три закладки для объектов, доступные в вашей системе: .NET, COM и Projects (Проекты). Закладка .NET содержит объекты, которые соответствуют спецификациям .NET, в том числе компоненты Crystal Reports, объекты, предоставляемые средой разработки Visual Studio .NET и различные системные объекты. Закладка COM содержит приложения и компоненты Component Object Model, в том числе объекты приложений Microsoft Office. Закладка Projects (Проекты) содержит объекты, предоставляемые вашими собственными объектами на Visual Basic, которые вы можете использовать. Добавление ссылок в проект не делает скомпилированную программу больше по размеру. Однако чем больше ссылок, тем дольше Visual Basic будет загружать и компилировать программу. Поэтому Visual Basic добавляет ссылки на библиотеки Automation, только если вы об этом попросите.

Прокрутите алфавитный список вниз и щелкните на ссылке с названием Microsoft Excel 10.0 Object Library. Обычно этот список довольно длинный, и при просмотре его приходится долго прокручивать - особенно когда вы наталкиваетесь на каталог библиотек объектов Microsoft.

Выбрав Microsoft Excel 10.0 Object Library, щелкните на кнопке Select (Выбрать). Ваш экран должен выглядеть примерно так.

Щелкните на OK, чтобы закрыть диалоговое окно и добавить ссылку в проект. Вы увидите следующее диалоговое окно.

Так как компоненты COM больше не поддерживаются средой разработки Visual Studio напрямую, Visual Studio требует, чтобы либо в проект была включена ссылка на первичную сборку взаимодействия, либо в проекте самой Visual Studio была сгенерирована локальная "оболочка", содержащая такие же объявления классов. Большинство приложений и компонент COM требуют оболочек для всех создаваемых вами новых ссылок на библиотеки.

В меню View (Вид) щелкните на команде Object Browser (Обозреватель объектов). (Быстрая клавиша для отображения Обозревателя объектов - (F2).) Появится Object Browser (Обозреватель объектов), как показано ниже.

Обозреватель объектов содержит иерархический древовидный список ссылок и компонент. Иерархия объектов показана на левой панели Object Browser (Обозреватель объектов), а отдельные члены - на правой. В нижней части Обозревателя объектов находится панель, которая содержит информацию о синтаксисе выбранного объекта, когда она доступна. Обозреватель объектов также предлагает несколько полезных инструментов, предназначенных для поиска необходимой информации. Раскрывающийся список Browse (Обзор) позволяет отобразить отдельные библиотеки объектов и компоненты вашего проекта. Также имеется кнопка Find Symbol (Найти символ), которую можно использовать для поиска в большом списке библиотеки объектов отдельных объектов, свойств, методов и событий. Кнопка Back (Назад) позволяет вернуться к просмотру предыдущего списка объектов.

Прокрутите панель Members (Члены) и щелкните на методе Quit. Ваш экран будет выглядеть примерно так.

В нижней части Обозревателя объектов появится синтаксис метода Quit. Этот метод закрывает приложение Excel по окончании его использования. Это стандартная функция большинства сессий Office Automation. Синтаксис показывает главные аргументы (в данном случае их нет) и родительские объекты этого метода (Excel.Application).

Установите для объектов формы следующие свойства:

Ваша форма должна выглядеть примерно так.

Для запуска команд Excel с помощью Automation и вычисления выплат по закладной введите следующий код программы:

Dim xlApp As Excel.Application
Dim LoanPayment As Single
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
LoanPayment = xlApp.WorksheetFunction.Pmt _
(txtInterest.Text / 12, txtMonths.Text, txtPrincipal.Text)
MsgBox("Платеж за месяц "  _
Format(Abs(LoanPayment), "$#.##"), , "Закладная")
xlApp.Quit()

Эта процедура события объявляет переменную с именем xlApp, имеющую тип Excel.Application, что теперь допустимо, так как вы создали ссылку на библиотеку объектов Microsoft Excel 10.0.

Затем эта процедура с помощью функций CreateObject и CType присваивает тип переменной xlApp и заставляет эту переменную работать, вызывая метод WorksheetFunction.Pmt из Excel. Три аргумента для метода Pmt берутся из трех объектов текстового поля в форме. Так как функция Pmt возвращает для выплат отрицательное значение, то для отображения этого числа как положительного с плавающей точкой я использовал функцию Abs (модуль) из класса System.Math библиотеки .NET Framework. (В Excel выплаты по займам обычно отображаются как отрицательные числа, но в форме Visual Basic выплаты обычно выглядят гораздо лучше, если они отображаются как положительные величины.) Заметьте, что если один из требуемых аргументов функции Pmt пропущен, процедура события выдаст сообщение об ошибке времени исполнения. (Вы знаете, как можно устранить этот недостаток с помощью структуры выбора или обработчика ошибок?)

Наконец, процедура с помощью окна сообщения отображает выплаты по закладной, и закрывает приложение Excel с помощью метода Quit. В этом примере приложение Excel никогда не открывается, так что пользователь даже не узнает, что оно загружалось.

Прокрутите код в Редакторе кода в самый верх, а затем введите следующий оператор программы:

Imports System.Math

Это объявление встроит в проект библиотеку классов System.Math и предоставит доступ к использованной нами функции Abs. (После того, как вы сделаете эту ссылку, метод Abs больше не будет подчеркнут синей волнистой линией, присутствие которой является визуальной подсказкой о том, что объект, метод или свойство не определено.)

Щелкните на кнопке Start (Начать) стандартной панели инструментов. Появится калькулятор выплат по закладной.

Введите в текстовое поле Основной долг число 150000. Ваша форма долж-на выглядеть примерно так.

Щелкните на кнопке Вычислить. Для вычисления выплат по закладной на сумму $150000 при 9 процентной ставке за 360 месяцев (30 лет) программа использует Excel. Как видно из следующей иллюстрации, результат в окне сообщения равен $1206.93. (Помните, что если это выплаты по займу на покупку дома, то это количество представляет только сумму и процентную ставку - в нее не включены налоги, страховка и другие обычные составляющие!)

Введите следующие операторы программы:

'Объявляем объектные переменные Excel и создаем типы
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

'Добавляем данные
xlSheet.Cells(1, 2) = 5000
xlSheet.Cells(2, 2) = 75
xlSheet.Cells(3, 1) = "Всего"
'Вводим в ячейку B3 формулу Sum
xlSheet.Range("B3").Formula = "=Sum(R1C2:R2C2)"
'Форматируем ячейку B3 жирным шрифтом
xlSheet.Range("B3").Font.Bold = True
'Отображаем лист
xlSheet.Application.Visible = True
'Сохраняем лист в папке c:\vbnet03sbs\Гл.13
xlSheet.SaveAs("C:\vbnet03sbs\Гл.13\myexcelsheet.xls")
'Оставляем Excel работать с открытым листом

Код программы этой процедуры события несколько длиннее, чем предыдущий пример Excel Automation - он мог бы быть еще длиннее, если бы вы решили добавить в таблицу много значений и использовать различные опции форматирования. Практический интерес представляют первые три объявления переменных и операторы CreateObject. Так как я на самом деле управляю таблицей Excel, а не просто запускаю команды Excel, мне нужно создать три переменные Excel и назначить им правильные типы из библиотеки объектов Microsoft Excel 10.0. Первое объявление переменной ссылается на тип Excel.Application, второе объявление указывает на тип Excel.Workbook (который основан на Excel.Application ), а третье объявление переменной ссылается на тип Excel.Worksheet (который основан на Excel.Workbook). Обратите внимание на эти важные объявления переменных и типов - они вам понадобятся при дальнейшей работе с Excel.

Остальная часть процедуры события загружает значения в ячейки Excel. (Обратите внимание на разницу между тем, как вводятся числовые и строковые значения.) Затем в ячейку B3 вводится формула, которая использует функцию Sum для вычисления суммы ячеек B1 и B2, а результат форматируется жирным шрифтом. В этот момент процедура события отображает активный лист, и этот лист сохраняется на диск в папку c:\vbnet03sbs\Гл.13. (Если такой файл уже существует, появится диалоговое окно, спрашивающее, действительно ли вы хотите перезаписать файл.) После этого процедура события завершится, и приложение Excel остается открытым и видимым на экране, приглашая пользователя выполнить в Excel дополнительные задания. (Заметьте, что программа на Visual Basic также продолжает работать.) Программу также можно закрыть с помощью метода Quit, как это делалось в первом примере Excel Automation.

Щелкните на кнопке Start (Начать) стандартной панели инструментов.

Появится простая форма вашего проекта, показанная ниже.

Щелкните на кнопке Создать рабочий лист. Visual Basic запускает Excel и быстро выполняет поставленные вами задачи Automation. После того, как свойство Visible установлено на True, лист Excel появляется на вашем экране, как показано на рисунке ниже.

Обратите внимание на положение и содержимое ячеек в столбцах A и B - команды Automation выполнили свою работу, и функция Sum выдала корректный результат в ячейке B3 (5000 + 75 = 5075). Текущее имя файла (myexcelsheet.xls) появляется в строке заголовка Excel.

Щелкните на закладке Components (Компоненты) Области элементов среды Visual Studio. Эта закладка выглядит так.

До сих пор вы использовали только закладку Windows Forms окна Toolbox (Область элементов), но закладка Components (Компоненты) также очень полезна. Она содержит компоненты .NET, которые осуществляют мониторинг событий операционной системы и среды разработки Visual Studio.

В окне Properties (Свойства) щелкните на знаке "плюс" (+) рядом с категорией StartInfo, в результате чего она откроется, а затем установите свойство FileName равным notepad.exe. Используйте имя объекта noteProcess в коде вашей программы, когда захотите запустить, остановить или исследовать состояние приложения Notepad (Блокнот). Свойство FileName устанавливает имя приложения равным notepad.exe. При корректной установке приложения это имя можно найти в системном реестре. (Если вы хотите запустить другое приложение, то измените это имя, например, на winword.exe или excel.exe.)

Теперь ваша форма выглядит примерно так.

Сделайте двойной щелчок мышью на кнопке Запустить блокнот формы, а затем введите в Редакторе кода следующий оператор программы:

noteProcess.Start()

Так как вы уже указали имя приложения с помощью компоненты Process, здесь его указывать не требуется. Имя объекта noteProcess содержит всю необходимую информацию.

Введите в Редакторе кода следующий оператор программы:

noteProcess.CloseMainWindow()

Метод CloseMainWindow является эквивалентом щечку на кнопке Закрыть в строке заголовка Блокнота. Если у пользователя в приложении есть несохраненный файл, то прежде, чем приложение будет закрыто, появится запрос на сохранение этого файла. (Приложение также можно закрыть с помощью метода Kill, но этот вариант не позволит сохранить изменения.)

Прокрутите код программы формы в самый верх, а затем введите следующие ссылки на классы:

Imports System.Threading
Imports System.Diagnostics

Эти классы System используются, когда вы управляете процессами из вашего кода программы, хотя они и не требуются, если вы используете только методы Start и CloseMainWindow, как это сделал я. (Я включаю их для того, чтобы определить классы Framework, которые могут понадобиться для дальнейшего изучения этого направления.)

Щелкните на кнопке Save All (Сохранить все) на стандартной панели инструментов, а затем запустите программу.

Появится следующая форма.

Щелкните на кнопке Запустить блокнот. Ваша программа запустит Notepad (Блокнот).