Resuelva el problema de que ASP exporte los resultados de la consulta al número de identificación en Excel
Autor：Eve Cole
Fecha de actualización：2009-06-23 17:01:06
Recientemente, al usar ASP para exportar los resultados de la consulta de la base de datos de acceso a un archivo de Excel, ocurrió un problema porque un campo es el número de identificación. En el archivo de Excel exportado, los últimos tres dígitos de todos los números de identificación se convirtieron en 0. ¡Qué deprimente! Después de verificar en línea, descubrí que el formato numérico predeterminado de Excel es "normal", que normalmente solo puede mostrar los 11 dígitos ingresados. Si el número excede los 11 dígitos, se mostrará en notación científica.
Para resolver este problema, solo puedo marcar los datos de la consulta como datos de texto. Lo siguiente es parte del código:
<%
'Exportar para sobresalir
establecer rs = server.createobject("adodb.recordset")
sqlstr="seleccione * del nombre de la pestaña donde"&searhsql 'declaración de consulta
rs.open sqlstr,oconn,1,3
%>
<%set fs = server.createobject("script_ing.filesystemobject")
'Guardar archivos
nombre de archivo="info.xls"
temp=nombre de archivo
nombre de archivo=request.servervariables("appl_physical_path")&"\"+nombre de archivo
'Eliminar archivos de Excel existentes
'si fs.fileexists(nombre de archivo) entonces
'fs.deletefile(nombre de archivo)
'terminar si
'-Crear archivo excel
establecer miarchivo = fs.createtextfile(nombre de archivo,verdadero)
línea tenue, cadena de respuesta
línea de cadena=""
para cada x en rs.fields
líneacadena= líneacadena & x.nombre & chr(9)
próximo
'Escribe primero los nombres de las columnas de la tabla para sobresalir
myfile.writeline línea de cadena
mientras no rs.eof
línea de cadena=""
para cada x en rs.fields
'Aquí los datos están marcados como tipo de texto
línea de cadena = línea de cadena & "="""&x.value &""""& chr(9)
próximo
'Escribir datos de la tabla para sobresalir
myfile.writeline línea de cadena
rs.movenext
encaminarse a
link="<a href=\" & temp & " title=Guardar datos en tabla eecel><font color=red><b>Exportar archivo Excel</b></font></a> "
respuesta.escribir enlace
establecer mi archivo = nada
establecer fs = nada
rs.cerrar
%>
Descarga de código fuente de ejemplo: http://code.knowsky.com/down/12254.html
