设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1002|回复: 0
打印 上一主题 下一主题

[查询] 求助:查询导出为EXCEL

[复制链接]
跳转到指定楼层
1#
发表于 2007-8-1 22:13:30 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请高手帮助一下小弟.
在一个查询窗体下. 可以通过一个跟据不同查询将结果导出为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 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 02:01 , Processed in 0.113604 second(s), 24 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表