主题：复制粘贴数据很慢怎么解决

29637 24
29637 25
29637 26
29637 27
29637 28
29637 29
29637 30
29637 31

通过什么代码能够知道有多少行多少列呀，foxtable能够解决吗？

从表格中粘贴的数据到剪贴板，怎么知道剪贴板中存的数据是多少行多少列？

Dim s As String = ClipBoard.GetText()
Dim r1 As Row = CurrentTable.Rows(CurrentTable.TopPosition)
Dim nma() As String = s.Split("|")

For i As Integer = 0 To nma.Length - 1
    r1(i) = nma(i)
Next

使用上述代码去粘贴但是不知道单元格与单元格、行与行之间的分割是什么

使用上述代码去粘贴但是不知道单元格与单元格、行与行之间的分割符是什么

以下这段代码分列的问题解决了，分行的问题还没有解决，该怎么分行？

Dim s As String = ClipBoard.GetText()
Dim r1 As Row = CurrentTable.Rows(CurrentTable.TopPosition)
Dim nmas() As String = s.Split("w")
msgbox(nmas.Length-1)
For Each nma As String In nmas
msgbox(nma)
    Dim nmb() As String = nma.Split(" ")
    For i As Integer = 0 To nmb.Length - 1
        r1(i) = nmb(i)
    Next
Next

以上是我写的粘贴代码，实现不了粘贴表格的目的

例子的粘贴菜单为配置栏中标准按钮1

1、例子中表A的数据是从foxtable表格复制然后粘贴过来，问题是不管鼠标在那一列数据粘贴都是从第一列开始的；

2、例子中表B的数据是excel复制然后粘贴过来的，问题是第一列除了第一行有数据外，其他外都没有，而且也是不管鼠标在那一列数据粘贴都是从第一列开始的；

上述代码是怎么形成的，怎么修改？

回44楼，在大量复制粘贴的时候必须暂停全部代码，CurrentTable.EditPaste()就不能够使用了，所以需要自己编写代码来实现粘贴。