В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Браузер не поддерживается

Чтобы использовать веб-сайт, обновите браузер.

Обновите браузер до последней версии Internet Explorer

Использование Visual Basic для автоматизации Microsoft Excel

Поддержка Office 2003 завершена

8 апреля 2014 г. корпорация Майкрософт прекратила поддержку Office 2003. Это повлияло на обновления программного обеспечения и параметры безопасности. Узнайте, что это значит для вас и какие меры по безопасности можно предпринять.

Аннотация
В данной статье рассмотрены вопросы автоматизации процесса создания и обработки документов Microsoft Excel в среде разработки Visual Basic.
Дополнительная информация
Существует два способа управления сервером автоматизации: позднее и раннее связывание. В первом случае связывание методов до выполнения программы не производится и сервер автоматизации объявляется как объект. При использовании раннего связывания на стадии разработки известен тип объекта, с которым будет взаимодействовать приложение, и его объекты могут быть объявлены с присвоением определенного типа. В приведенном проекте использовано раннее связывание, поскольку в большинстве случаев оно обеспечивает более высокую производительнось и безопасность типов.

Для раннего связывания с сервером автоматизации необходимо установить ссылку на библиотеку типов данного сервера. В Visual Basic для этого служит диалоговое окно References (для его вызова в меню Project выберите команду References). Для выполнения представленного программного кода необходимо добавить ссылку на библиотеку типов Excel. Необходимые для добавления ссылки действия описаны ниже.

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

  1. Запустите Visual Basic и создайте проект Standard EXE. По умолчанию будет создана форма Form1.
  2. Для вывода диалогового окна References в меню Project выберите команду References. Для добавления ссылки на Excel 2002 выберите в предложенном списке библиотеку Microsoft Excel 10.0 Object Library. Если указанная библиотека в списке отсутствует, убедитесь в правильности установки Microsoft Excel 2002.

    Примечание. В случае автоматизации Excel 2003 соответствующая библиотека типов в списке References называется Microsoft Excel 11.0 Object Library. В случае автоматизации Excel 2000 — Microsoft Excel 9.0 Object Library, а Excel 97 — Microsoft Excel 8.0 Object Library.
  3. Нажмите кнопку ОК, чтобы закрыть диалоговое окно References.
  4. Добавьте в форму Form1 элемент управления CommandButton.
  5. Скопируйте следующий программный код в окно формы.
       Option Explicit      Private Sub Command1_Click()      Dim oXL As Excel.Application      Dim oWB As Excel.Workbook      Dim oSheet As Excel.Worksheet      Dim oRng As Excel.Range            'On Error GoTo Err_Handler         ' Start Excel and get Application object.      Set oXL = CreateObject("Excel.Application")      oXL.Visible = True         ' Get a new workbook.      Set oWB = oXL.Workbooks.Add      Set oSheet = oWB.ActiveSheet         ' Add table headers going cell by cell.      oSheet.Cells(1, 1).Value = "First Name"      oSheet.Cells(1, 2).Value = "Last Name"      oSheet.Cells(1, 3).Value = "Full Name"      oSheet.Cells(1, 4).Value = "Salary"         ' Format A1:D1 as bold, vertical alignment = center.      With oSheet.Range("A1", "D1")         .Font.Bold = True         .VerticalAlignment = xlVAlignCenter      End With         ' Create an array to set multiple values at once.      Dim saNames(5, 2) As String      saNames(0, 0) = "John"      saNames(0, 1) = "Smith"      saNames(1, 0) = "Tom"      saNames(1, 1) = "Brown"      saNames(2, 0) = "Sue"      saNames(2, 1) = "Thomas"      saNames(3, 0) = "Jane"      saNames(3, 1) = "Jones"      saNames(4, 0) = "Adam"      saNames(4, 1) = "Johnson"          ' Fill A2:B6 with an array of values (First and Last Names).      oSheet.Range("A2", "B6").Value = saNames          ' Fill C2:C6 with a relative formula (=A2 & " " & B2).      Set oRng = oSheet.Range("C2", "C6")      oRng.Formula = "=A2 & "" "" & B2"          ' Fill D2:D6 with a formula(=RAND()*100000) and apply format.      Set oRng = oSheet.Range("D2", "D6")      oRng.Formula = "=RAND()*100000"      oRng.NumberFormat = "$0.00"          ' AutoFit columns A:D.      Set oRng = oSheet.Range("A1", "D1")      oRng.EntireColumn.AutoFit          ' Manipulate a variable number of columns for Quarterly Sales Data.      Call DisplayQuarterlySales(oSheet)          ' Make sure Excel is visible and give the user control    ' of Microsoft Excel's lifetime.      oXL.Visible = True      oXL.UserControl = True          ' Make sure you release object references.      Set oRng = Nothing      Set oSheet = Nothing      Set oWB = Nothing      Set oXL = Nothing         Exit Sub   Err_Handler:      MsgBox Err.Description, vbCritical, "Error: " & Err.Number   End Sub      Private Sub DisplayQuarterlySales(oWS As Excel.Worksheet)      Dim oResizeRange As Excel.Range      Dim oChart As Excel.Chart      Dim iNumQtrs As Integer      Dim sMsg As String      Dim iRet As Integer          ' Determine how many quarters to display data for.      For iNumQtrs = 4 To 2 Step -1         sMsg = "Enter sales data for" & Str(iNumQtrs) & " quarter(s)?"         iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _            Or vbMsgBoxSetForeground, "Quarterly Sales")         If iRet = vbYes Then Exit For      Next iNumQtrs            sMsg = "Displaying data for" & Str(iNumQtrs) & " quarter(s)."      MsgBox sMsg, vbMsgBoxSetForeground, "Quarterly Sales"          ' Starting at E1, fill headers for the number of columns selected.      Set oResizeRange = oWS.Range("E1", "E1").Resize(ColumnSize:=iNumQtrs)      oResizeRange.Formula = "=""Q"" & COLUMN()-4 & CHAR(10) & ""Sales"""          ' Change the Orientation and WrapText properties for the headers.      oResizeRange.Orientation = 38      oResizeRange.WrapText = True          ' Fill the interior color of the headers.      oResizeRange.Interior.ColorIndex = 36          ' Fill the columns with a formula and apply a number format.      Set oResizeRange = oWS.Range("E2", "E6").Resize(ColumnSize:=iNumQtrs)      oResizeRange.Formula = "=RAND()*100"      oResizeRange.NumberFormat = "$0.00"          ' Apply borders to the Sales data and headers.      Set oResizeRange = oWS.Range("E1", "E6").Resize(ColumnSize:=iNumQtrs)      oResizeRange.Borders.Weight = xlThin          ' Add a Totals formula for the sales data and apply a border.      Set oResizeRange = oWS.Range("E8", "E8").Resize(ColumnSize:=iNumQtrs)      oResizeRange.Formula = "=SUM(E2:E6)"      With oResizeRange.Borders(xlEdgeBottom)         .LineStyle = xlDouble         .Weight = xlThick      End With          ' Add a Chart for the selected data      Set oResizeRange = oWS.Range("E2:E6").Resize(ColumnSize:=iNumQtrs)      Set oChart = oWS.Parent.Charts.Add      With oChart         .ChartWizard oResizeRange, xl3DColumn, , xlColumns         .SeriesCollection(1).XValues = oWS.Range("A2", "A6")            For iRet = 1 To iNumQtrs               .SeriesCollection(iRet).Name = "=""Q" & Str(iRet) & """"            Next iRet         .Location xlLocationAsObject, oWS.Name      End With          ' Move the chart so as not to cover your data.      With oWS.Shapes("Chart 1")         .Top = oWS.Rows(10).Top         .Left = oWS.Columns(2).Left      End With          ' Free any references.      Set oChart = Nothing      Set oResizeRange = Nothing      End Sub						
  6. Для запуска проекта нажмите клавишу F5.
Ссылки
Для получения дополнительных сведений об автоматизации Office обратитесь на веб-узел Microsoft Office Development Support: (c) Корпорация Майкрософт (Microsoft Corporation), 1999. Все права защищены. Статья подготовлена при участии Ричарда Р. Тейлора (Richard R. Taylor), корпорация Microsoft.

Свойства

Номер статьи: 219151 — последний просмотр: 01/17/2007 07:13:31 — редакция: 3.2

  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 6.0 Enterprise Edition
  • Microsoft Office XP Developer Edition
  • Microsoft Office 2000 Developer Edition
  • kbautomation kbhowto KB219151
Отзывы и предложения