vb excel 关闭异常