VBA遍历文件写入引用公式弹出Update Values窗口需手动选路径怎么解决

• 公式字符串拼接错误：你在代码中直接把myfile写死在公式的引号内部，VBA不会自动识别引号内的变量名，会把myfile当成固定的文件名去查找，找不到对应文件就会弹出「更新值」窗口要求手动定位。
• 公式语法错误：引用已定义的命名单元格不需要加.value后缀，公式中加入该后缀会被Excel识别为无效的单元格名称，进一步触发引用校验弹窗。
• 逻辑缺陷：你每次循环都把结果写入固定的Range("I6")单元格，后处理的文件数据会直接覆盖之前的结果，无法保留所有文件的提取数据。

推荐优先使用「直接读取值写入」的方案，不需要生成动态公式，完全不会触发引用更新弹窗：

1. 遍历打开目标文件后，直接读取已命名单元格Salary的取值
2. 新增行计数变量，每个文件的结果写入不同行避免覆盖
3. 处理完成后自动关闭遍历打开的工作簿，减少内存占用

Sub 提取指定文件夹下文件的命名单元格值()
    Dim myfolder As String
    Dim myfile As String
    Dim wbk As Workbook
    Dim i As Integer ' 行计数变量，避免数据覆盖
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择目标文件夹"
        .AllowMultiSelect = False
        If .Show <> -1 Then Exit Sub ' 加判断，用户点取消直接退出
        myfolder = .SelectedItems(1) & "\"
    End With
    
    myfile = Dir(myfolder & "*.xls*") ' 只筛选Excel文件，避免打开无关文件报错
    i = 6 ' 初始从第6行开始写，对应你原来的I6位置
    
    ' 关闭屏幕更新和弹窗，加快运行速度
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Do While myfile <> ""
        Set wbk = Workbooks.Open(Filename:=myfolder & myfile, ReadOnly:=True) ' 只读打开更稳定
        ' 直接读取Salary命名单元格的值写入当前工作表I列，不需要写公式
        ThisWorkbook.ActiveSheet.Range("I" & i).Value = wbk.Names("Salary").RefersToRange.Value
        wbk.Close SaveChanges:=False ' 处理完直接关闭文件，不保存修改
        i = i + 1 ' 行号+1，下一个文件的数据写在下一行
        myfile = Dir
    Loop
    
    ' 恢复设置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "数据提取完成，共处理" & i - 6 & "个文件"
End Sub

如果你确实需要保留公式链接，可以把写入值的行替换为下面的代码，注意动态拼接文件名：

' 文件名有空格时需要用单引号包裹，所以拼接时要加单引号
ThisWorkbook.ActiveSheet.Range("I" & i).Formula = "='" & myfile & "'!Salary"

你遇到的「更新值」弹窗效果如下：

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