Office中国论坛/Access中国论坛

标题: 窗体多条件查询导出excel问题 [打印本页]

作者: stvent 时间: 2009-8-28 14:31
标题: 窗体多条件查询导出excel问题
想请问一下，如何处理这种多条件筛选导出数据的问题，现在只能每个条件做一个查询，然后OutputTo查询，太烦人了！有好的方法吗？

作者: Henry D. Sy 时间: 2009-8-28 14:39
最简单的办法就是用dao定义一个查询，然后导出该查询。

作者: djt 时间: 2009-8-28 14:49
只要能查询到记录集，记录集就能直接导出到EXCEL

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

作者: stvent 时间: 2009-8-28 15:59
2# Henry D. Sy

有点抽象啊：（

作者: stvent 时间: 2009-8-28 16:00

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

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

请问具体操作如何？

作者: Henry D. Sy 时间: 2009-8-28 16:59
把例子传上来

作者: stvent 时间: 2009-8-28 22:02

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

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

作者: Henry D. Sy 时间: 2009-8-29 00:21
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 时间: 2010-3-15 14:56
正在做这方面工作谢谢

作者: tmdqq 时间: 2010-7-1 13:13
参观学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)