主题：能实现连续复制table控件里五条记录，粘到excel里吗？

1、请具体说明你要做什么功能；

2、你框选几行数据，然后执行复制，不就行了？

判断一下选择的行数

msgbox(CurrentTable.BottomPosition-CurrentTable.TopVisibleRow)

不需要，主表的事件代码、副本的事件代码，都可以写到【表属性】里面去。

具体出错的实例发上来，并说明测试步骤。

afterSelRangeChange也要写代码

Dim n = e.NewRange.BottomRow - e.NewRange.TopRow
If n > 4 Then
Else
    CurrentTable.EditCopy
End If

加入判断，比如

If e.newrange.Toprow < 0 Then Return

Dim n = e.NewRange.BottomRow - e.NewRange.TopRow
If n > 4 Then
Else
    CurrentTable.EditCopy
End If