命令button运行时exception

我有一个示例代码，用于在Excel表单vb.net代码中创buildbutton，如下所示：

Dim button As Microsoft.Office.Interop.Excel.OLEObject button = _xlWorksheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=0, Top:=0, Width:=100, Height:=30) button.Name = "Send Mail" Dim oCommandBar As Microsoft.Office.Core.CommandBar Dim oCommandBarButton As Microsoft.Office.Core.CommandBarControl Dim tb As String = "My Toolbar" Dim _btnCaption As String = "Forward To BSC" 'Dim code As String 'code = "Sub button_Click()" & vbCrLf 'code = code & "Call Tester" & vbCrLf 'code = code & "End Sub" Try oCommandBar = _xlApp.CommandBars.Add(.......) 'oCommandBar = _xlApp.CommandBars.Add(.....) oCommandBar.Visible = True oCommandBarButton = oCommandBar.Controls.Add(button) oCommandBarButton.Caption = _btnCaption oCommandBarButton.OnAction = "button_Click" Catch ex As Exception Console.WriteLine(ex.Message) End Try Sub Tester() MsgBox("You have click on the test button") End Sub 

我不确定在下面添加什么：
_xlApp.CommandBars.Add(.......) and _xlApp.CommandBars.Add(.....)

请指教。 还指定所需的名称空间。 这是一个控制台应用程序。

Answer 1

我不确定你的问题是什么，但是：代码在bars集合中添加了一个新的命令栏。 语法是这样的：CommandBars.Add（“MyTemporaryToolbar”，_ MsoBarPosition.msoBarTop，False，True）; 有关更多信息，下面的文章可能对您有用： http : //msdn.microsoft.com/en-us/library/office/ff861773.aspx和http://www.codeproject.com/Articles/17458/Adding-命令栏的控件到前景