大虾乱入啊

[txknick]

用vb如何给excel的工具栏上添加上按钮，请各位大虾指点

[gouhan02]

牛，期待。搂主解决了记得分享一下。

[txknick]

按钮我已经解决了 但是不能调用程序 还请人帮我看看

Dim objexcelfile As Excel.Application
Dim objworkbook As Excel.Workbook
Dim objimportsheet As Excel.Worksheet
Dim mybar As Office.CommandBar
Dim mybutton As Office.CommandBarButton
Set objexcelfile = CreateObject("Excel.Application")
Set objworkbook = objexcelfile.Workbooks.Open("C:\Documents and Settings\nick\桌面\vba\复件 单元格.xls")
objexcelfile.Visible = True
Set objimportsheet = objworkbook.Worksheets("操作")
Set mybutton = objexcelfile.CommandBars.FindControl(Type:=msoControlButton, Tag:="我的按钮")
If mybutton Is Nothing Then
'添加按钮
Set mybar = objexcelfile.CommandBars.Add(Name:="我的工具条", Position:=msoBarTop)
mybar.Visible = True
Set mybutton = mybar.Controls.Add(Type:=msoControlButton)
mybutton.Caption = "我的按钮"
mybutton.Style = msoButtonCaption
mybutton.Tag = "我的按钮"
mybutton.OnAction = "nick" '与此宏名相同
Else
'执行代码
MsgBox "让我们即刻开始工作"
End If
End Sub
Private Sub nick()
MsgBox "ok"
End Sub