VBA技术求助：实现执行外部宏前的工作簿状态与存储位置校验功能

嘿，我来帮你搞定这个VBA逻辑整合的麻烦事儿！你需要的是点击按钮时一套连贯的校验流程：检查FileB是否打开→没打开就查指定路径有没有→没有就让用户手动定位，之前的代码片段因为重复逻辑和判断顺序问题导致冲突，现在给你一套干净、可复用的解决方案。

先明确你的核心需求 #

你要实现的是：当点击FileA里调用FileB宏的按钮时，自动完成以下步骤，中间不能有逻辑断裂或冗余：

• 第一步：检查FileB（Maskiosk_Companion_Herbier.xlsm）是否已经在Excel中打开
• 第二步：如果没打开，检查它是否在预设的指定存储路径里
• 第三步：如果路径里没有，弹出提示问用户要不要手动找到并打开它
• 只有当FileB成功打开后，才运行目标宏

完整整合后的VBA代码 #

我把重复的逻辑封装成了通用函数，这样既避免冗余，也让主宏的逻辑更清晰：

' 通用函数：检查指定路径的工作簿是否已打开
Function IsWorkBookOpen(filePath As String) As Boolean
    Dim ff As Long, ErrNo As Long
    On Error Resume Next
    ff = FreeFile()
    Open filePath For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0
    
    Select Case ErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error ErrNo
    End Select
End Function

' 通用函数：检查文件是否存在，不存在则提示用户定位打开，返回打开的工作簿对象（如果成功）
Function GetOrLocateWorkbook(targetPath As String) As Workbook
    Dim wb As Workbook
    Dim userChoice As Variant
    
    ' 先检查是否已打开
    If IsWorkBookOpen(targetPath) Then
        ' 遍历找到已打开的工作簿
        For Each wb In Workbooks
            If wb.FullName = targetPath Then
                Set GetOrLocateWorkbook = wb
                Exit Function
            End If
        Next wb
    End If
    
    ' 未打开，检查文件是否在指定路径存在
    If Dir(targetPath) = "" Then
        ' 文件没找到，询问用户是否定位
        userChoice = MsgBox("FileB不在指定位置！是否手动定位并打开？", vbYesNo + vbQuestion, "文件未找到")
        If userChoice = vbNo Then
            Set GetOrLocateWorkbook = Nothing
            Exit Function
        End If
        
        ' 让用户选择文件（只显示xlsm格式，避免选错）
        userChoice = Application.GetOpenFilename(FileFilter:="Excel 宏启用文件 (*.xlsm), *.xlsm", Title:="定位FileB")
        If userChoice = False Then
            Set GetOrLocateWorkbook = Nothing
            Exit Function
        End If
        
        ' 打开用户选中的文件
        On Error Resume Next
        Set wb = Workbooks.Open(userChoice)
        On Error GoTo 0
    Else
        ' 文件存在，直接打开
        On Error Resume Next
        Set wb = Workbooks.Open(targetPath)
        On Error GoTo 0
    End If
    
    ' 返回打开的工作簿（成功的话）
    Set GetOrLocateWorkbook = wb
End Function

' Tab1切换到Tab2的按钮宏（优化版，复用通用逻辑）
Sub Bascule_herbier_Click()
    Dim targetPath As String
    Dim companionWB As Workbook
    
    ' 切换工作表可见性
    Sheets("Herbier").Visible = True
    Sheets("Kiosk").Visible = False
    Sheets("Support").Visible = False
    Sheets("Divers").Visible = False
    Sheets("CR200").Visible = False
    
    ' 提示用户宏文件要打开，记得启用宏
    MsgBox "一个宏文件将在后台打开，请允许宏运行（点击顶部黄色栏的「启用内容」按钮）。", vbOKOnly + vbInformation, "操作提示"
    
    ' 定义FileB的固定路径
    targetPath = "W:\Ateliers\PHOTO\Masks\Kiosk support\Kiosk - Fichiers utilitaires\Maskiosk_Companion_Herbier.xlsm"
    
    ' 调用通用函数处理打开逻辑
    Set companionWB = GetOrLocateWorkbook(targetPath)
    
    ' 如果打开失败，给用户提示
    If companionWB Is Nothing Then
        MsgBox "无法打开FileB，部分功能将无法使用！", vbExclamation, "打开失败"
    End If
End Sub

' Tab2中调用FileB宏的按钮宏（核心需求实现）
Sub Herbier_Appel_09()
    Dim targetPath As String
    Dim companionWB As Workbook
    
    ' 定义FileB的网络路径（注意和上面的路径保持一致，如果是同一个文件的话）
    targetPath = "\\crodisk.cro.st.com\w\Ateliers\PHOTO\Masks\Kiosk support\Kiosk - Fichiers utilitaires\Maskiosk_Companion_Herbier.xlsm"
    
    ' 一键完成所有校验逻辑：检查是否打开→检查路径→提示定位
    Set companionWB = GetOrLocateWorkbook(targetPath)
    
    ' 只有成功打开FileB，才运行目标宏
    If Not companionWB Is Nothing Then
        On Error Resume Next
        Application.Run targetPath & "!RPR_01"
        ' 如果宏运行出错，提示用户
        If Err.Number <> 0 Then
            MsgBox "运行宏RPR_01时出错：" & Err.Description, vbCritical, "宏运行失败"
        End If
        On Error GoTo 0
    Else
        MsgBox "无法打开FileB，无法执行宏！", vbExclamation, "操作终止"
    End If
End Function

代码关键亮点 #

1. 通用函数复用：把重复的检查逻辑（是否打开、是否存在、定位打开）封装成两个函数，以后再需要调用FileB的宏，直接用GetOrLocateWorkbook就行，不用再写重复代码，也避免了逻辑冲突。
2. 严格按需求顺序执行：GetOrLocateWorkbook完全按照你要的流程走，先查是否打开，再查路径，最后提示定位，一步都不缺，也不会多做无用功。
3. 错误处理更友好：添加了错误捕获，不管是文件打开失败还是宏运行出错，都会给用户明确的提示，不会直接崩溃。
4. 路径统一管理：把FileB的路径写成变量，以后如果路径变了，只需要改一处就行，不用到处找代码修改。

怎么替换你现有的代码 #

1. 打开FileA的VBA编辑器（按Alt+F11）
2. 找到你之前放代码的模块，把旧代码全删掉
3. 新建一个模块（右键「插入」→「模块」），把上面的完整代码粘贴进去
4. 给Tab1的切换按钮指定宏Bascule_herbier_Click
5. 给Tab2的宏调用按钮指定宏Herbier_Appel_09
6. 测试一下：
   • 点击Tab1的切换按钮，会自动切到Tab2，同时处理FileB的打开逻辑
   • 点击Tab2的宏按钮，会先完成所有校验，确认FileB打开后再运行目标宏

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