Excel VBA跨工作表求和问题：变量引用触发文件打开弹窗

核心问题 #

你代码里的公式写的是'XCXX'!R[-64]C[-24]，这里的XCXX是固定字符串，Excel会把它当成外部文件名处理，所以才会弹出打开文件的窗口；另外用Select和ActiveCell依赖当前活动工作表，很容易因为工作表切换出问题。

修正后的代码 #

Sub AddWorkbooks()
    Dim XCXX As Worksheet
    Dim CoForm As Worksheet
    Dim newCoForm As Worksheet ' 存储复制后的新模板工作表
    
    Set XCXX = ActiveSheet
    Set CoForm = Worksheets("+CO Form+")
    
    ' 复制模板表并将新表赋值给变量
    Set newCoForm = CoForm.Copy(After:=Sheets(ActiveSheet.Index))
    
    ' 直接操作新表单元格，无需切换选择状态
    With newCoForm
        .Range("A6:D6").Value = XCXX.Range("D2").Value
        ' 将工作表变量的名称拼接进公式，让Excel识别为当前工作簿内的工作表
        .Range("AD81").FormulaR1C1 = "='" & XCXX.Name & "'!R[-64]C[-24]+'" & XCXX.Name & "'!R[-64]C[-23]"
    End With
End Sub

关键修正点 #

• 公式拼接变量名：用"='" & XCXX.Name & "'!..."替代原固定字符串，这样公式会引用XCXX指向的实际工作表，而不是字面意义的"XCXX"。
• 取消Select操作：直接通过单元格对象赋值，彻底摆脱对活动工作表的依赖，避免切换工作表时出现引用错误，同时提升代码执行效率。
• 定位新工作表：原代码复制模板后仍操作旧的CoForm表，现在把新复制的工作表存到newCoForm变量，确保操作的是新建的目标模板表。

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