如何修改录制宏中引用的每月更名工作簿（无需重写公式）

核心问题说明 #

直接用VBA工作簿对象Debtbalance替换公式里的固定文件名行不通——Excel公式识别的是工作簿的实际文件名（带扩展名），而非VBA代码里定义的对象变量名。下面提供两种无需重写复杂公式的修改方案：

方法一：用工作簿名称动态替换（推荐） #

利用Debtbalance.Name获取已打开工作簿的实际文件名，替换录制公式里的固定名称即可。修改后代码如下：

Dim Network As Object
Set Network = CreateObject("wscript.network")

Dim basePath As String
basePath = "my base path" ' 替换为你的实际路径，使用英文引号

Dim Debtbalance_Path As String
Debtbalance_Path = basePath & "rest of the path" ' 补全完整路径，使用英文引号

Dim Debtbalance As Workbook
Set Debtbalance = Application.Workbooks.Open(Debtbalance_Path)

' 定义公式模板，将固定文件名替换为占位符
Dim formulaTemplate As String
formulaTemplate = "=ROUND(SUMIFS([{WB_NAME}]Sheet1!C8,[{WB_NAME}]Sheet1!C14,"">=""&R[-3]C[-3],[{WB_NAME}]Sheet1!C14,""<=""&R[-3]C[-2]),0)"

' 替换占位符为实际工作簿名称
Dim finalFormula As String
finalFormula = Replace(formulaTemplate, "{WB_NAME}", Debtbalance.Name)

' 直接赋值给目标单元格，避免冗余的Activate/Select操作
ThisWorkbook.Sheets("MTD Checks").ActiveCell.FormulaR1C1 = finalFormula

关键细节：

• 将录制公式中的固定文件名Monthly Debt Balance_202307.xlsx统一替换为占位符{WB_NAME}，再通过Replace函数动态代入Debtbalance.Name
• 移除了Windows.Activate和Sheets.Select，直接通过工作表对象操作，代码更稳定高效

方法二：用完整路径避免同名冲突 #

如果担心存在同名工作簿导致引用错误，可使用Debtbalance.FullName（包含完整路径）替换，Excel会自动处理为正确的外部引用格式：

' 替换逻辑修改为：
finalFormula = Replace(formulaTemplate, "{WB_NAME}", "'" & Debtbalance.FullName & "'")

添加单引号是因为路径可能包含空格或特殊字符，Excel公式需要用单引号包裹这类外部路径。

额外注意事项 #

• 确保Debtbalance工作簿已成功打开，否则会触发运行时错误
• 录制宏生成的公式中，双引号需用VBA规则转义（两个双引号代表一个实际双引号），原代码中的""<="";&""&属于错误写法，需修正为""<=""&

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