VBA代码If语句Else位置错误及Output工作表隐藏逻辑修复

问题梳理 #

当前使用第三方编写的Excel VBA宏从BI系统拉取数据，初始运行时会将名为Output的工作表设为可见，用于临时存储BI下载的原始数据，待原始数据加载到面向用户的展示工作表后，需要在BI登录失败、数据下载失败场景下自动隐藏Output表，避免普通用户接触后台临时数据。
自行修改代码时出现三类问题：

• 将隐藏代码放在失败判断If分支、MsgBox代码前，会出现下载成功也弹出失败提示的异常
• 将隐藏代码放在GoTo语句前，会过早隐藏Output表，导致后续依赖该表的代码运行报错
• 尝试给首个If判断添加Else分支时，因无法确定Else和对应End If的位置，持续触发编译错误

具体实现 #

核心逻辑：所有数据拉取、加载流程全部正常执行完成后再隐藏Output表；任意节点触发失败、异常时，在退出流程前执行隐藏操作，不打乱原有分支判断结构。

1. 修正主过程GetDataFromBI的分支结构 #

找到主过程中首个BI登录结果判断的If块，按如下位置放置Else、End If和对应隐藏逻辑，原有数据加载逻辑保持不变：

Sub GetDataFromBI()
    Dim biReport As CBIReport
    Dim runSuccess As Boolean
    
    ' 原有初始化逻辑：显示Output表、清空历史数据
    ThisWorkbook.Sheets("Output").Visible = xlSheetVisible
    ThisWorkbook.Sheets("Output").Cells.Clear
    
    ' 原有BI登录逻辑
    Set biReport = New CBIReport
    runSuccess = biReport.Login()

    ' 首个If判断块开始
    If Not runSuccess Then
        ' 登录失败分支：先弹提示，再隐藏表，直接退出过程
        MsgBox "BI系统登录失败，请检查账号权限或网络状态", vbCritical
        ThisWorkbook.Sheets("Output").Visible = xlSheetHidden
        Exit Sub
    Else ' 此处为Else的正确位置，和上方登录判断If配对
        ' 登录成功后才执行下载逻辑
        runSuccess = biReport.DownloadDataToSheet(ThisWorkbook.Sheets("Output"))
        If Not runSuccess Then
            ' 下载失败分支：弹提示、隐藏表、退出过程
            MsgBox "BI数据下载失败，请稍后重试", vbCritical
            ThisWorkbook.Sheets("Output").Visible = xlSheetHidden
            Exit Sub
        End If
    End If ' 此处为首个If判断对应End If的正确位置

    ' 以下保留原有原始数据加载到用户展示表的全部逻辑，无需修改
    ' Call 原有数据加工、加载的自定义函数/逻辑

    ' 所有流程正常跑完后，隐藏Output表
    ThisWorkbook.Sheets("Output").Visible = xlSheetHidden
    MsgBox "数据更新完成", vbInformation

    ' 正常流程出口
    Exit Sub
' 异常兜底分支
ErrorHandler:
    MsgBox "数据拉取异常：" & Err.Description, vbCritical
    ThisWorkbook.Sheets("Output").Visible = xlSheetHidden
End Sub

2. 添加全局异常兜底 #

在GetDataFromBI过程的最开头添加一行错误捕获配置，覆盖网络中断、BI接口返回格式异常等非预期错误场景，避免Output表漏隐藏：

Sub GetDataFromBI()
    On Error GoTo ErrorHandler ' 新增该行，所有未捕获错误自动跳转到兜底分支
    ' 其余代码和上述示例保持一致

避坑说明 #

• 不要把Output表隐藏代码放在GoTo跳转语句前：所有失败分支的隐藏操作，必须放在确认无后续依赖Output表的逻辑之后执行，上述方案的失败分支均为「弹提示→隐藏表→退出过程」顺序，不会触发过早隐藏的报错。
• 不要把隐藏代码放在MsgBox语句前：MsgBox弹出时会阻塞代码运行，隐藏代码放在MsgBox前会触发工作表Visible变更事件，打乱原有判断变量的状态，才会出现下载成功也弹失败提示的问题，按先弹提示、后隐藏表的顺序编写即可。
• If分支配对规则：VBA中同层级的If/Else/End If需要保持缩进对齐，不要把内层下载结果判断的End If和外层登录判断的End If混放，参照示例代码的缩进层级编写就不会触发编译错误。

内容的提问来源于stack exchange，提问作者lshneier