excel表格导入access数据库中不换行解决办法

今天一个客户要做导入，导入后发现没有把表格里面的换行体现，本来想看看能不能导入之前替换。但是查看元素发现，是有换行的，所有想到了。用程序替换，
下面是代码，

下面是将excel表格导入access到中的换行替换为<br>

复制代码代码如下:

<%=Replace(Content.Item("FID_5"), CHR(10), "<br>")%>

下面是将textarea中的换行替换为<br>

	
	fString = Replace(fString, CHR(10), "<br>")

	fString = Replace(fString, CHR(13), "<br>")

如果反过来，html中的br换行就需要替换为textarea中的换行

复制代码代码如下:

fString = Replace(fString, <br>, vbcrlf)