|
做了一个查询窗体,主窗体输入查询条件,子窗体(其数据源为数据查询)显示查询出的记录,有一个按纽"导出查询结果为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 编辑 ] |
|