1、为什么一定要换成【单行文本】?
2、如果确实需要这样,你可以才存放的时候,把换行符替换掉,如
Dim str As String = "abc" & vbcrlf & "123"msgbox(str)str = str.Replace(chr(10), "").replace(chr(13), "")msgbox(str)