¿Cómo exportar datos de una página a EXCEL en ASP?
< cuerpo>
<%
dim rs,sql,filename,fs,myfile,objSpreadsheet , x
Establecer fs = servidor. CreateObject("scripting. filesystemobject")
': supongamos que desea que el archivo EXCEL generado se almacene de la siguiente manera
filename = Server.MapPath("online.xls")
'--Elimine el archivo EXCEL original si existe
si fs.FileExists(nombre de archivo) entonces
fs.DeleteFile(nombre de archivo)
end if
'Set objSpreadsheet = Server.CreateObject("OWC.Open sql,conn,1,1
si rs.EOF y rs.BOF entonces
else
dim strLine,responsestr
strLine=""
Para cada x en rs.fields
strLine = strLine & x.name & chr(9)
Siguiente
'--Escribe primero los nombres de las columnas de la tabla en EXCEL
myfile .writeline strLine
Hacer mientras no rs.EOF
strLine=""
para cada x en rs.Fields
strLine = strLine & x.value & chr (9)
next
'--Escribe los datos de la tabla en EXCEL
myfile.write strLine
rs.MoveNext p> p>
bucle
respuesta.Write("descargar ")
finalizar si
rs.Close
establecer rs = nada
%>