access窗体中，如何将多条件筛选结果导入excel

memphis240

Dim dbs As DAO.Database, qdf As DAO.QueryDef, dcSql, pathm, fanwei As String
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("dcExcel")
    dcSql = Me.子窗体.Form.RecordSource   '这里假设你的子窗体名字叫“子窗体”
    qdf.Sql = dcSql
    pathm = CurrentProject.Path & "\数据导出.xls"
    fanwei = "你的excel工作表名字"
    DoCmd.TransferSpreadsheet acExport, 8, "dcExcel", pathm, True, fanwei
  你先建立个dcExcel的查询，内容随便。
看走眼了，你的有筛选，把dcSql = Me.子窗体.Form.RecordSource 用字符串函数搞一搞，把筛选条件变进去就好了。

todaynew

天涯沦落20131 发表于 2015-4-30 09:29
谢谢版主！我将你的代码复制至窗体，显示错误（提示“运行时错误 3131”from 子句语法错误）！请帮助看看 ...

当然。
你要把“阁下的子窗体控件名称”进行修改嘛。

天涯沦落20131

todaynew 发表于 2015-4-30 11:28
当然。
你要把“阁下的子窗体控件名称”进行修改嘛。

我已试过！现改为查询！功能已实现！谢谢！

天涯沦落20131

memphis240 发表于 2015-4-30 09:51
Dim dbs As DAO.Database, qdf As DAO.QueryDef, dcSql, pathm, fanwei As String
    Set dbs = CurrentD ...

谢谢！