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

1、syscmd.Edit.Copy()  与 Application.DoEvents 没有关系的～ ，不知道你是如何得出这样的结论的？？？

2、Syscmd.Edit.Paste() 任何时候都不能粘贴？ 您说的太绝对了，呵呵··· 请执行17楼最后一段代码试试啊～

3、sendkeys.Sendwait("^V") 可以省去了Application.DoEvents，是个不错的选择···

谢谢mr725，我才刚试用狐表，不懂之处以后还要您多多指教。

我也是反复多次测试没成功才说的，17楼的代码确实可以运行，我测试后觉得Syscmd.Edit.Paste() 还是有点异常，看我改的代码

Dim dt As Table
Dim ds As Table
dt = Tables("表A")
ds = Tables("表B")
CurrentTable.Select(0,0,5,1)
CurrentTable.Focus
syscmd.Edit.Copy()
Application.DoEvents
CurrentTable.Select(2,2)
Syscmd.Edit.Paste()
MainTable =ds

粘贴应该是在表A中进行吧，可实际是在表B中进行。

这个是有些怪怪的，这样处理吧：

CurrentTable.Select(0,0,5,1)
CurrentTable.Focus
syscmd.Edit.Copy()
Application.DoEvents
CurrentTable.Select(2,2)
Syscmd.Edit.Paste()

Application.DoEvents     '还是这条，大致的效果是：之前的执行完后，再执行后面的代码::::::
MainTable =ds