- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 从 excle2003 复制数据问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101044)
-- 发布时间：2017/5/24 9:50:00
-- 从 excle2003 复制数据问题
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2017/5/24 10:00:00
--
Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
For Each c As Col In t.Cols
r(c.name) = r(c.name).trim("""")
Next
Next
t.AutoSizeRows
-- 发布时间：2017/5/24 10:09:00
--
此主题相关图片如下：3.png
用了楼上方法，内容还是会换行
-- 发布时间：2017/5/24 10:12:00
--
内容换行，说明，你excel里面的内容就是换行的。
如果你想把换行去掉，这样写
Dim t As Table = Tables("表A")
For Each r As Row In t.Rows
For Each c As Col In t.Cols
r(c.name) = r(c.name).trim("""").replace(chr(10), "")
Next
Next
t.AutoSizeRows
-- 发布时间：2017/5/24 10:15:00
--
用高速导入方法，会变成这样
此主题相关图片如下：4.png
-- 发布时间：2017/5/24 10:16:00
--
看4楼处理，你本来的数据，就是换行的。
-- 发布时间：2017/5/24 10:17:00
--
可以，正确显示（4楼方法）
Dim t As Table = Tables("订单")
For Each r As Row In t.Rows
r("产品名称规格") = r("产品名称规格").trim("""").replace(chr(10), "")
Next
t.AutoSizeRows
还是会有一些行比较特殊，要手动处理
[此贴子已经被作者于2017/5/24 10:29:34编辑过]
-- 发布时间：2017/5/24 11:06:00
--
以下是引用wei0769在2017/5/24 10:17:00的发言：
还是会有一些行比较特殊，要手动处理
[此贴子已经被作者于2017/5/24 10:29:34编辑过
Dim t As Table = Tables("订单")
For Each r As Row In t.Rows
r("产品名称规格") = r("产品名称规格").trim("""").replace(chr(10), "").replace(chr(13), "")
Next
t.AutoSizeRows
-- 发布时间：2017/5/24 11:43:00
--
好的，谢谢，等下输完数据再试
-- 发布时间：2017/5/24 14:12:00
--
可以实现要求