| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]替换单元各中的换行符？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160636) |
| -- 作者：2425004926 -- 发布时间：2021/2/9 11:28:00 -- [求助]替换单元各中的换行符？ 我由excel复制粘帖或导入过来的文本，在excel里有换行符，帖过来后还有，代码怎么删除这个换行，我试了几次都没成功 以下是代码： Dim x As String x = Tables("表B").Cols("藏品名称") x = x.Replace(vbcrlf,"") CurrentTable.Cols("藏品名称") = x 下面也不成功 CurrentTable.Cols("藏品名称") = CurrentTable.Cols("藏品名称").Replace(vbcrlf,"")
|
| -- 作者：有点蓝 -- 发布时间：2021/2/9 11:33:00 -- x = x.Replace(vbcr,"").Replace(vblf,"") |
| -- 作者：2425004926 -- 发布时间：2021/2/9 11:45:00 -- Dim x As Object x = Tables("表B").Cols("藏品名称") x = x.Replace(vbcr,"").Replace(vblf,"") Tables("表B").Cols("藏品名称") = x Tables("表B").Cols("藏品名称") = Tables("表B").Cols("藏品名称").Replace(vblf,"").Replace(vbcr,"") 红色的怎么都出错，
我把Replace(vblf,"")和Replace(vbcr,"")前后顺序倒了一下，还是出错 |
| -- 作者：有点蓝 -- 发布时间：2021/2/9 11:50:00 -- Tables("表B").current("藏品名称") = x |
| -- 作者：2425004926 -- 发布时间：2021/2/9 12:09:00 -- 明白了，明白了 |