把子窗體的內容復制到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