asp中數據導出EXCEL檔案時,有些sheet值分為兩欄顯示,請問如何解決?

[glodme7758]

字段值较长时,会转到下一行显示,请问这种情况怎幺解决,还有就是一个长字符型的字段内容是以0开始数字,显示的时候过虑掉了
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from CSZL",conn,1
%>

<%
Set fs = server.CreateObject("scripting.filesystemobject")


filename = server.MapPath("factory.xls")
filename1 = "D:\factory.xls"


if fs.FileExists(filename) then

fs.DeleteFile(filename)

end if

set myfile = fs.CreateTextFile(filename,true)
set myfile1=fs.createtextfile(filename1,true)


dim strLine

strLine=""

strline = strline & "name" & chr(9) & "tel" & chr(9)
myfile.writeline strLine
myfile1.writeline strLine

if not rs.eof then

Do while Not rs.EOF

strLine=""

strLine = strLine & rs("CS_MC")& chr(9) & rs("CS_LLR")& chr(9)
myfile.writeline strLine
myfile1.writeline strLine

rs.MoveNext
loop

end if

set myfile = nothing
set myfile1=nothing
Set fs=Nothing
%>
<%
rs.Close
set rs = nothing
conn.close
set conn=nothing

%>

[glodme7758]

怎么沒有人來解決啊

[glodme7758]

十萬為急的事情,怎么沒有人幫我解決啊