主题：[求助]拷贝外部数据，自动增加行

 假如表中空白行只有10行，如果从EXCEL表格中拷贝的行超过了10行而达到了15行，现在的情况是，超过的5行将不会被粘贴到表中。如何能让表格自动增加5行，容纳所有粘贴进来的数据？

导入！

CurrentTable.AddNew(5)

CurrentTable.Select(0,0)

CurrentTable.Focus

Syscmd.Edit.Paste()

这样比较严谨一点

 

If ClipBoard.ContainsText Then
    Dim s As String = ClipBoard.GetText()
    Dim n As Integer = s.Length-s.Replace(chr(13),"").Length-CurrentTable.Rows.Count
    If n > 0 Then
        CurrentTable.AddNew(n)
    End If
    CurrentTable.Select(0,0)
    CurrentTable.Focus
    Syscmd.Edit.Paste()
End If

或这样

 

If ClipBoard.ContainsText Then
    Dim dt As Table = CurrentTable
    Dim s As String = ClipBoard.GetText()
    Dim i As Integer = dt.TopRow
    Dim n As Integer = (s.Length-s.Replace(chr(13),"").Length)-(dt.Rows.Count-i)
    If n > 0 Then
        dt.AddNew(n)
    End If
    dt.Select(i,dt.LeftCol)
    dt.Focus
    Syscmd.Edit.Paste()
End If