把子窗体的内容复制到EXCEL（子窗体可以是任意形式，如：连续窗体，数据表窗体）

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