ПОНЯТНО О Visual Basic NET (том 3)


Используем «старые» компоненты (COM) - часть 3


Рис. 25.10

Вводим в окно кода такой код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Экс As Excel.Application = CreateObject("Excel.Application")

        Экс.Workbooks.Open("E:\Папка\Книга1.xls")

        Dim Лист As Excel.Worksheet = Экс.Workbooks("Книга1.xls").Worksheets("Лист1")

        TextBox1.Text = Лист.Cells(2, 4).Value + Лист.Cells(2, 5).Value + Лист.Cells(3, 5).Value

        Экс.Quit()

End Sub

Запустите проект. После нажатия кнопки в текстовом поле появится число 128.

Пояснения: Первой строкой мы объявляем и создаем при помощи метода CreateObject объект Экс класса Application пространства имен Excel, к которому получил доступ наш проект после добавления ссылки. С этого момента Excel уже запущен и незримо присутствует на экране, выполняя наши приказания, как джинн из бутылки.

Второй строкой мы открываем нужную нам книгу из файла при помощи метода Open интерфейса Workbooks, принадлежащего объекту Экс.

Третьей строкой мы объявляем переменную Лист, как объект класса Worksheet (Рабочий лист) пространства имен Excel, и тут же присваиваем ей значение нужного нам 1 листа, найдя его при помощи интерфейсов Workbooks и Worksheets.

Поскольку лист готов к работе, мы можем пользоваться его ячейками. Четвертая строка складывает значения трех его ячеек и отображает сумму в текстовом поле. Выражение

Лист.Cells(2, 4).Value

обозначает вот что: Значение (Value) ячейки (Cells), находящейся во 2 строке и 4 столбце таблицы. Это как раз наша знакомая ячейка D2. Остальное очевидно.

Пятая строка закрывает Excel. Если этого не сделать, он останется в памяти и будет занимать там много места.

Вы можете сделать нашего незримого джинна видимым при помощи оператора

Экс.Visible = True

На экране наряду с проектом появится Excel с открытым нужным листом. В нем можно нормально работать. Только оператор  Экс.Quit()  уберите, а то Excel закроется, не успев открыться.




Начало  Назад  Вперед



Книжный магазин