obsidian/知识参考/电脑软件常用指令/Excel-VBA/On Error Resume Next.md

    On Error Resume Next
    '

忽略错误数据继续执行

    ActiveWorkbook.Queries("

首报统计报表

").Delete
    ActiveWorkbook.Queries("

二报统计报表

").Delete
    ActiveWorkbook.Queries("

三报统计报表

").Delete
    
    ActiveWorkbook.Queries("

综合

").Delete
    
    On Error GoTo 0
    'Err.Clear 

_和_ On Error GoTo 0 _取消_ On Error Resume Next