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

174 - Exportar un DbGrid a Excel

Ejemplo que exporta el contenido de un control DbGrid, que está enlazado a un control Data, a una hoja especifica de un libro de Excel

En el código ha y una función llamada Exportar_DbGrid_Excel que tiene 2 parámetros, el primero es el nombre de la Hoja, y el segundo el control Data que está enganchado al control DbGrid

Para el ejemplo colocar

un control Data llamado Data1
un control DbGrid llamado DbGrid1.
También un command1 para exportar los datos

vista del ejemplo en visual basic para exportar el DbGrid a la hoja de Excel

Nota: el control Data debe tener especificado en la propiedad DataBaseName el nombre de la base de datos y en la propiedad Recordsource el nombre de la Tabla. El DbGrid en la propiedad DataSource debe tener especificado el control Data.

Código fuente en un Formulario:

'******************************************** Private Sub Command1_Click() ' Para el Path de la base de datos Dim Path As String ' Para la consulta sQL Dim Consulta As String 'Path de la base de datos: Cambiar Path = "C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB" 'Cadena Sql : Cambiar Consulta = "Select * From Authors" '********************************************** 'Se le envía el Path de la base de datos, _ la consulta sql y el nombre de la hoja del Lisbor de Excel Call Exportar_DbGrid_Excel("Hoja1", Data1) End Sub 'Función que exporta el DbGrid a la hoja de Excel ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Exportar_DbGrid_Excel( _ NameHoja As String, _ Control_Data As Data) As Boolean On Error GoTo errSub 'Variables para manejar el Excel Dim oXls As Object, oLibro As Object, Hoja As Object 'Matriz para los registros Dim recArreglo As Variant Dim i_Field As Integer, iRec As Long Dim Columna As Integer, Fila As Integer 'Crea los objetos para utilizar el Excel Set oXls = CreateObject("Excel.Application") Set oLibro = oXls.Workbooks.Add 'Hace referencia a la hoja de Excel indicada Set Hoja = oLibro.Worksheets(NameHoja) 'Colocamos la aplicación Invisible oXls.Visible = True: oXls.UserControl = True 'cantidad de campos i_Field = Control_Data.Recordset.Fields.Count For Columna = 1 To i_Field Hoja.Cells(1, Columna).Value = Control_Data.Recordset.Fields(Columna - 1).Name Next If Val(Mid(oXls.Version, 1, InStr(1, oXls.Version, ".") - 1)) > 8 Then Hoja.Cells(2, 1).CopyFromRecordset Control_Data.Recordset Else 'Obtiene todos los registros en el array recArreglo = Control_Data.Recordset.GetRows(Control_Data.Recordset.RecordCount) iRec = UBound(recArreglo, 2) + 1 For Columna = 0 To i_Field - 1 For Fila = 0 To iRec - 1 If IsDate(recArreglo(Columna, Fila)) Then recArreglo(Columna, Fila) = Format(recArreglo(Columna, Fila)) ElseIf IsArray(recArreglo(Columna, Fila)) Then recArreglo(Columna, Fila) = "Array Field" End If Next Fila Next Columna 'traspasa los datos a la hoja Hoja.Cells(2, 1).Resize(iRec, i_Field).Value = Pasar(recArreglo) End If oXls.Selection.CurrentRegion.Columns.AutoFit oXls.Selection.CurrentRegion.Rows.AutoFit 'Elimina las referencias del Excel Set Hoja = Nothing Set oLibro = Nothing Set oXls = Nothing ' Se exporto con éxito Exportar_DbGrid_Excel = True Exit Function 'Error errSub: MsgBox Err.Description, vbCritical, "Error" Exportar_DbGrid_Excel = False End Function Private Function Pasar(v As Variant) As Variant Dim x As Long, y As Long, xMax As Long, yMax As Long, T As Variant xMax = UBound(v, 2): yMax = UBound(v, 1) ReDim T(xMax, yMax) For x = 0 To xMax For y = 0 To yMax T(x, y) = v(y, x) Next y Next x Pasar = T End Function Private Sub Form_Load() Command1.Caption = " Exportar DBgrid a Excel " Me.Caption = " Ejemplo para exportar el contenido de un DbGrid a un libro de Excel " End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Recursos Visual basic.net - Enlaces relacionados

Leer libro de Excel en vb.net mediante OLEDB

Buscar en Recursos vb