窗体多条件查询导出excel问题

stvent

想请问一下，如何处理这种多条件筛选导出数据的问题，现在只能每个条件做一个查询，然后OutputTo查询，太烦人了！有好的方法吗？

Henry D. Sy

最简单的办法就是用dao定义一个查询，然后导出该查询。

djt

只要能查询到记录集，记录集就能直接导出到EXCEL

EXCEL有个方法
MYXL.copyfromrecordset rs
速度飞快

stvent

2# Henry D. Sy

有点抽象啊：（

stvent

只要能查询到记录集，记录集就能直接导出到EXCEL

EXCEL有个方法
MYXL.copyfromrecordset rs
速度飞快
djt 发表于 2009-8-28 14:49

请问具体操作如何？

Henry D. Sy

把例子传上来

stvent

把例子传上来
Henry D. Sy 发表于 2009-8-28 16:59

例子中是三条件筛选的，实现任一条件或组合导出

Henry D. Sy

Private Sub export_Click()
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    Set qdf = CurrentDb.QueryDefs("Q")
    If Len(strWhere) <> 0 Then
        strSQL = _
        "SELECT 物料信息表.物料编号, 物料信息表.物料名称, 物料信息表.规格, 物料信息表.类别, 物料信息表.单位, 物料信息表.供应商, 物料信息表.所在贷架, 物料信息表.备注 FROM 物料信息表 where " _
               & strWhere
    Else
        strSQL = _
        "SELECT 物料信息表.物料编号, 物料信息表.物料名称, 物料信息表.规格, 物料信息表.类别, 物料信息表.单位, 物料信息表.供应商, 物料信息表.所在贷架, 物料信息表.备注 FROM 物料信息表"
    End If
    qdf.SQL = strSQL
    DoCmd.OutputTo acOutputQuery, "Q", acFormatXLS, "Qxls.xls", True
    qdf.Close
    Set qdf = Nothing
End Sub

hgxsyhb

正在做这方面工作谢谢

tmdqq

参观学习