Office中国论坛/Access中国论坛

标题: 求助:查询导出为EXCEL [打印本页]

作者: cute2tiger 时间: 2007-8-1 22:13
标题: 求助:查询导出为EXCEL
请高手帮助一下小弟.
在一个查询窗体下. 可以通过一个跟据不同查询将结果导出为EXCEL. 问题以前用MDB时可以运行. 变为ADP后就不行了. 运行时会报错"对象变量未设置或With块变量未设置"
谢谢高手帮助.

其中出错代码为:
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Dim strWhere, strSQL As String

strWhere = Me.Target子窗体.Form.Filter

If strWhere = "" Then
            strSQL = "SELECT * FROM [target] WHERE sales = '" & user & "'"
   '没有条件
End If

If strWhere <> ""  Then

      strSQL = "SELECT * FROM [target] WHERE " & strWhere & " and sales ='" & user & "'"
End If

         Debug.Print strSQL
Set qdf = CurrentDb.QueryDefs("Target查询")
qdf.SQL = strSQL
qdf.Close

Set qdf = Nothing

DoCmd.OutputTo acOutputQuery, "Target查询", acFormatXLS, , True

Exit_cmd导出_Click:
Exit Sub
Err_cmd导出_Click:
MsgBox Err.Description
Resume Exit_cmd导出_Click

End Sub

[ 本帖最后由 cute2tiger 于 2007-8-1 22:46 编辑 ]

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