Dim xlApp
As Excel.ApplicationDim xlbook
As Excel.WorkbookDim xlsheet As Excel.WorksheetPrivate Sub Command1_Click()
Set xlApp = New Excel.Application
Dim 菜单栏 As CommandBar
Set 菜单栏 = xlApp.CommandBars.Add
With 菜单栏
.Visible = True
.Name = "我的主菜单"
End WithEnd Sub'注意你这段代码是放在vb里面执行,而不是excel的宏...