Excel宏启用工作簿跨文件打开VBA代码在高版本Win10失效求助

修改后的完整代码 #

Option Explicit

Private Sub Workbook_Open()
    Const REF_FILENAME As String = "REFERENCE_FILE.xlsm"
    Dim refFilePath As String
    Dim refWorkbook As Workbook
    Dim templateWorkbook As Workbook
    
    ' 绑定当前模板工作簿对象，避免依赖ActiveWorkbook的焦点变化
    Set templateWorkbook = ThisWorkbook
    
    ' 检查引用工作簿是否已打开
    If Not isBookOpen(REF_FILENAME) Then
        refFilePath = templateWorkbook.Path & "\" & REF_FILENAME
        
        ' 准确判断文件是否存在（仅检测文件，排除文件夹）
        If Dir(refFilePath, vbNormal) <> vbNullString Then
            ' 直接以隐藏状态打开工作簿，绕开窗口焦点切换的兼容性问题
            Set refWorkbook = Workbooks.Open(Filename:=refFilePath, Visible:=False)
        Else
            MsgBox "引用文件缺失，LOV功能将无法使用。" & vbCrLf & "请将最新版本的引用文件放置在模板文件同一文件夹下。", _
                   vbCritical + vbOKOnly, "引用文件缺失"
        End If
    End If
End Sub

Function isBookOpen(wbName As String) As Boolean
    Dim wb As Workbook
    On Error Resume Next
    ' 统一大小写，避免高版本系统对文件名大小写敏感的问题
    Set wb = Workbooks(UCase(wbName))
    isBookOpen = Not (Err.Number <> 0)
    On Error GoTo 0 ' 恢复默认错误处理，避免影响其他代码
End Function

关键修改说明 #

• 强制变量声明：添加Option Explicit，避免因隐式变量类型错误导致的兼容性问题，高版本VBA环境对未声明变量的限制更严格。
• 替换ActiveWorkbook为ThisWorkbook：ThisWorkbook始终指向当前执行代码的工作簿，不会因窗口焦点变化而改变，比依赖ActiveWorkbook更稳定。
• 修复文件存在判断逻辑：用Dir(..., vbNormal)替代vbDirectory，确保只检测目标文件（而非同名文件夹）是否存在，避免误判。
• 直接隐藏打开工作簿：在Workbooks.Open时通过Visible:=False参数直接隐藏，无需后续手动切换窗口状态，避免高版本Excel中窗口管理的异常行为。
• 优化工作簿检测函数：统一文件名大小写，适配部分高版本系统的大小写敏感特性；恢复默认错误处理，避免影响其他代码的错误捕获逻辑。

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