需要处理下数据。
下面这个过程调用后就不会不换行了。
Function EncodeHTML(HtmlString)
Dim n
For n = 1 to Len(HtmlString)
Dim Ch
Ch = Mid(HtmlString,n,1)
If Ch = "<" Then
EncodeHTML = EncodeHTML & "<"
ElseIf Ch = ">" Then
EncodeHTML = EncodeHTML & ">"
ElseIf Ch = " " Then
EncodeHTML = EncodeHTML & " "
ElseIf Ch = """" Then
EncodeHTML = EncodeHTML & """
ElseIf Ch = vbCR Then
EncodeHTML = EncodeHTML & "<br>"
Else
EncodeHTML = EncodeHTML & Ch
End If
Next
End Function