使用VBA为表单按钮分配宏遇异常：OnAction属性更新无效

核心问题 #

1. 复制工作表到新工作簿后，直接设置按钮OnAction为宏名，Excel会自动关联原工作簿的宏（因为新工作簿未保存，无独立标识）
2. 手动指定宏路径时，Excel会自动补全完整路径，导致后续打开新工作簿时，因路径变化引发宏关联失效

解决方案一：先保存新工作簿，再设置宏关联 #

新工作簿保存后，Excel会生成独立的文件标识，此时设置OnAction时，会自动使用不带路径的工作簿名，避免路径问题。

修改后的完整代码：

Sheets(mySheets).Copy
ActiveWorkbook.Worksheets("ExportEmail").Visible = xlSheetVisible

Dim ExternalLinks As Variant
Dim x As Long
' 断开外部链接（增加判空，避免无链接时报错）
ExternalLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(ExternalLinks) Then
    For x = 1 To UBound(ExternalLinks)
        ActiveWorkbook.BreakLink Name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks
    Next x
End If

' 先保存新工作簿，获取独立标识
Dim newWB As Workbook
Set newWB = ActiveWorkbook
newWB.SaveAs myFolder & NewName & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

' 设置按钮宏关联，此时Excel会自动使用不带路径的工作簿名
newWB.Worksheets("ExportEmail").Buttons("Export Email Button").OnAction = "'" & NewName & ".xlsm'!Sheet4.ExportEmail"

' 保存修改后关闭
newWB.Save
newWB.Close savechanges:=False

解决方案二：使用本地宏直接引用 #

如果宏位于新工作簿的工作表模块内（比如Sheet4.ExportEmail），可直接省略工作簿名，因为按钮和宏属于同一工作簿，Excel会自动识别本地宏：

' 保存工作簿后执行此代码
newWB.Worksheets("ExportEmail").Buttons("Export Email Button").OnAction = "Sheet4.ExportEmail"

问题原因说明 #

• 未保存的新工作簿无独立文件标识，Excel会默认沿用原工作簿的上下文，导致宏关联指向原文件
• 未保存时手动指定工作簿名，Excel会自动补全完整路径（基于SaveAs的目标路径），而非仅文件名，后续文件移动或重命名后宏就会失效

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