从Excel文件1向锁定的文件2传值并获取计算结果的实现方案咨询

嗨，这个需求我之前帮朋友处理过，用Excel的VBA宏就能搞定，全程在File1里操作就行，不用手动碰File2。下面给你详细的步骤和代码：

核心思路 #

通过VBA在File1中后台打开File2，找到那个唯一的解锁单元格写入要传递的值，等待File2完成公式计算后，读取指定的结果单元格内容，最后关闭File2并把结果写入File1的目标位置。

具体实现步骤&代码 #

1. 打开File1，按下Alt + F11打开VBA编辑器
2. 插入新模块：右键点击左侧工程窗口里的File1 → 插入 → 模块
3. 粘贴下面的代码，记得根据你的实际情况修改文件路径、单元格位置：

Sub SendValueAndGetResult()
    Dim file2Path As String
    Dim file2Workbook As Workbook
    Dim inputCellAddr As String
    Dim resultCellAddr As String
    Dim inputValue As Variant
    Dim resultValue As Variant
    
    ' 1. 配置参数，根据你的实际情况修改
    file2Path = "C:\YourFolder\File2.xlsx" ' File2的完整路径
    inputCellAddr = "A1" ' File2中唯一解锁的单元格地址（比如A1）
    resultCellAddr = "B1" ' File2中存放计算结果的单元格地址（比如B1）
    inputValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value ' File1中要传递的值所在单元格
    
    ' 2. 后台静默打开File2（不显示界面）
    Application.ScreenUpdating = False
    ' 如果File2有打开密码，在Password参数里填写，比如Password:="yourPassword"
    Set file2Workbook = Workbooks.Open(Filename:=file2Path, ReadOnly:=False, Password:="")
    
    ' 3. 写入值到File2的解锁单元格
    file2Workbook.Sheets("Sheet1").Range(inputCellAddr).Value = inputValue
    
    ' 4. 等待计算完成（如果公式复杂，可加延迟确保计算完成）
    Application.CalculateFull
    DoEvents ' 释放系统资源，确保计算流程走完
    
    ' 5. 读取File2的计算结果
    resultValue = file2Workbook.Sheets("Sheet1").Range(resultCellAddr).Value
    
    ' 6. 关闭File2，不保存（仅写入解锁单元格，无需改动原文件锁定状态）
    file2Workbook.Close SaveChanges:=False
    
    ' 7. 把结果写入File1的目标单元格
    ThisWorkbook.Sheets("Sheet1").Range("B1").Value = resultValue
    
    ' 恢复界面更新
    Application.ScreenUpdating = True
    
    MsgBox "操作完成！结果已返回File1", vbInformation
End Sub

关键注意事项 #

• 务必确认File2的解锁单元格和结果单元格地址准确，代码里的inputCellAddr和resultCellAddr要对应实际位置
• 如果File2设置了工作表保护密码，不需要额外处理——因为那个单元格本来就是解锁状态，可直接写入
• 若File2有复杂计算（比如数组公式、Power Query连接），可以在代码中添加延迟：Application.Wait Now + TimeValue("00:00:02")，确保计算完成再读取结果
• 运行宏前记得保存File1，避免意外情况导致数据丢失

备注：内容来源于stack exchange，提问作者MihaiJ