Лабораторная работа 3.4 Использование COM-компонентов в приложениях ASP.NET 2.0

Применение программного кода во внешних COM-компонентах в ASP.NET 2.0

Подготовка:

Создайте новое приложение ASP.NET Lab03_04_MultExcel, скопировав в новый каталог созданное вами приложение Lab03_03_MultWebService. Для этого:

1. Создайте средствами Windows Explorer в каталоге C:\Labs папку Lab03_04_MultExcel.

2. Откройте в Visual Studio созданный вами проект Lab03_03_MultWebService.

3. В меню Web Site выберите Copy Web Site.

4. В открывшейся вкладке Copy Web Site нажмите на кнопку Connect и выберите созданный вами каталог Lab03_04_MultExcel.

5. При помощи стрелок скопируйте в список Remote Web Site все папки и файлы из текущего проекта.

6. Закройте текущий проект Lab03_03_MultWebService.

Задание:

1. Измените приложение ASP.NET Lab03_04_MultExcel таким образом, чтобы после нажатия на кнопку "Умножить" результат не только выводился на страницу HTML, но и записывался в ячейку A1 первого листа рабочей книги Excel C:\Labs\Lab03_04_MultExcel\result.xls на вашем компьютере.

2. Добавьте на лист Default.aspx гиперссылку для создаваемой рабочей книги, чтобы пользователь мог скачать результат в Excel на свой компьютер (см. рис. 3.4-1).

Рис. 3.4 Web-страница с результатом и ссылкой

Решение:

1. Откройте приложение ASP.NET Lab03_04_MultExcel в Visual Studio.NET 2005 и в меню View выберите Object Browser.

2. В меню WebSite выберите Add Reference, перейдите на вкладку COM, выберите библиотеку Microsoft Excel Object Library и нажмите на кнопку OK. Убедитесь, что в окне Object Browser появился контейнер Microsoft Office Interop.Excel. Закройте окно Object Browser.

3. Откройте в дизайнере страницу Default.aspx. Перетащите из контейнера Standard в Toolbox элемент управления Hyperlink. Удалите для этого элемента управления значение свойства Text (он должен выглядеть в окне дизайнера как [Hyperlink1] и для свойства Visible установите значение False.

4. Откройте в редакторе кода страницу codebehind default.aspx.vb и измените код для процедуры Button1_Click. Он должен быть таким:

    Protected Sub Button1_Click(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles Button1.Click

        Dim nResult As Integer

        Dim oMyObject As New Lab03_03_MultWebService.Service

        nResult = oMyObject.WebServiceMult(CInt(TextBox1.Text), _

 CInt(TextBox2.Text))

        Label3.Text = "Результат: " & nResult

        'Выполняем операции с Excel

        Dim oExcel As New Microsoft.Office.Interop.Excel.Application

        Dim oWbk As Microsoft.Office.Interop.Excel.Workbook

        oWbk = oExcel.Workbooks.Add()

        Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet

        oSheet = oWbk.Worksheets(1)

        oSheet.Range("A1").Value = nResult

        oWbk.SaveAs("C:\Labs\Lab03_04_MultExcel\result.xls")

        oExcel.Quit()

        'Настраиваем элемент Hyperlink

        HyperLink1.NavigateUrl = "result.xls"

        HyperLink1.Text = "Получить результат в Excel"

        HyperLink1.Visible = True

    End Sub

5. Нажмите на кнопку F5, чтобы убедиться, что приложение работает в соответствии с заданием. Скачайте файл Excel по ссылке.

Получить учебные материалы по этому курсу