多个窗体都有子窗体时，如何引用当前活动窗体的子窗体作导出操作？

tomsonliu

看了下前面一位兄弟发的做导出的帖子很不错，那如果有多个窗体，都有子窗体时，把下面这段代码加入到module里边后，如何作动态的导出呢？activeform只能获取当前活动窗体名称，不能获得子窗体，怎么搞呢……
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
Me.frm报废单查询1.SetFocus   '把焦点移动子窗体上，要操作的子窗体的名称
        DoCmd.GoToRecord , , acFirst
        
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  
    Dim obj As Object
    Set obj = CreateObject("excel.application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"
    On Error Resume Next
    oApp.UserControl = True
Exit_Command11_Click:
    Exit Sub

Err_Command11_Click:
    MsgBox Err.Description
    Resume Exit_Command11_Click
   
End Sub

tmtony

1.使用activecontrol, 然后判断它的type是否subform
2.使用activeform,然后循环它的所有controls,找到typeof 是subform的控件,就是子窗体了,如果有多个子窗体,也可找出来

tz-chf

你打算在哪里运行?

显示后再贴,如果数据多,会看到这个过程.不如用excel里的粘贴,再显示出来.

tz-chf

用不着DoCmd.GoToRecord , , acFirst