Visual Net
Excel expone esta función de programación por medio de un modelo de objetos. El modelo de objetos es un conjunto de clases y métodos que actúan como equivalentes de los componentes lógicos de Excel. Por ejemplo, hay un objeto Aplicación, un objeto Libro y un objeto Hoja de cálculo, cada uno de los cuales incluyela funcionalidad de estos componentes de Excel. Para consultar el modelo de objetos desde Visual Basic .NET, puede establecer una referencia al proyecto en la biblioteca de tipos.
Este artículo muestra cómo establecer la referencia al proyecto apropiada en la biblioteca de tipos de Excel para Visual Basic .NET y proporciona el código de ejemplo para automatizar Excel.
Cree un cliente deautomatización para Microsoft Excel
1.Inicie Microsoft Visual Studio .NET.
2.En el menú Archivo, haga clic en Nuevo y, después, en Proyecto. Seleccione Aplicación para Windows en los tipos de proyecto de Visual Basic. De forma predeterminada, se crea Form1.
3.Agregue una referencia a la Biblioteca de objetos de Microsoft Excel. Para ello, siga estos pasos:
•En el menú Proyecto, haga clic enAgregar referencia.
•En la ficha COM, busque la Biblioteca de objetos de Microsoft Excel y, a continuación, haga clic en Seleccionar.
Nota
Microsoft Office 2003 incluye Primary Interop Assemblies (PIA). Microsoft Office XP no incluye PIA, pero se pueden descargar. Para obtener información adicional acerca de los PIA de Office XP, haga clic en el siguiente número de artículo para verlo enMicrosoft Knowledge Base:
328912 (http://support.microsoft.com/kb/328912/ ) Hay disponibles ensamblados de interoperabilidad primarios (PIA) de Microsoft Office XP para descargar
•Haga clic en Aceptar en el cuadro de diálogo Agregar referencia para aceptar sus selecciones.
4.En el menú Ver, haga clic en Cuadro de herramientas para mostrar el cuadro de herramientas y, a continuación, agregue unbotón a Form1.
5.Haga doble clic en Button1. Aparecerá la ventana de código del formulario.
6.En la ventana de código, localice el siguiente código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
-------------------------------------------------Reemplace el código anterior por el siguiente:
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
' Iniciar Excel yobtener el objeto Aplicación.
oXL = CreateObject ("Excel.Application") oXL.Visible = Verdadero
' Obtener un nuevo libro.
oWB = oSheet de oXL.Workbooks.Add = oWB.ActiveSheet
' Agregar encabezados de tabla celda a celda.
oSheet.Cells (1, 1) .Value = "Nombre" oSheet.Cells (1, 2) .Value= "Apellido" oSheet.Cells (1, 3) .Value = "Nombre Completo" oSheet.Cells (1, 4) .Value = "Sueldo"
' Dar formato a A1:D1 con letra en negrita, alineación vertical = centro.
With oSheet.Range ("A1", "D1")
.Font .Bold = verdadero
.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
End With...
Regístrate para leer el documento completo.