求救，ASP导出EXCEL后数字显示为科学计数，并且最后几位数字丢失，变成0000

[软银云商包装]

导出的代码如下：
function Export(Str,FileLB)
Set fs = server.CreateObject("scripting.filesystemobject")
Set Rec=Server.CreateObject("ADODB.RecordSet")
TheFile="DownLoad/" & FileLB & year(now) & month(now) & day(now) & ".xls"
filename = Server.MapPath(TheFile)
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
SqlStr=Str
Rec.Open Sqlstr,Con,1,1
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr
strLine=""
For each x in Rec.fields
strLine= strLine & x.name & chr(9)
Next
myfile.writeline strLine
do while not Rec.EOF
strLine=""
for each x in Rec.Fields
strLine= strLine & chr(32) & x.value & chr(32) & chr(9)
next
myfile.writeline strLine
Rec.MoveNext
Loop
rec.Close
Set fs=Nothing
response.Redirect(TheFile)
end function

不知如何导出时变成文本格式，我试着在导出时加入空格也不行！！！

[dc236789]

这个问题你解决了吗？我现在也遇到这个问题了，尝试strLine= strLine & chr(32) & "'" & x.value & chr(32) & chr(9)的时候，"'"符号在表格里面也显示出来了。。。