如何从模块调用工作表宏批量刷新Oracle（EPBCS）连接？

问题根源分析 #

1. 变量名不匹配：原循环代码中使用Worksheet作为循环变量，却用未定义的ws判断工作表名称，导致语法错误。
2. HypMenuVRefresh()的调用限制：该函数依赖当前激活的工作表，且若刷新宏写在工作表对象内，标准模块无法直接通过Call调用，需通过工作表对象实例访问。

修正后的解决方案 #

方案一：调用工作表内的刷新宏 #

如果每个以CC 开头的工作表代码窗口中都存在EPBCS_Refresh_This_Sheet宏，可通过以下代码循环调用：

Sub Refresh_Workbook()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ' 仅处理名称以"CC "开头的工作表
        If Left(ws.Name, 3) = "CC " Then
            ws.Activate ' 激活目标工作表，满足HypMenuVRefresh的依赖要求
            ws.EPBCS_Refresh_This_Sheet ' 通过工作表对象调用其内部宏
        End If
    Next ws
End Sub

方案二：将刷新逻辑整合到标准模块 #

无需在每个工作表中单独写宏，直接在标准模块中完成激活+刷新的逻辑，更易维护：

Sub Refresh_Workbook()
    Dim ws As Worksheet
    Dim refreshStatus As Long
    
    ' 关闭屏幕刷新，提升运行效率
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Worksheets
        If Left(ws.Name, 3) = "CC " Then
            ws.Activate
            ' 调用刷新函数，返回值0表示成功，非0为错误代码
            refreshStatus = HypMenuVRefresh()
            
            ' 可选：添加错误提示
            If refreshStatus <> 0 Then
                MsgBox "工作表 " & ws.Name & " 刷新失败，错误代码：" & refreshStatus, vbExclamation
            End If
        End If
    Next ws
    
    Application.ScreenUpdating = True
End Sub

关键说明 #

• HypMenuVRefresh()必须在目标工作表激活状态下调用，这是该函数的固有要求；
• 放弃HypMenuVRefreshAll()是合理选择，因为它会触发所有连接刷新，容易因文件内其他非Oracle连接导致报错；
• 模板文件的可变工作表名称通过Left(ws.Name, 3) = "CC "判断，无需硬编码工作表名，适配性更强。

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