以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用以下代码为excel添加自定义工具栏，不成功，有解决的途径吗,懂vba的看过来，帮助解决一下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117073)
--  作者：百灵
--  发布时间：2018/4/5 16:05:00
--  用以下代码为excel添加自定义工具栏，不成功，有解决的途径吗,懂vba的看过来，帮助解决一下
用以下代码为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)
--  作者：百灵
--  发布时间：2018/4/6 11:45:00
--  
用下面代码又测试了一下，还是不行，出现“库未注册”，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("宏名称“）执行宏实现了。如还有别的办法，请分享一下。
--  作者：有点甜
--  发布时间：2018/4/6 13:47:00
--  

没办法。需要MSOffice这个dll的版本和你当前office的版本一致，才能操控的。目前msoffice的版本是15版，你的office可能需要14、12、11版。

 

我这边也无法测试调通。建议放弃。

 

 
--  作者：百灵
--  发布时间：2018/4/6 13:54:00
--  
好，那就用宏替代吧，谢谢