Foros del Web » Programando para Internet » ASP Clásico »

busqueda que aparezca en EXCEL

Estas en el tema de busqueda que aparezca en EXCEL en el foro de ASP Clásico en Foros del Web. Holas, como puedo hacer para hacer una consulta con ASP pero que los resultados se muestren en un EXCEL???...
  #1 (permalink)  
Antiguo 01/07/2004, 17:53
 
Fecha de Ingreso: enero-2002
Ubicación: Callao - Perú
Mensajes: 1.127
Antigüedad: 22 años, 5 meses
Puntos: 0
Exclamación busqueda que aparezca en EXCEL

Holas, como puedo hacer para hacer una consulta con ASP pero que los resultados se muestren en un EXCEL???
__________________
SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO
  #2 (permalink)  
Antiguo 07/07/2004, 00:55
Avatar de angel_dope  
Fecha de Ingreso: noviembre-2002
Ubicación: Valencia
Mensajes: 737
Antigüedad: 21 años, 6 meses
Puntos: 8
Primero creas el recordset (en mi caso se llama empresas, pero he omitido esa parte del código) y haces la búsqueda, y después haces esto:

Código PHP:
' Se crean las variables a utilizar (PathXXX corresponde a la ruta
del archivo de tipo XXX que utilizaremos).
PathXLS        Server.MapPath("./exportacion/Listado_telefono.xls")
FinLinea       ""

' Creo los objetos que utilizaremos, serán de los tipos FSO, TextStream y Connection
If not empresas.eof then
Set fso        = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
'
Set oConn      Server.CreateObject("ADODB.Connection")


' Recorro todo el recordset recuperando sus valores y escribiéndolos en el archivo Excel
If not empresas.bof or not empresas.eof then empresas.MoveFirst
'
En la primera linea escribimos los nombres de los campos para que quede más bonito :P
encabezado 
"Cluster" chr(9) &"Cuenta" 
Arch_Excel.writeline encabezado
Do while Not empresas.EOF
    FinLinea 
""
    
For each x in empresas.fields
        FinLinea 
FinLinea x.value chr(9)
    
Next
    Arch_Excel
.writeline FinLinea
empresas
.MoveNext
Loop



 Cierro y destruyo todos los objetos utilizados para liberar memoria del servidor
Arch_Excel
.Close
Set Arch_Excel 
Nothing
Set fso        
Nothing
end 
if
%>
<
html>
<
head>
<
title>Untitled Document</title>
<
meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</
head>
<
body bgcolor="#0099CC" text="#000000">
<%
enlace "./exportacion/Listado_telefono.xls"%>
<
p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF"><b>El 
  listado se ha generado correctamente en una hoja Excel
.</b></font></p>
<
p><font color="#FFFFFF"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="<%=enlace%>">Descargar 
  archivo Excel Generado
</a></font></b></font></p>
<
p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FFFFFF">(NOTA
  
Para descargar el archivo debe pulsar el enlace con el boton derecho y seleccionar 
  
&quot;Guardar Como&quot;)</font></b></font></p>
</
body>
</
html>
<%
Empresas.Close()
%> 
__________________
Vayamos por Partes :: Jack el Destripador

Última edición por angel_dope; 07/07/2004 a las 00:57
  #3 (permalink)  
Antiguo 07/07/2004, 17:01
Avatar de skatomundo  
Fecha de Ingreso: junio-2002
Ubicación: Santiago - CL
Mensajes: 2.532
Antigüedad: 22 años
Puntos: 125
si eso es lo que hay que hacer pa levantar lo que quieras desde tu BD a Excel, me parece conocida..jajajajja


Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:21.