Exportar datos a Excel

0
21

Descargar Ejemplo ExportarDatosExcel.zip

En nuestras aplicaciones necesitaremos en algun momento exportar datos que tengamos en pantalla a reportes en Excel, aqui te mostraré como hacer esto.

El primer paso sera tener los datos en el objeto que queramos DataGrid, DataSet o DataTable para luego solo invocando una funciones exportar estos datos el Excel.

Vamos a crear un form con un DataGrid para mostrar los datos.

Para efectos del ejemplo vamos a llenar el DataGrid con estos datos

Dim dt As New DataTable
Dim dr As DataRow

dt.Columns.Add(New DataColumn(“Codigo”, GetType(String)))
dt.Columns.Add(New DataColumn(“Descripcion”, GetType(String)))
dt.Columns.Add(New DataColumn(“Valor”, GetType(Integer)))

dr = dt.NewRow()
dr(“Codigo”) = “A”
dr(“Descripcion”) = “Activo”
dr(“Valor”) = 1
dt.Rows.Add(dr)

dr = dt.NewRow()
dr(“Codigo”) = “I”
dr(“Descripcion”) = “Inactivo”
dr(“Valor”) = 2
dt.Rows.Add(dr)

dr = dt.NewRow()
dr(“Codigo”) = “B”
dr(“Descripcion”) = “Bloqueado”
dr(“Valor”) = 3
dt.Rows.Add(dr)

Me.dgDatos.DataSource = dt

Ahora, como enviar estos datos el Excel y tener un resultado como el siguiente?

Las funciones que vamos a utilizar para exportar a Excel son las siguientes:

Public Sub DataTableToExcel(ByVal pDataTable As DataTable)

Dim vFileName As String = Path.GetTempFileName()

FileOpen(1, vFileName, OpenMode.Output)

Dim sb As String
Dim dc As DataColumn
For Each dc In pDataTable.Columns
sb &= dc.Caption & Microsoft.VisualBasic.ControlChars.Tab
Next
PrintLine(1, sb)

Dim i As Integer = 0
Dim dr As DataRow
For Each dr In pDataTable.Rows
i = 0 : sb = “”
For Each dc In pDataTable.Columns
If Not IsDBNull(dr(i)) Then
sb &= CStr(dr(i)) & Microsoft.VisualBasic.ControlChars.Tab
Else
sb &= Microsoft.VisualBasic.ControlChars.Tab
End If
i += 1
Next

PrintLine(1, sb)
Next

FileClose(1)
TextToExcel(vFileName)

End Sub

Public Sub TextToExcel(ByVal pFileName As String)

Dim vFormato As Excel.XlRangeAutoFormat

Dim vCultura As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture

'Es importante definirle la cultura al sistema
'ya que podria generar errores
System.Threading.Thread.CurrentThread.CurrentCulture = _
System.Globalization.CultureInfo.CreateSpecificCulture(“en-US”)

Dim Exc As Excel.Application = New Excel.Application
Exc.Workbooks.OpenText(pFileName, , , , _
Excel.XlTextQualifier.xlTextQualifierNone, , True)

Dim Wb As Excel.Workbook = Exc.ActiveWorkbook
Dim Ws As Excel.Worksheet = Wb.ActiveSheet

vFormato = Excel.XlRangeAutoFormat.xlRangeAutoFormatSimple
'En el ejemplo vienen otros formatos posibles

Ws.Range(Ws.Cells(1, 1), _
Ws.Cells(Ws.UsedRange.Rows.Count, _
Ws.UsedRange.Columns.Count)).AutoFormat(vFormato)

pFileName = Path.GetTempFileName.Replace(“tmp”, “xls”)
File.Delete(pFileName)

Exc.ActiveWorkbook.SaveAs(pFileName, _
Excel.XlTextQualifier.xlTextQualifierNone – 1)

Exc.Quit()

Ws = Nothing
Wb = Nothing
Exc = Nothing

GC.Collect()
If valor > -1 Then
Dim p As System.Diagnostics.Process = New System.Diagnostics.Process
p.EnableRaisingEvents = False
p.Start(“Excel.exe”, pFileName)
End If
System.Threading.Thread.CurrentThread.CurrentCulture = vCultura
End Sub

Una ves definidos estas funciones solamente nos queda invocarlas para que los datos se reflejen en el Excel.

Si el objeto que tenemos en el DataGrid es un DataTable:

DataTableToExcel(CType(Me.dgDatos.DataSource, DataTable))

Si el objeto que tenemos en el DataGrid es un DataSet:

Dim dt As New DataTable
dt = CType(Me.dgDatos.DataSource, DataSet).Tables(0)
DataTableToExcel(dt)

La funcion DataTableToExcel como su nombre lo indica lo que recibe es un DataTable, asi que hay que tenerlo en cuenta.

Este código fuente es el que recomienda Microsoft para exportar sus datos a Excel, y es importante saber que funciona con Office XP o superior.

Descargar Ejemplo ExportarDatosExcel.zip

Referencias en Microsoft MSDN
DataTable Object [Excel 2003 VBA Language Reference]
DataTable Property [Excel 2003 VBA Language Reference]
A Primer to the Office XP Primary Interop Assemblies

Descargar Ejemplo ExportarDatosExcel.zip

Dejar respuesta

Please enter your comment!
Please enter your name here