```
    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`