如何让Excel模板生成的新工作簿按钮调用本地VBA宏而非模板宏

问题出在你设置按钮OnAction时硬编码了原模板的工作表代码名称（Sheet2.Button_Click），导致按钮会尝试调用原模板的宏，而非新工作簿自身的代码。要让按钮指向新工作簿内的宏，需修改OnAction的引用方式，同时优化代码避免使用Select/Activate提升稳定性。

修改后的模板代码 #

Sub saveRatesFile()
    Dim tariffSheet As Worksheet
    Dim savePdfBtn As Button
    
    ' 定位到新工作簿中的Tariff Page工作表
    Set tariffSheet = ThisWorkbook.Sheets("Tariff page")
    
    ' 添加按钮并设置基础属性
    Set savePdfBtn = tariffSheet.Buttons.Add(700, 10.5, 173.25, 41.25)
    savePdfBtn.Name = "SavePDFButton" ' 自定义按钮名称，避免默认名称冲突
    savePdfBtn.Text = "Save as PDF"
    
    ' 关键：设置按钮点击事件指向当前工作簿内的宏
    ' 格式：'工作簿名'!工作表代码名称.宏名
    savePdfBtn.OnAction = "'" & tariffSheet.Parent.Name & "'!" & tariffSheet.CodeName & ".Button_Click"
End Sub

额外设置（重要） #

• 修改工作表代码名称：打开模板的VBA编辑器，找到Tariff Page工作表的代码模块（默认可能是Sheet2），按F4调出属性窗口，把(名称)改成固定名称（比如TariffSheet）。复制到新工作簿后，该代码名称不会变化，宏引用更稳定。
• 保存格式：新工作簿必须保存为启用宏的工作簿（.xlsm），否则同事打开后代码无法运行。
• 宏权限提醒：告知同事打开文件时需启用宏（Excel默认禁用宏，需手动允许）。

原理说明 #

• tariffSheet.Parent.Name自动获取新工作簿的动态名称，无需硬编码。
• tariffSheet.CodeName是工作表的内部代码名称，比显示名称更可靠（不会因用户重命名工作表失效）。
• 用'工作簿名'!工作表代码名称.宏名的格式，明确指定宏所在的工作簿和工作表，彻底脱离对原模板的依赖。

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