Excel en Asp.Net

Muchos de nosotros nos preguntamos en alguna Ocasión ¿Cómo construyo un objeto Excel de manera decente no como un HTML.xls?

Bueno esto lo logramos con una Liberia llamada JXL.DLL, que genera de manera binaria (no me pregunten como) pero funciona de las mil maravillas.



El siguiente Ejemplo Crea un Excel de manera Sencilla:

Después de Hacer referencia a la DLL, importamos:

Imports jxl
Imports jxl.write
Imports jxl.read


'Luego Creamos el Archivo xls:

Dim File As IO.FileStream = New IO.FileStream(Server.MapPath("Doctos/" & FileName), IO.FileMode.OpenOrCreate)

'Luego Seteamos la variable del Libro
Dim WBS As New WorkbookSettings

'Luego Seteamos la variable de escritura del Libro
Dim ObjWB As WritableWorkbook
'Creamos el libro y la Hoja y la posición dentro del archivo
ObjWB = Workbook.createWorkbook(File)
Dim objS As WritableSheet = ObjWB.createSheet("Hoja1", 0)

'Seteamos la Fuente de las Celdas
Dim boldRedFont As New WritableFont(WritableFont.ARIAL, 10, WritableFont.BOLD)
Dim boldRed As New WritableCellFormat(boldRedFont)

'Asignamos los Campos
Dim Campos() As String = Split("CODIGO,OBJETIVO", ",")

Dim Col As Integer = 0
Dim Row As Integer = 1

' Se crea las Celdas
For x As Integer = 0 To Campos.Length - 1
objS.addCell(New Label(Col, Row, Campos(x), boldRed))
Col += 1
Next

'cerramos el libro y el archivo
ObjWB.write()
ObjWB.close()
File.Close()

Espero les Sirva esta información que en su momento fue útil para Mí...

Regards.