在窗体的一个按钮里写了导出EXCEL报表的事件，是先通过几个组合框内容进行筛选后的结果，进行导出。代码如下：

 
Private Sub cmdImport_Click()
Dim strWhere
Dim strSql
strWhere = ""
strSql = Null
'判断状态是否为空
If Not IsNull(Me.state) Then
'有输入
strWhere = strWhere & "([state] like '" & Me.state & "')"
End If

'判断省份是否为空
If Not IsNull(Me.province) Then

'有输入
If (strWhere <> "") Then
strWhere = strWhere & " AND ([province] like '" & Me.province & "')"
Else
strWhere = strWhere & " ([province] like '" & Me.province & "')"
End If
End If

'判断城市是否为空
If Not IsNull(Me.city) Then
'有输入
If (strWhere <> "") Then
strWhere = strWhere & "AND ([city] like '" & Me.city & "')"
Else
strWhere = strWhere & "([city] like '" & Me.city & "')"
End If
End If

'判断姓名是否为空
If Not IsNull(Me.seaname) Then
'有输入
If (strWhere <> "") Then
strWhere = strWhere & "AND ([name] like '*" & Me.seaname & "*')"
Else
strWhere = strWhere & "([name] like '*" & Me.seaname & "*')"
End If
End If
'先在窗口显示一下strWhere的值，代码调试完后可以取消下一句
'Debug.Print strWhere
'让子窗体应用窗体查询
If (strWhere <> "") Then
strSql = "select * from q_trainlist where " & strWhere
Else
strSql = "select * from q_trainlist"
End If
Me.w_traindata.Form.Filter = strWhere

Set qdf = CurrentDb.QueryDefs("q_ea_candidate")
    qdf.SQL = strSql
    qdf.close
Set qdf = Nothing
DoCmd.OutputTo acOutputQuery, "q_ea_candidate", acFormatXLS, , True 
End Sub

问题描述：
在点击按钮后，弹出的保存框中，如果点确定，就顺利导出保存了。如果点取消，则提示  运行时错误2501：outputto操作被取消    这个调试错误，什么原因呢？

解决错误的方法：
On Error GoTo Err_按钮名称_Click
 
Exit_按钮名称_Click:
    Exit Sub

Err_按钮名称_Click:
    MsgBox err.Description
Resume Exit_按钮名称_Click

' 注：利用VB及vba的On Error要注意EXIT退出，否则VBA代码会继续向下执行。