关于窗体查询后导出为EXCEL表的问题!

canghe168

做了一个查询窗体,主窗体输入查询条件,子窗体(其数据源为数据查询)显示查询出的记录,有一个按纽"导出查询结果为EXCEL",按纽代码如下

Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click

Dim qdf As DAO.QueryDef
Dim strWhere, strSQL As String
   
    strWhere = Me.数据查询查询子窗体.Form.Filter
    If strWhere = "" Then
    strSQL = "SELECT * FROM [数据查询]"
    Else
    strSQL = "SELECT * FROM [数据查询] WHERE " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "查询结果EXCEL", acFormatXLS, , True
   
Exit_cmd导出_Click:
    Exit Sub
Err_cmd导出_Click:
    MsgBox Err.Description
    Resume Exit_cmd导出_Click
   
End Sub

我现在要问的是,怎么修改上面的代码,始其导出子窗体查询结果为EXCEL表的时候,可以选择字段导出,(比如查询结果有50条记录,5个字段,而只导出有2个字段的50条记录)
请大家帮忙实现,谢谢拉!

[ 本帖最后由 canghe168 于 2008-1-24 17:17 编辑 ]

WFH6898

这段代码是刘小军老师的多条件查询导出代码，请教一下刘老师

shemaaqq

shemaaqq

shemaaqq

shemaaqq

shemaaqq

shemaaqq

shemaaqq

dbbygzy

xuexi