Inserción y automatización de documentos de Office con Visual Basic

2023-10-17
Se aplica a: Microsoft Office

Resumen

Al desarrollar una aplicación que usa datos en un documento de Office, puede ser beneficioso que esos datos se presenten directamente en la aplicación de Visual Basic para que el usuario pueda ver y editar los datos sin tener que cambiar a la aplicación de Office. Puede hacerlo en Visual Basic mediante el control contenedor OLE.

En este artículo se muestra cómo crear y automatizar dinámicamente un documento de Office mediante ole container control.

Más información

La capacidad de insertar un documento de Office en Visual Basic es posible gracias a la tecnología OLE (Object Linking and Embedding) de Microsoft. OLE está diseñado para permitir que una aplicación hospede un objeto que pertenece a otra aplicación de forma que sea conveniente para el usuario final, pero no requiere que las aplicaciones implicadas conozcan los detalles internos de la otra. Visual Basic proporciona el control contenedor OLE para permitir que los programadores de Visual Basic agreguen objetos OLE a un formulario.

Una vez incrustado el objeto, la mayoría de los servidores OLE admiten Automation para permitir que la aplicación host cambie o manipule mediante programación el objeto desde el código. Para obtener una referencia al objeto Automation, use la propiedad Object del contenedor OLE. Esta propiedad devuelve el objeto Automation que coincide estrechamente con el elemento determinado incrustado.

Creación de una aplicación de Visual Basic que hospede un libro de Excel

Inicie Visual Basic y cree un nuevo proyecto estándar. Form1 se crea de forma predeterminada.
En el cuadro de herramientas de controles, agregue tres botones de comando a Form1. A continuación, agregue una instancia del control Contenedor OLE. Cuando el control Contenedor OLE se coloca en el formulario, le pide el tipo de objeto que desea insertar. Para este ejemplo, debe agregar el objeto dinámicamente, por lo que haga clic en Cancelar para descartar el cuadro de diálogo sin agregar un objeto.

En la ventana Código de Form1, agregue el código siguiente:

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

Presione la tecla F5 para ejecutar el programa. Haga clic en el botón Crear. Esto inserta una nueva hoja de cálculo y automatiza Excel para agregar datos directamente a la hoja. Tenga en cuenta que si hace doble clic en el objeto, se activa localmente y el usuario puede editar los datos directamente. Ahora haga clic en Guardar para guardar los datos en un archivo y cerrar el objeto OLE. El botón Abrir le permite abrir una copia de un archivo guardado anteriormente.

Creación de una aplicación de Visual Basic que hospede un documento de Word

Inicie Visual Basic y cree un nuevo proyecto estándar. Form1 se crea de forma predeterminada.
En el cuadro de herramientas de controles, agregue tres botones de comando a Form1. A continuación, agregue una instancia del control Contenedor OLE. Cuando el control Contenedor OLE se coloca en el formulario, le pide el tipo de objeto que desea insertar. Para este ejemplo, es necesario agregar el objeto dinámicamente, por lo que haga clic en Cancelar para descartar el cuadro de diálogo sin agregar un objeto.