如何从已关闭的Excel工作簿提取数据且无需手动弹窗选择文件

你当前的代码是直接给单元格写入跨工作簿引用公式，当Excel无法匹配到对应路径下的[品牌名.xlsm]文件时，就会自动弹出文件选择窗口让用户手动定位，常见触发场景包括：

• 路径拼写错误、目标文件夹没有对应品牌命名的xlsm文件
• 品牌名单元格K2的值包含特殊字符/空格，导致拼接的文件路径不合法
• J盘属于网络映射盘，连接不稳定导致Excel无法正常访问路径

你可以先增加文件存在性校验，再改用不依赖单元格公式的方式读取关闭工作簿数据，完全避免弹窗：

Sub BrandSpecificSettings()
    Dim i As Integer
    Dim inputs As Worksheet
    Dim brand As String
    Dim filePath As String, fileName As String, fullRef As String
    
    Set inputs = Worksheets("inputs")
    brand = inputs.Range("k2").Value
    ' 拼接完整路径
    filePath = "J:\Wassner Enterprises\brand inventory sheets\"
    fileName = brand & ".xlsm"
    
    ' 第一步：先校验文件是否存在，不存在直接退出避免弹窗
    If Dir(filePath & fileName) = "" Then
        MsgBox "未找到对应品牌文件：" & filePath & fileName, vbExclamation
        Exit Sub
    End If
    
    ' 第二步：用ExecuteExcel4Macro读取关闭工作簿数据，不插入公式
    For i = 1 To 27
        If inputs.Range("A" & i).Value <> "" Then
            ' 拼接4.0宏引用格式，R[i]C2对应B列第i行
            fullRef = "'" & filePath & "[" & fileName & "]settings'!R" & i & "C2"
            inputs.Range("B" & i).Value = ExecuteExcel4Macro(fullRef)
        End If
    Next i
End Sub

• 如果你确实需要保留单元格的公式引用，可以在写入公式前先加上述的文件存在性校验，只要确认文件一定存在，就不会触发选择弹窗
• 要注意K2单元格的品牌名不要包含\/:*?"<>|这些Windows文件名不允许的特殊字符，否则会导致路径识别失败

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