[已解决]CommandBars相关求助-添加工具栏或命令栏后，如何完整退出excel

neudjb

CommandBars相关求助-添加工具栏或命令栏后，excel2010、2013在win7 64bit退出excel后excel进程在任务管理器中滞留。
导致再打开excel很慢。

分析原因：通过procmon分析excel进程在处理excel14.xlb或者excel15.xlb
应该是没有退出命令栏。(如何完整的退出（删除）之前添加的Tbar、或者有没有别的添加按钮执行宏的代码（除了Commandbar）)

代码：
sub workbook_open()

Dim Tbar as Commandbar
       Set Tbar = Application.CommandBars.Add(Name:="项目部",Temporary:=True)
end sub
sub Workbook_BeforeClose(Cancel As Boolean)
     Dim Tbar as Commandbar
     Set Tbar = Application.CommandBars("项目部")
     Tbar.Delete
end sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-7-13 17:16

(, 下载次数: 13)

上传

点击文件名下载附件
(, 下载次数: 12)

上传

点击文件名下载附件

在你电脑上44，是不是有问题

跳转到最佳答案楼层

爱疯

1）当 Temporary:=True 时，则该命令栏就只是临时的，EXCEL退出后便自动删除。

2）添加时设置了Name:="项目部"，为何接着又设置 Name="aaa"

neudjb

爱疯 发表于 2015-7-13 11:38
1）当 Temporary:=True 时，则该命令栏就只是临时的，EXCEL退出后便自动删除。

2）添加时设置了Name:="项 ...

我也知道这个参数是临时的，但是为啥关闭excel后，excel进程还在，等半分钟才能消失。
请问还有没有其他添加按钮执行宏的好方法，我想试试。

爱疯

"等半分钟才能消失"，这个我不知道。

"有没有其他添加按钮执行宏的好方法"，不清楚这是什么意思，是问还有什么途径让宏执行？

neudjb

爱疯 发表于 2015-7-13 15:27
"等半分钟才能消失"，这个我不知道。

"有没有其他添加按钮执行宏的好方法"，不清楚这是什么意思，是问还 ...

恩，不通过Commandbar添加按钮，通过其他方式执行宏代码。

爱疯

你的宏，是做什么？

neudjb

爱疯 发表于 2015-7-13 16:18
你的宏，是做什么？

对Excel概算表进行数据分析处理，生成新的表格。得需要按钮用来点击。
就是想不通过Commandbar创建按钮。有可行方案吗

爱疯

放在某个工作表事件里，可以吗？

neudjb

爱疯 发表于 2015-7-13 16:42
放在某个工作表事件里，可以吗？

可以。大师给个样例？

爱疯

1.rar (7.87 KB, 下载次数: 1)

2015-7-13 16:56 上传

点击文件名下载附件



这样，每当"1.xls"被打开时，就会自动去执行test。

也可以选择其他的事件来执行。