主题：用以下代码为excel添加自定义工具栏，不成功，有解决的途径吗,懂vba的看过来，帮助解决一下

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

app.CommandBars.Add("CustomBar", 1)

用下面代码又测试了一下，还是不行，出现“库未注册”，Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

app.Application.CommandBars("standard").Reset

看来，在狐表中操作excel菜单命令（如添加自定义工具栏、增加命令项等）无法实现了，只能通过编辑相关的宏，用app.run("宏名称“）执行宏实现了。如还有别的办法，请分享一下。