如何将子窗体的数据导出

wang1999

窗体里面包含一个子窗体，子窗体的RecordSource属性为动态的SQL查询语句，由用户控查询，我现在不知道如何将其子窗体的执行查询后的数据导出到EXCEL

wang1999

搞半天还没搞定，烦！
没办法　顶
请大家帮帮忙！

我同意

这是我收集到的一个查询的例子,我记得里面应该提到子窗数据输出的.

wang1999

谢谢!
这个例子我看过,它里面子窗体的数据源是直接绑订到一个查询,而查询条件引用当前窗体控件值,然后利用宏,代码是DoCmd.OutputTo acOutputQuery…………导出.
而我的子窗体的数据源直接用代码写的SQL语句,没有用到查询.
所以不能,
不过我先试试

wang1999

还是没搞定,烦
大家帮帮忙.

wang1999

老话一句——自己动手丰衣足食
琢磨两天还是自己搞定,代码如下,大家可参考:
        Dim xls As New Excel.Application, wkb As Excel.Workbook, wks As Excel.Worksheet
        Dim rst As New ADODB.Recordset
        Dim intRow As Integer, strSQL As String
        Set wkb = xls.Workbooks.Add
        Set wks = xls.ActiveSheet
        strSQL = Me!frmChildForm.Form.RecordSource
        rst.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
        wks.Cells(1, 1).Value = rst.Fields(0).Name
        wks.Cells(1, 2).Value = rst.Fields(1).Name
        wks.Cells(1, 3).Value = rst.Fields(2).Name
        intRow = 2
        Debug.Print rst.RecordCount
        Do Until rst.EOF
            wks.Cells(intRow, 1).Value = rst.Fields(0).Value
            wks.Cells(intRow, 2).Value = rst.Fields(1).Value
            wks.Cells(intRow, 3).Value = rst.Fields(2).Value
            rst.MoveNext
            intRow = intRow + 1
        Loop
        xls.Visible = True
        rst.Close
        Set rst = Nothing

最烦的是微软已将其DAO淘汰,在XP版中FORM返回的还是DAO记录集,不是ADODB记录集,所以代码了多两句
不知道在2003版中怎样(还没用过2003)

caibbs

赢家永远不会半途而废，
半途而废者永远不会赢！