Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/12/2007, 07:52
pioner
 
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>")