导出为EXCEL时，提示“在这个集合中找不到该项目”

cyymzhb　发表于：2008-05-29 09:21:13 　

请教：将 CX省计划子窗体中的查询结果导出为EXCEL时，提示“在这个集合中找不到该项目”，有可能是什么原因？导出事件代码如下：
Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click
    Dim qdf As DAO.QueryDef
    Dim strWhere, strSQL As String
    strWhere = Me.CX省计划子窗体.Form.Filter()
    If strWhere = "" Then
        strSQL = "SELECT * FROM [CX省计划]"
    Else
        strSQL = "SELECT * FROM [CX省计划] 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

Top

竹笛发表于：2008-05-29 09:22:28

你的查询中　有没有　查询结果　这样的一个查询？

Top

pc高手发表于：2008-05-29 09:41:25

用你的这种方式，还不如直接用：

按条件生成一个新表，然后再将这个新表导出为 EXCEL 表。这样来的方便，直观。

Top

yefalai 发表于：2008-05-29 23:22:29

呵呵,不知道错在哪 .不过如果你用下面的代码我想可以成功的!

Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click
    Dim qdf As DAO.QueryDef
    Dim strWhere, strSQL As String
    strWhere = Me.CX省计划子窗体.Form.Filter()
    If strWhere = "" Then
        strSQL = "SELECT * FROM [CX省计划]"
    Else
        strSQL = "SELECT * FROM [CX省计划] WHERE " & strWhere
    End If
    '---------------- 去掉用下面的代替   Set qdf = CurrentDb.QueryDefs("查询结果")

'---------------- 去掉qdf.sql = strSQL

    Set qdf = CurrentDb.CreateQueryDef("查询结果", 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

需要注意的事,当程序运行一遍后 "查询结果"就产生了.如果你再次运行就会出错("提示已经存在!"),所以运行前需要加代码进行检查

不知道是否能给你帮助!!!!!!!!!!!!!!1

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

导出为EXCEL时，提示“在这个集合中找不到该项目”