主题：复制粘贴代码不可用

够简洁了

 

克隆行行不行？

这样呢？稍微简洁些：

Dim T as table = Currenttable
For Each c As Col In CurrentTable.Cols  '逐列复制
   T.Rows(3)(c.Name) = T.Rows(0)(c.Name)
Next

 

再说，又不是大规模运算，不需要那么简洁的～  呵呵

呵呵，有的时候简洁可不意味着高效，Mr725兄的这段可不够我这段效率高，因为每次循环都要重新从集合中找出第一样和第三行。

知道了，谢谢啊～

实际工作中有时要用到对一个区域（矩形块）内容进行复制、粘贴，这个功能在易表中可以实现，狐表中找不到相对应的move命令，也就不能用同一种方法实现。

经过测试，狐表也可以完成这个功能，要用到焦点的功能，焦点在哪个表，这个表才能进行复制、粘贴操作。以下是在两个表内进行复制、粘贴操作，在测试通过。

Dim dt As datatable
Dim ds As Table
dt = DataTables("表A")
ds = Tables("表B")
CurrentTable.Focus
CurrentTable.Select(1,1,5,2)
Sendkeys.Sendwait("^C")
CurrentTable.Select(2,4)
Sendkeys.Sendwait("^V")
MainTable = Tables("表B")
CurrentTable.Focus
Tables("表B").Select(3,4,5,7)
Sendkeys.Sendwait("^V")

 

易表也可以这样啊？  不懂易表！  呵呵····

 

狐表中，你可以参考

TopRow:    选定区域最上边一行的位置
LectCol:   选定区域最左边一列的位置
BottomRow: 选定区域最下边一行的位置
RightCol:  选定区域最右边一列的位置　

 

结合：

syscmd.Edit.Copy()

Syscmd.Edit.Paste()

 

至于你说楼主的完不成的原因嘛，这样就哦卡啦：注意那两行绿色的句子！

CurrentTable.Select(0,0)
CurrentTable.Focus
syscmd.Edit.Copy()
Application.DoEvents
CurrentTable.Select(6,0)
Syscmd.Edit.Paste()

 

刚才边看帮助边实践，找到16楼的方法。

 

回mr725:

 

用

syscmd.Edit.Copy()

Syscmd.Edit.Paste()

 

没有成功过。

【没有成功过】 是什么意思呢？  不明白！！！

用 syscmd.Edit.Copy()，不用Application.DoEvents 不能复制

 

不管什么什么情况Syscmd.Edit.Paste()都不能粘贴

 

没sendkeys.Sendwait("^V")好用