	魔方网表，Excel终结者，永久免费	Excel服务器2010软件和教程下载	培训课券免费大放送啦！
Excel不给力？何不试试FoxTable！	2012年Excel免费培训班2-6月开课计划	新人必读：ExcelHome最佳学习方法	免费下载Excel行业应用视频教程
精粹：成为Excel高手的捷径	免费下载39集新Excel精粹视频教程	免费学习Excel数据透视表视频教程	入门必看《循序渐进学Excel》视频
超过100个Excel工具	免费学习Excel 2007精粹视频教程	新Office外观-不可思议	搞不定老板要的报表？我们来帮您

Sendkeys 的用法

查看: 934|回复: 2| 收藏 :0

dic

356财富

0鲜花

0技术

等级 2EH初级

积分排行: 3000+
帖子: 56
精华: 0
分享: 0

发表于 2009-7-8 13:08:14 |显示全部楼层

分享到：更多

★Excel服务器2010软件和教程下载★

Sendkeys 的用法 [复制链接]

以下代码将子窗体查询的记录集拷贝到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