Excel VBA动态生成Button设置.OnAction时报错1004如何解决？

• 检查文件格式与宏权限
  确认当前文件保存为启用宏的工作簿格式（.xlsm/.xlsb/.xls），且打开文件时已启用宏内容，Excel宏安全设置未禁止VBA运行。
• 修正OnAction属性的赋值格式
  当OnAction引用的宏和当前代码在同一工作簿时，最好补全工作簿名称前缀，避免Excel无法定位宏；如果工作簿名称包含空格、特殊字符，需要用单引号包裹工作簿名，修正写法如下：

' 适配带特殊字符的工作簿名
.OnAction = "'" & ThisWorkbook.Name & "'!TCL1"

• 确认TCL1过程的作用域与存储位置
  确认TCL1过程没有被声明为Private，且存放在标准模块中；如果是放在工作表模块/类模块中，需要补充模块名前缀，比如'" & ThisWorkbook.Name & "'!模块名.TCL1。
• 确认目标工作表未被保护
  检查shtTCL工作表是否设置了保护，保护状态下无法新增按钮或修改按钮属性，需要先解除保护再执行控件添加代码。
• 可选优化：修正变量声明写法
  现有代码中的Dim rngBtn1, rngBtn2, rngBtn3, rngBtn4 As Range写法实际只将最后一个变量声明为Range类型，前面三个均为Variant类型，建议逐个指定类型避免后续潜在问题：

Dim rngBtn1 As Range, rngBtn2 As Range, rngBtn3 As Range, rngBtn4 As Range
Dim btn1 As Button, btn2 As Button, btn3 As Button, btn4 As Button

修正后核心代码示例 #

Public Sub OFFD_Report_Parse()
   Init 'just declares workbook and worksheet globals

   ' 如果工作表有保护，先解除（密码自行替换，无密码则省略参数）
   ' shtTCL.Unprotect Password:="yourpassword"
   
   If shtTCL.Visible = False Then shtTCL.Visible = True
   shtTCL.Activate
   shtMenu.Visible = False
        
   Dim rngBtn1 As Range, rngBtn2 As Range, rngBtn3 As Range, rngBtn4 As Range
   Dim btn1 As Button, btn2 As Button, btn3 As Button, btn4 As Button

   Set rngBtn1 = shtTCL.Range("B10")
   Set btn1 = shtTCL.Buttons.Add(rngBtn1.Left, rngBtn1.Top, rngBtn1.Width, rngBtn1.Height)
   With btn1
    .OnAction = "'" & ThisWorkbook.Name & "'!TCL1"
    .Caption = "Copy 1"
   End With
   
   ' 操作完成后可恢复工作表保护
   ' shtTCL.Protect Password:="yourpassword"
End Sub

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