Sección de códigos , trucos y ejemplos para visual basic

109 - Ejemplo para exportar un Datagrid a Excel

El siguiente ejemplo muestra como exportar el contenido de un datagrid completo a una hoja de excel

Formulario con el Datagrid a exportar

vista del ejemplo para exportar un datagrid a microsoft excel

Para realizar el ejemplo colocar en un formulario un control Datagrid llamado Datagrid1.

Luego desde el menú referencias marcar Activex Data Object para poder usar ADO

Crear una base de datos Access llamada bd1.mdb. Dentro de esta crear una tabla llamada Tabla1 con algunos campos y registros. La base de datos debe estar en la carpeta donde está el proyecto de vb.

Importante: Por defecto se exporta a un nuevo libro de Excel. Si se desea exportar a uno existente, colocar la ruta del libro en el parámetro Open del objeto Workbooks, por ejemplo

Set Obj_Libro = Obj_Excel.Workbooks.Open(La ruta )

Por último agregar un botón que será el que ejecuta la función llamada Exportar_DataGrid. A esta función se le debe enviar como parámetro el control Datagrid y un segundo parámetro que especifica la cantidad de filas a exportar. Por defecto se exportan todas las filas, indicando la propiedad AproxCount que devuelve dicho número.

Nota. Este ejemplo ha sido probado con Microsoft Access 2000 y Excel 2000.

Código fuente del formulario:

' ----------------------------------------------------------------------------------------- ' \\ -- Descripción : Exportar DataGrid a Excel ' \\ -- Controles : Un Datagrid, un CommandButton y la referencia a ADO ' \\ -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' ----------------------------------------------------------------------------------------- ' -- Variables para la base de datos Dim cnn As Connection Dim rs As Recordset ' -- Variables para Excel Dim Obj_Excel As Object Dim Obj_Libro As Object Dim Obj_Hoja As Object ' ----------------------------------------------------------------------------------------- ' \\ -- Sub para exportar ' ----------------------------------------------------------------------------------------- Private Sub exportar_Datagrid(Datagrid As Datagrid, n_Filas As Long) On Error GoTo Error_Handler Dim i As Integer Dim j As Integer ' -- Colocar el cursor de espera mientras se exportan los datos Me.MousePointer = vbHourglass If n_Filas = 0 Then MsgBox "No hay datos para exportar a excel. Se ha indicado 0 en el parámetro Filas ": Exit Sub Else ' -- Crear nueva instancia de Excel Set Obj_Excel = CreateObject("Excel.Application") ' -- Agregar nuevo libro Set Obj_Libro = Obj_Excel.Workbooks.Open(Path) ' -- Referencia a la Hoja activa ( la que añade por defecto Excel ) Set Obj_Hoja = Obj_Excel.ActiveSheet iCol = 0 ' -- Recorrer el Datagrid ( Las columnas ) For i = 0 To Datagrid.Columns.Count - 1 If Datagrid.Columns(i).Visible Then ' -- Incrementar índice de columna iCol = iCol + 1 ' -- Obtener el caption de la columna Obj_Hoja.Cells(1, iCol) = Datagrid.Columns(i).Caption ' -- Recorrer las filas For j = 0 To n_Filas - 1 ' -- Asignar el valor a la celda del Excel Obj_Hoja.Cells(j + 2, iCol) = _ Datagrid.Columns(i).CellValue(Datagrid.GetBookmark(j)) Next End If Next ' -- Hacer excel visible Obj_Excel.Visible = True ' -- Opcional : colocar en negrita y de color rojo los enbezados en la hoja With Obj_Hoja .Rows(1).Font.Bold = True .Rows(1).Font.Color = vbRed ' -- Autoajustar las cabeceras .Columns("A:Z").AutoFit End With End If ' -- Eliminar las variables de objeto excel Set Obj_Hoja = Nothing Set Obj_Libro = Nothing Set Obj_Excel = Nothing ' -- Restaurar cursor Me.MousePointer = vbDefault Exit Sub ' -- Error Error_Handler: MsgBox Err.Description, vbCritical On Error Resume Next Set Obj_Hoja = Nothing Set Obj_Libro = Nothing Set Obj_Excel = Nothing Me.MousePointer = vbDefault End Sub ' ------------------------------------------------------------------------------- ' \\ -- Botón para Ejecutar la función que exporta los datos del datagrid a excel ' ------------------------------------------------------------------------------- Private Sub Command1_Click() Call exportar_Datagrid(DataGrid1, DataGrid1.ApproxCount) End Sub ' ------------------------------------------------------------------------------- ' \\ -- Inicio ' ------------------------------------------------------------------------------- Private Sub Form_Load() On Error GoTo Error_Handler ' -- Crear nueva conexión a la base de datos Set cnn = New Connection ' -- Abrir la base de datos. cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\bd1.mdb" ' -- Crear nuevo objeto Recordset Set rs = New Recordset ' -- Configurar recordset With rs .CursorLocation = adUseClient End With ' -- Cargar el recordset ( ESPECIFICAR LA CONSULTA SQL ) rs.Open "Select * From tabla1", cnn, adOpenStatic, adLockOptimistic ' -- Enlazar el datagrid con el recordset anterior Set DataGrid1.DataSource = rs Command1.Caption = " Exportar datagrid a Excel " ' -- Errores Exit Sub Error_Handler: MsgBox Err.Description, vbCritical, "Error en Form Load" End Sub ' ------------------------------------------------------------------------------- ' \\ -- Fin ' ------------------------------------------------------------------------------- Private Sub Form_Unload(Cancel As Integer) On Error Resume Next ' -- Cerrar y eliminar recordset If rs.State = adStateOpen Then rs.Close If Not rs Is Nothing Then Set rs = Nothing ' -- cerrar y Eliminar la conexión If cnn.State = adStateOpen Then cnn.Close Set cnn = Nothing End Sub

Buscar en Recursos vb