Résoudre le problème de l'exportation ASP des résultats de requête vers le numéro d'identification dans Excel
Auteur：Eve Cole
Date de mise à jour：2009-06-23 17:01:06
Récemment, lors de l'utilisation d'asp pour exporter les résultats de la requête de la base de données Access vers un fichier Excel, un problème est survenu car l'un des champs est le numéro d'identification. Dans le fichier Excel exporté, les trois derniers chiffres de tous les numéros d'identification sont devenus 0 ! Comme c’est déprimant ! Après avoir vérifié en ligne, j'ai découvert que le format numérique par défaut d'Excel est "normal", qui ne peut afficher normalement que 11 chiffres saisis. Si le nombre dépasse 11 chiffres, il sera affiché en notation scientifique.
Afin de résoudre ce problème, je ne peux marquer les données de la requête que comme des données texte. Ce qui suit fait partie du code :
<%
'Exporter vers Excel
set rs = serveur.createobject("adodb.recordset")
sqlstr="select * from tabname Where"&searhsql 'instruction de requête
rs.open sqlstr,oconn,1,3
%>
<%set fs = server.createobject("script_ing.filesystemobject")
'Enregistrer les fichiers
nom de fichier="info.xls"
temp = nom de fichier
filename=request.servervariables("appl_physical_path")&"\"+filename
'Supprimer les fichiers Excel existants
'si fs.fileexists(filename) alors
'fs.deletefile(nom de fichier)
'fin si
'-Créer un fichier Excel
set myfile = fs.createtextfile(filename,true)
dim strline, réponse
chaîne=""
pour chaque x dans rs.fields
strline= strline & x.name & chr(9)
suivant
'Écrivez d'abord les noms des colonnes du tableau pour exceler
monfichier.writeline ligne strline
bien que ce ne soit pas rs.eof
chaîne=""
pour chaque x dans rs.fields
'Ici, les données sont marquées comme type de texte
strline= strline & "="""&x.value &""""& chr(9)
suivant
'Écrire les données du tableau pour exceler
monfichier.writeline ligne strline
rs.movenext
wend
link="<a href=\" & temp & " title=Enregistrer les données dans la table eecel><font color=red><b>Exporter le fichier Excel</b></font></a> "
lien réponse.écrire
définir mon fichier = rien
définir fs = rien
rs.fermer
%>
Exemple de téléchargement de code source : http://code.knowsky.com/down/12254.html
