¿Como puedo exportar un reporte creado en una pagina asp a Excel.?

[renoxtian]

quisiera que los visitantes de mi pagina que ven un reporte asp generado desde sql puedan bajarlo pero en excel, como puedohacerlo??? gracias por su ayuda...

[Jackpat]

Hola

yo necesito hacer lo mismo ojala te respodan

[univercity]

http://www.asptutor.com/asp/vart.asp?id=56

[skatomundo]

Código:

<%
' Se crean las variables a utilizar (PathXXX corresponde a la ruta
' del archivo de tipo XXX que utilizaremos).

t = trim(request.querystring("n_sol"))
doc = "solicitud"&t&".xls"

PathXLS        = Server.MapPath(doc)
FinLinea       = ""

'Creo los objetos que utilizaremos, sern de los tipos FSO, TextStream y Connection
Set fso        = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
Set oConn      = Server.CreateObject("ADODB.Connection")

oConn.ConnectionTimeout = 15
oConn.CommandTimeout = 30
oConn.open "DSN=farmacia;UID=;PWD;"

Set rs = oConn.Execute("SELECT id_insumo, Nombre, solicitud, entregado, stock, tipo_i, costo FROM temp_solicitudes where n_solicitud = "&request.querystring("n_sol")&"")

dim rojo(7)
rojo(1)	= "Codigo"
rojo(2)	= "Nombre"
rojo(3)	= "Solictiud"
rojo(4)	= "Entregado"
rojo(5)	= "Stock"
rojo(6)	= "Tipo"
rojo(7)	= "Costo"

for i = 1 to 7
	fei = fei & rojo(i) & chr(9)
next
Arch_Excel.writeline fei

' Recorro todo el recordset recuperando sus valores y escribindolos en el archivo Excel
Do while Not rs.EOF
	FinLinea = ""
	For each x in rs.fields
		FinLinea = FinLinea & x.value & chr(9)
	Next
	Arch_Excel.writeline FinLinea
rs.MoveNext
Loop

rs.MoveFirst

'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<table border='1'>"
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(0).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(1).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(2).Name & "</th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(3).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(4).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(5).Name & "</font></th>" & vbCrLf
Response.Write "<th bgcolor='#c6dead' align='center'><font face='Verdana' size='1'>" & rs.Fields.Item(6).Name & "</font></th>" & vbCrLf


'Y por ltimo, el cuerpo de los datos
Do While Not rs.EOF
	Response.Write "<tr>" & vbCrLf
	Response.write "<td bgcolor='#ffffff'><font face='Verdana' size='1'>" & rs(0) & "</font></td>"
	Response.write "<td bgcolor='#ffffff'><font face='Verdana' size='1'>" & rs(1) & "</font></td>"
	Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(2) & "</font></td>"
	Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(3) & "</font></td>"
	Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(4) & "</font></td>"
	Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(5) & "</font></td>"
	Response.write "<td bgcolor='#ffffff' align='right'><font face='Verdana' size='1'>" & rs(6) & "</font></td>"
	Response.Write "</tr>" & vbCrLf
	rs.MoveNext
Loop
Response.Write "</table>"

' Cierro y destruyo todos los objetos utilizados para liberar memoria del servidor
Arch_Excel.Close
Set Arch_Excel = Nothing
Set fso        = Nothing
rs.Close
Set rs    = Nothing
oConn.Close
Set oConn = Nothing
%>

ojala lo comprendan.. estudienlo...salu2

[skatomundo]

Lo que haces aqui es pasar a EXCEL una secuencia o consulta SQL a un archivo XLS.
y esto:

<%
Response.buffer = true
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "filename=Informe cantidad Prestaciones Mensuales.xls;"
%>


obtiene una pantalla de tu IE a excel.

[Miris]

Hola yo he trabajado creando archivos de excel desde una pagina web, mi experiencia es bastante pero me he topado con muchos problemas por ejemplo si deseas poner encabezados en excel, así como funciones de excel de versiones actuales, debes estar seguro que quienes vean tus archivos mantengan esas versiones, de lo contrario debes programar pensando que todos tienen excel 97, el cual es muy limitado. Lo que ahora estoy viendo es generar archivos como pdf.