5.5.7-代码解析：S02_预警附件生成

本过程是一个统一入口过程，调用后续的过程

代码如下

1   Sub S02_预警附件生成()
2       arr = fun_近5件计算
3       If IsEmpty(arr(1)) Then
4           Debug.Print ("数据库无数据")
5       Else
6           Call sub_预警附件Excel生成(arr)
7       End If
8   End Sub