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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

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.

Colocar un Libro vacío de Excel llamado Libro1.xls

Por último agregar un Command1 que será el que ejecuta la función llamada Exportar_DataGrid. 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.

Nota: En el ejemplo se exportan todas las filas, indicando la propiedad AproxCount que devuelve dicho número.

Código fuente del formulario:

'*************************************************************************** '* Controles : Un Datagrid, un CommandButton y la referencia a ADO '*************************************************************************** '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 Private Sub exportar_Datagrid(Datagrid As Datagrid, n_Filas As Long) On Error GoTo ErrSub Dim i As Integer, j As Integer If n_Filas = 0 Then MsgBox "No hay datos para exportar a excel": Exit Sub Else Set Obj_Excel = CreateObject("Excel.Application") Set Obj_Libro = Obj_Excel.Workbooks.Add(App.Path & "\libro1.xls") 'Ponemos la aplicación excel visible Obj_Excel.Visible = True 'Hoja activa Set Obj_Hoja = Obj_Excel.ActiveSheet ' Recorre el Datagrid iCol = 0 For i = 0 To Datagrid.Columns.Count - 1 If Datagrid.Columns(i).Visible Then iCol = iCol + 1 'Caption de la columna Obj_Hoja.Cells(1, iCol) = Datagrid.Columns(i).Caption For j = 0 To n_Filas - 1 'asigna el valor a la celda del Excel Obj_Hoja.Cells(j + 2, iCol) = _ Datagrid.Columns(i).CellValue(Datagrid.GetBookmark(j)) Next End If Next 'Opcional : colocamos en negrita y de color rojo los enbezados en la hoja Obj_Hoja.Rows(1).Font.Bold = True Obj_Hoja.Rows(1).Font.Color = vbRed 'Autoajustamos Obj_Hoja.Columns("A:Z").AutoFit End If 'Eliminamos las variables de objeto excel Set Obj_Hoja = Nothing Set Obj_Libro = Nothing Set Obj_Excel = Nothing Exit Sub 'Error ErrSub: MsgBox Err.Description, vbCritical On Error Resume Next Set Obj_Hoja = Nothing Set Obj_Libro = Nothing Set Obj_Excel = Nothing End Sub 'Ejecutamos la función que exporta los datos del datagrid a excel Private Sub Command1_Click() Call exportar_Datagrid(DataGrid1, DataGrid1.ApproxCount) End Sub Private Sub Form_Load() 'Creamos un nuevo objeto conexión Set cnn = New Connection 'Abrimos la base de datos. ( Cambiar la ruta ) cnn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bd1.mdb" 'Creamos un nuevo objeto Recordset Set rs = New Recordset 'Llenamos el recordset ( ESPECIFICAR LA CONSULTA SQL ) rs.Open "Select * From tabla1", cnn, adOpenStatic, adLockOptimistic 'Llenemos el datagrid con el recordset anterior Set DataGrid1.DataSource = rs 'Eliminamos la variable Set cnn = Nothing Command1.Caption = " Exportar datagrid a Excel " End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next rs.Close cnn.Close Set rs = Nothing Set cnn = Nothing End Sub

Buscar en Recursos vb