来源：www.accessqq.com
原作者： 黄海

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