Exportar a Excel

Irving_24 · #1 (**permalink**) 11/12/2007, 12:53

Hola a todos buenas tardes.

Alguien sabe como exportar datos a un archivo en excel?? No importa de que fuente, si de un dataSet, DataTable, eso lo podria arreglar, lo unico que quiero es saber con que clase puedo lograr lo anterior.

De antemano les agradeceria si me hecharan la mano.

Gracias

pioner · #2 (**permalink**) 13/12/2007, 07:52

Esto fue algo para salir rapido de la situación, por lo que es posible que exista algun otra solución. Espero te ayude.

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("Content-Disposition", "attachment; Filename=Reporte_SI05_" & Date.Today.ToShortDateString & ".xls")
Response.Write("<body>")
Response.Write("<Table>")
Dim TB AsNew Table
GenerarDatos() 'me carga los datos en un dataset llamado ConjuntoDatos
For i = 0 To ConjuntoDatos.Tables(0).Rows.Count - 1
Response.Write("<tr>")
Response.Write("<td>")
Response.Write((i + 1).ToString)
Response.Write("</td>")
For j = 0 To ConjuntoDatos.Tables(0).Columns.Count - 1
Response.Write("<td>")
Response.Write(ConjuntoDatos.Tables(0).Rows(i).Ite m(j).ToString)
Response.Write("</td>")
Next
Response.Write("</tr><br/>")
Next
Response.Write("</Table>")
Response.Write("</body>")
Response.Write("</html>")

Irving_24 · #3 (**permalink**) 14/12/2007, 02:01

Hola pioner

Precisamente solucione lo del export a excel de una manera casi igual a la que me propusiste.

De antemano te agradezco tu ayuda.

Saludos