Sendkeys 的用法

dic

以下代码将子窗体查询的记录集拷贝到EXCEL 粘贴。　为啥SendKeys "^V" 不能实现EXCE l粘贴功能　？　请帮看看问题出在哪？

Private Sub Command17_Click()

Me.Child25.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim obj As Object
Set obj = CreateObject("excel.application")
obj.Workbooks.Add
obj.Visible = True

obj.SendKeys "^V"


End Sub

nixiaobing

应该是使用 application.sendkeys 也对吧

sgrshh29

何必：obj.SendKeys "^V"
只要：obj.ActiveSheet.Paste