Pasar información a Excel

[emont]

Este tema es algo que se ha tratado en algunas ocasiones, sin embargo, ha sido poca la información acerca de como pasar información desde una consulta de una base de datos con ASP a Excel de una forma simple y con formato, agradezco la ayuda que me puedan brindar.

[skatomundo]

Espero la comprendas (sin complejidades):

Salu2

<%

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
%>

[orharo2003]

<% Response.ContentType = "application/vnd.ms-excel" %>

[skatomundo]

Iniciado por emont

Este tema es algo que se ha tratado en algunas ocasiones, sin embargo, ha sido poca la información acerca de como pasar información desde una consulta de una base de datos con ASP a Excel de una forma simple y con formato, agradezco la ayuda que me puedan brindar.

lo entendi creo la anterior respuesta es solo obtener una pantalla de los datos mostrados en la pagina WEB. yo utilizo y genero de la primera manera mencionada que puedes directamente desde una consulta a tu BD extraer los datos..

salu2