Внедрение и автоматизация документов Office с помощью Visual Basic

Статья
06/20/2023
Применяется к:

Microsoft Office

Аннотация

При разработке приложения, использующего данные в документе Office, может быть полезно, чтобы эти данные были представлены непосредственно в приложении Visual Basic, чтобы пользователь могли просматривать и редактировать данные без необходимости переключения на приложение Office. Это можно сделать в Visual Basic с помощью элемента управления контейнером OLE.

В этой статье показано, как динамически создавать и автоматизировать документ Office с помощью элемента управления контейнерами OLE.

Дополнительная информация

Возможность вставки документа Office в Visual Basic предоставляется технологией компоновки и внедрения объектов (OLE) корпорации Майкрософт. OLE позволяет одному приложению разместить объект, принадлежащий другому приложению, удобным для конечного пользователя способом, но не требует, чтобы участвующие в нем приложения знали внутренние сведения другого приложения. Visual Basic предоставляет элемент управления контейнером OLE, позволяющий программистам Visual Basic добавлять объекты OLE в форму.

После внедрения объекта большинство серверов OLE поддерживают автоматизацию, чтобы позволить хост-приложению программно изменять объект или управлять им из кода. Чтобы получить ссылку на объект службы автоматизации, используйте свойство Object контейнера OLE. Это свойство возвращает объект службы автоматизации, который тесно соответствует внедренному определенному элементу.

Создание приложения Visual Basic, в котором размещается книга Excel

Запустите Visual Basic и создайте новый стандартный проект. Form1 создается по умолчанию.
На панели элементов управления добавьте три кнопки команд в Form1. Затем добавьте экземпляр элемента управления контейнера OLE. Когда элемент управления "Контейнер OLE" помещается в форму, он запрашивает тип объекта, который нужно вставить. В этом примере необходимо динамически добавить объект, поэтому нажмите кнопку "Отмена", чтобы закрыть диалоговое окно без добавления объекта.

В окне кода для Form1 добавьте следующий код:

Option Explicit

Dim oBook As Object
Dim oSheet As Object

Private Sub Command1_Click()
   On Error GoTo Err_Handler

' Create a new Excel worksheet...
   OLE1.CreateEmbed vbNullString, "Excel.Sheet"

' Now, pre-fill it with some data you
 ' can use. The OLE.Object property returns a
 ' workbook object, and you can use Sheets(1)
 ' to get the first sheet.
   Dim arrData(1 To 5, 1 To 5) As Variant
   Dim i As Long, j As Long

Set oBook = OLE1.object
   Set oSheet = oBook.Sheets(1)

' It is much more efficient to use an array to
 ' pass data to Excel than to push data over
 ' cell-by-cell, so you can use an array.

' Add some column headers to the array...
   arrData(1, 2) = "April"
   arrData(1, 3) = "May"
   arrData(1, 4) = "June"
   arrData(1, 5) = "July"

' Add some row headers...
   arrData(2, 1) = "John"
   arrData(3, 1) = "Sally"
   arrData(4, 1) = "Charles"
   arrData(5, 1) = "Toni"

' Now add some data...
   For i = 2 To 5
      For j = 2 To 5
         arrData(i, j) = 350 + ((i + j) Mod 3)
      Next j
   Next i

' Assign the data to Excel...
   oSheet.Range("A3:E7").Value = arrData

oSheet.Cells(1, 1).Value = "Test Data"
   oSheet.Range("B9:E9").FormulaR1C1 = "=SUM(R[-5]C:R[-2]C)"

' Do some auto formatting...
   oSheet.Range("A1:E9").Select
   oBook.Application.Selection.AutoFormat

Command1.Enabled = False
   Command2.Enabled = False
   Command3.Enabled = True
   Exit Sub

Err_Handler:
   MsgBox "An error occurred: " & Err.Description, vbCritical
End Sub

Private Sub Command2_Click()
   On Error GoTo Err_Handler

' Create an embedded object using the data
 ' stored in Test.xls.<?xm-insertion_mark_start author="v-thomr" time="20070327T040420-0600"?> If this code is run in Microsoft Office
 ' Excel 2007, <?xm-insertion_mark_end?><?xm-deletion_mark author="v-thomr" time="20070327T040345-0600" data=".."?><?xm-insertion_mark_start author="v-thomr" time="20070327T040422-0600"?>change the file name to Test.xlsx.<?xm-insertion_mark_end?>
   OLE1.CreateEmbed "C:\Test.xls"

Command1.Enabled = False
   Command2.Enabled = False
   Command3.Enabled = True
   Exit Sub

Err_Handler:
   MsgBox "The file 'C:\Test.xls' does not exist" & _
          " or cannot be opened.", vbCritical
End Sub

Private Sub Command3_Click()
   On Error Resume Next

' Delete the existing test file (if any)...
   Kill "C:\Test.xls"

' Save the file as a native XLS file...
   oBook.SaveAs "C:\Test.xls"
   Set oBook = Nothing
   Set oSheet = Nothing

' Close the OLE object and remove it...
   OLE1.Close
   OLE1.Delete

Command1.Enabled = True
   Command2.Enabled = True
   Command3.Enabled = False
End Sub

Private Sub Form_Load()
   Command1.Caption = "Create"
   Command2.Caption = "Open"
   Command3.Caption = "Save"
   Command3.Enabled = False
End Sub

Нажмите клавишу F5, чтобы запустить программу. Нажмите кнопку Создать. Это внедряет новый лист и автоматизирует Excel для добавления данных непосредственно на лист. Обратите внимание, что если дважды щелкнуть объект, он активируется на месте и пользователь может редактировать данные напрямую. Теперь нажмите кнопку "Сохранить", чтобы сохранить данные в файл и закрыть объект OLE. Кнопка "Открыть" позволяет открыть копию ранее сохраненного файла.

Создание приложения Visual Basic, в котором размещается документ Word

Запустите Visual Basic и создайте новый стандартный проект. Form1 создается по умолчанию.
На панели элементов управления добавьте три кнопки команд в Form1. Затем добавьте экземпляр элемента управления контейнера OLE. Когда элемент управления "Контейнер OLE" помещается в форму, он запрашивает тип объекта, который нужно вставить. В этом примере необходимо динамически добавить объект, поэтому нажмите кнопку "Отмена", чтобы закрыть диалоговое окно без добавления объекта.