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
