代码本身能运行，但制作成加载宏报错，求协助

简心20130519

有一张源始表，每天都要处理几次实时数据。现在代码已经写好了，拿到模块中运行没问题。
但员工不方便使用，因此做成了加载项，但是加载项运行就是不行。报错如图。


求高手帮忙看看。

1. Private Sub Workbook_AddinInstall()
   
2.    With Application.CommandBars("standard").Controls.Add
   
3.      .Style = msoButtonCaption
   
4.      .Caption = "无排面数据提取"
   
5.      .Visible = True
   
6.      .Width = 50
   
7.      .OnAction = "模块1.无排面分析"
   
8.     End With
   
9. End Sub
   
10. 
    
11. 
    
12. Private Sub Workbook_AddinUninstall()
    
13. On Error Resume Next
    
14. Application.CommandBars("standard").Controls("无排面数据提取").Delete
    
15. On Error GoTo 0
    
16. End Sub
    

复制代码

加载宏里有附加工具栏代码

不知道错在何处。

taller

简心20130519

taller 发表于 2023-5-1 11:43

按老师说的，改了测试了一下，依然报错。不知道还有哪里出问题。

简心20130519

改了以后，出错的位置基本没变

taller

代码行中Sheet1之前需要加工作簿对象

简心20130519

taller 发表于 2023-5-1 23:46
代码行中Sheet1之前需要加工作簿对象

我也加过的。