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,"&nbsp;", " ")
HTMLEncode2 = fString
end if
end function

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