13/12/2007, 07:52
|
| | | Fecha de Ingreso: diciembre-2006 Ubicación: Republica Dominicana
Mensajes: 129
Antigüedad: 18 años, 2 meses Puntos: 0 | |
| Re: Exportar a Excel
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>") |