主题：从 excle2003 复制数据问题

此主题相关图片如下：1.png


此主题相关图片如下：2.png

此主题相关图片如下：3.png

 

 

用了楼上方法，内容还是会换行

用高速导入方法，会变成这样

 

此主题相关图片如下：4.png

可以，正确显示（4楼方法）

好的，谢谢，等下输完数据再试

可以实现要求

字符串中的空格怎样去除？

 

此主题相关图片如下：7.png

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), "").replace(chr(13), "").replace(" ","")
    Next
   
Next

t.AutoSizeRows