access导出Excel，Excel表中出现错…

可能一：内容中有回车键

替换回车键

<%
End Function

'替换回车键

Function HTMLEncode(Str)
Str=Replace(Str,vbcrlf," ") 
Str=Replace(Str," "," ") 
Str=Replace(Str,Chr(10)," ") 
Str=Replace(Str,Chr(13)+Chr(10)," ") 
HTMLEncode=Str 
End Function 
 %>

使用方法：<%HTMLEncode(Request.Form("content"))%>

可能二：

写入数据的时候，excel默认是以“,”为分隔符，一遇到“,”，它就会自动将数据写到下一个字段项，因此，如果你的数据中出现了半角的逗号(例如：联系方式里面有逗号)，那么逗号后面的内容将会写到下一格，这样依此往后推，那么写入的数据就会错位，一片混乱。如果你将留言版的内容写入，就会碰到这样的问题，解决的办法就是用替换函数。

function HTMLEncode(fString)
if not isnull(fString) then
fString = Replace(fString,",", "，")
fString = Replace(fString,chr(10), "，")
fString = Replace(fString,chr(13), " ")
fString = Replace(fString,"<br>", "，")
fString = Replace(fString," ", " ")
HTMLEncode2 = fString
end if
 end function

将这个HTMLEncode(fString)用进去，将rs("联系地址")改成 HTMLEncode(rs("联系地址"))，以及所有可能会出现“,”的字段改成HTMLEncode(rs("xxx"))，就可以避免数据错位了。