新建工具栏实例Sub新建工具栏()Application.CommandBars.Add(Name:="我的工具栏").Visible=True'新建一个自定义工具栏，名为我的工具栏，并可见。
Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=3,Before:=1'添加保存按钮，在第一个位置Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=1849,Before:=2'添加查找按钮，在第二个位置Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=295,Before:=3'添加插入单元格按钮Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=395,Before:=4'添加货币样式按钮EndSub
