主文件关联多文件链接问题：VLOOKUP公式打印时未更新

看起来你的核心问题是：当前的Calc子程序只负责刷新主文件自身的工作表计算，但那些依赖主文件数据的外部文件（带VLOOKUP的50-60个文件）并没有被触发重新计算，所以打印时用的还是旧的缓存值。

下面给你几个针对性的解决方案：

方案1：如果外部文件已经处于打开状态 #

如果打印前你已经打开了那些带VLOOKUP的文件，可以修改打印逻辑，在打印前强制每个外部文件完成计算：

Sub PrintAndRefreshFiles()
    Dim wb As Workbook
    Dim originalCalc As XlCalculation
    
    ' 先保存当前的计算模式，避免影响后续操作
    originalCalc = Application.Calculation
    Application.Calculation = xlManual
    
    ' 遍历所有打开的工作簿（排除主文件）
    For Each wb In Application.Workbooks
        If wb.Name <> ThisWorkbook.Name Then ' 跳过主文件
            wb.Activate
            ' 强制刷新该工作簿的所有公式（包括VLOOKUP引用）
            wb.CalculateFullRebuild ' 彻底重建计算链，确保外部引用更新
            ' 执行打印操作（替换成你原来的打印代码）
            wb.PrintOut Copies:=1
        End If
    Next wb
    
    ' 恢复原来的计算模式
    Application.Calculation = originalCalc
End Sub

方案2：如果外部文件是关闭状态（批量打开、刷新、打印） #

如果那些文件平时是关闭的，你可以先批量打开它们，刷新计算后打印，最后按需关闭：

Sub BatchOpenRefreshPrint()
    Dim filePath As String
    Dim fileName As String
    Dim wb As Workbook
    Dim originalCalc As XlCalculation
    Dim mainWBName As String
    
    mainWBName = ThisWorkbook.Name
    originalCalc = Application.Calculation
    Application.Calculation = xlManual
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提升速度
    
    ' 设置外部文件所在的文件夹路径（修改成你的实际路径）
    filePath = "C:\Your\External\Files\Path\"
    fileName = Dir(filePath & "*.xlsx") ' 假设是xlsx格式，按需调整
    
    Do While fileName <> ""
        ' 跳过主文件（如果主文件在同一个文件夹）
        If fileName <> mainWBName Then
            Set wb = Workbooks.Open(filePath & fileName)
            ' 彻底刷新所有计算，包括外部引用的VLOOKUP
            wb.CalculateFullRebuild
            ' 打印
            wb.PrintOut Copies:=1
            ' 可以选择保存后关闭，或者直接关闭
            wb.Close SaveChanges:=True ' 如果不需要保存就改成False
        End If
        fileName = Dir()
    Loop
    
    ' 恢复设置
    Application.ScreenUpdating = True
    Application.Calculation = originalCalc
End Sub

为什么你的原Calc子程序没用？ #

你的原代码：

Sub Calc()
 Dim ws As Worksheet
 Application.Calculation = xlManual
 For Each ws In ActiveWorkbook.Sheets
 ws.Calculate
 Next ws
 Application.Calculation = xlAutomatic
End Sub

它只遍历了ActiveWorkbook（也就是主文件）的工作表并计算，完全没有触及那些引用主文件的外部工作簿。Excel的外部引用默认不会实时刷新，尤其是在文件关闭或未激活的情况下，所以那些文件的VLOOKUP公式自然不会更新。

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