只需一步,快速开始
1970-1-1 08:00| 发布者: huanghai『文章』| 查看: 2218| 评论: 0
Sub 把子窗体的内容复制到EXCEL() Me.Child28.SetFocus '把焦点移动子窗体上 Child28要操作的子窗体的名称 DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Dim obj As Object Set obj = CreateObject("excel.application")
obj.Workbooks.Add obj.Visible = True
SendKeys "^v"End Sub
评论
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-4-29 10:57 , Processed in 0.074850 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.