Resolva o problema de exportação de resultados da consulta ASP para o número de ID no Excel
Autor：Eve Cole
Data da Última Atualização：2009-06-23 17:01:06
Recentemente, ao usar o asp para exportar os resultados da consulta do banco de dados de acesso para um arquivo Excel, ocorreu um problema porque um campo é o número de ID. No arquivo Excel exportado, os últimos três dígitos de todos os números de ID tornaram-se 0! Que deprimente! Depois de verificar online, descobri que o formato numérico padrão do Excel é "normal", que normalmente só pode exibir a entrada de 11 dígitos. Se o número exceder 11 dígitos, ele será exibido em notação científica.
Para resolver este problema, só posso marcar os dados da consulta como dados de texto.
<%
'Exportar para Excel
definir rs = server.createobject("adodb.recordset")
sqlstr="select * from tabname where"&searhsql 'instrução de consulta
rs.open sqlstr,oconn,1,3
%>
<%set fs = server.createobject("script_ing.filesystemobject")
'Salvar arquivos
nome do arquivo = "info.xls"
temp = nome do arquivo
nome do arquivo=request.servervariables("appl_physical_path")&"\"+nome do arquivo
'Excluir arquivos Excel existentes
'se fs.fileexists(nome do arquivo) então
'fs.deletefile(nome do arquivo)
'acabar se
'-Criar arquivo Excel
definir meuarquivo = fs.createtextfile(nome do arquivo,true)
dim strline,responsestr
strline=""
para cada x em rs.fields
strline = strline & x.nome & chr(9)
próximo
'Escreva os nomes das colunas da tabela para excel primeiro
meuarquivo.writeline strline
enquanto não rs.eof
strline=""
para cada x em rs.fields
'Aqui os dados são marcados como tipo de texto
strline= strline & "="""&x.value &""""& chr(9)
próximo
'Escreve dados da tabela no excel
meuarquivo.writeline strline
rs.movnext
vamos
link="<a href=\" & temp & " title=Salvar dados na tabela eecel><font color=red><b>Exportar arquivo Excel</b></font></a> "
link resposta.write
definir meuarquivo = nada
definir fs = nada
rs.fechar
%>
Exemplo de download do código-fonte: http://code.knowsky.com/down/12254.html
