如何使用 Visual Basic 嵌入和自动执行 Office 文档

2023-10-17
适用于: Microsoft Office

摘要

开发在 Office 文档中使用数据的应用程序时，将数据直接显示在 Visual Basic 应用程序中可能是有益的，这样用户就可以查看和编辑数据，而无需切换到 Office 应用程序。可以使用 OLE 容器控件在 Visual Basic 中完成此操作。

本文演示如何使用 OLE 容器控件动态创建和自动化 Office 文档。

更多信息

Microsoft 的对象链接和嵌入 (OLE) 技术可以将 Office 文档插入到 Visual Basic 中。 OLE 旨在让一个应用程序以方便最终用户的方式托管属于另一个应用程序的对象，但不需要所涉及的应用程序知道另一个应用程序的内部详细信息。 Visual Basic 提供 OLE 容器控件，让 Visual Basic 程序员将 OLE 对象添加到窗体。

嵌入对象后，大多数 OLE 服务器都支持自动化，以允许主机应用程序以编程方式更改或操作代码中的对象。若要获取对自动化对象的引用，请使用 OLE 容器的 Object 属性。此属性返回与嵌入的特定项密切相关的 Automation 对象。

创建承载 Excel 工作簿的 Visual Basic 应用程序

启动 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 对象。 “打开”按钮允许你打开以前保存的文件的副本。

创建承载 Word 文档的 Visual Basic 应用程序

启动 Visual Basic 并创建新的标准项目。默认情况下会创建 Form1。
在控件工具箱中，将三个命令按钮添加到 Form1。然后添加 OLE 容器控件的实例。在窗体上放置 OLE 容器控件时，它会提示你输入要插入的对象的类型。对于此示例，我们需要动态添加对象，因此单击“取消”以消除对话框，而无需添加对象。