我的一个问题想了好久没作出来

chaptnt

Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click

    Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
    Dim strWhere, strSQL As String
   
    strWhere = Me.查询报表子窗体.Form.Filter
    If strWhere = "" Then
        '没有条件
        strSQL = "SELECT * FROM [查询报表]"
    Else
        '有条件
        strSQL = "SELECT * FROM [查询报表] WHERE " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

   
Exit_cmd导出_Click:
    Exit Sub

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

这是我照刘小军的例子作的查询导出excel可是为什么我导不出来呢.出现个对话窗说
这个集合找不到呢.属性单击项我用的是事件过程如果用的是宏就是整个导出了。
DAO3.6的程序我以打钩了。
如何不用DAO3.6，是不是也可以查询后导出呢？请版主和各位会员帮我.

zhengjialon

打勾后还要看一下是否优先级在ADO之上。

chaptnt

为什么还不行呀~！！！

出来窗口说 这个集合找不到此项目
还有别的vba代码吗?

[此贴子已经被作者于2004-4-12 18:27:13编辑过]

zhengjialon

这可能是你某处的代码写错，要传库上来测试才行的。