- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 直接从XLS复制内容（单元格有换行）怎么操作？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101071)
-- 发布时间：2017/5/24 15:06:00
-- 直接从XLS复制内容（单元格有换行）怎么操作？
直接从XLS复制内容（单元格有换行）怎么操作？
粘贴 过来，是粘贴 到多行，而不是一行。
原来做过，找不到了。
[此贴子已经被作者于2017/5/24 15:15:26编辑过]
-- 发布时间：2017/5/24 15:23:00
--
奇怪，在XLS中，看着两行一样的。怎么直接复制粘贴 到FT中，第一行，的“项目特征”单元格，是粘贴在一个格子里。 下面一行，就是粘贴在多行中？
此主题相关图片如下：111.jpg
-- 发布时间：2017/5/24 16:33:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84156&authorid=0&page=0&star=2
-- 发布时间：2017/5/24 16:47:00
--
Dim str As String = ClipBoard.GetText
msgbox(str)
str = str.replace(vbcrlf, chr(11))
msgbox(str)
Dim nstr As String = ""
For Each s As String In str.Split(chr(13))
For Each ss As String In s.Split(chr(9))
If ss.IndexOf(chr(11)) >= 0 Then
nstr &= """" & ss & """" & chr(9)
Else
nstr &= ss & chr(9)
End If
Next
nstr &= vbcrlf
Next
nstr = nstr.Replace(chr(11), vbcrlf)
msgbox(nstr)
ClipBoard.SetText(nstr)
感觉不行呢。不知是不是没用对。
-- 发布时间：2017/5/24 17:06:00
--
他是从FT复制 到xls.我是从XLS复制到FT。
-- 发布时间：2017/5/24 17:14:00
--
从excel拷贝过来，如果有换行，都能正常粘贴的。请用具体例子说明问题。
-- 发布时间：2017/5/24 17:33:00
--
如上面的文件。一行可以正常复制 ，另一行不行。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:111.xls |
-- 发布时间：2017/5/24 18:03:00
--
拷贝以后，执行下面代码，再粘贴
Dim str As String = ClipBoard.GetText
str = str.Replace(chr(13), "")
ClipBoard.SetText(str)
-- 发布时间：2017/5/24 18:11:00
--
我是多列多行，一 起复制 。这个代码不行咯。（单个单元格可以）
-- 发布时间：2017/5/24 18:12:00
-- 回复：（yancheng）我是多列多行，一 起复制 。这个代...
围观~
[此贴子已经被作者于2017/5/24 18:13:12编辑过]