ACCESS表或查询导入EXCEL问题

cangqiong

我导出时遇到一个问题 :  就是ACCESS表或查询导入EXCEL时出现的错误

DoCmd.OutputTo acOutputTable, "汇总表", acFormatXLS, , False
        MsgBox "导出完成"

选择"是"就可以导出  如果选择"取消"就会报错    我想点"取消"后不报错
请问如何解决?

hi-wzj

在此命令前先用msgbox命令来处理。

t小宝

我觉得用错误处理来解决比较好:

On Error GoTo Err_1
        DoCmd.OutputTo acOutputTable, "汇总表", acFormatXLS, , False
Exit_1:
        Exit Sub
Err_1:
    If Err.Number <> 2501 Then
        MsgBox Err.Description
    End If
    Resume Exit_1