输出至excel表时提示错误

将检索查询的结果输出至excel表格时报错，提示“输出的行太多，超出了输出格式或 信息管理系统所做的限制”，检索出的数据有几万条，当检索的结果较少时，可以成功的输出至excel表，可是检索输出的结果较多时就报错了，此类问题不知如何解决，求高手帮忙，谢谢！

 

 

用到的输出至excel的代码如下：

Private Sub 信息检索输出Excel_Click()
    On Error GoTo Err_信息检索输出Excel_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("信息检索导出Excel")
    qdf.SQL = strSQL
    qdf.Close
    Set qdf = Nothing
    DoCmd.OutputTo acOutputQuery, "信息检索导出Excel", acFormatXLS, , True
Exit_信息检索输出Excel_Click:
    Exit Sub
Err_信息检索输出Excel_Click:
    MsgBox Err.Description
    Resume Exit_信息检索输出Excel_Click
End Sub