Se puede o no, exportar una tabla de asp a Excel!!!

[lircim]

Ke tal.. Retomando el Post que ya habian publicado mas abajo..

Se puede o no exportar una tabla a excel?

Tan simple pueder ser la respuesta... o un si como o un no.

graciasss

[Prefontaine]

Si, y te respondería solo si lo que pasa que me dice que es muy corto jeje

[univercity]

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

Ve si te sirve...

[skatomundo]

Código:

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

doc = "archivo.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
%>

<a href="<% =PathXLS %>">Guardar Excel</a>