命令按钮运行时异常

Question

我有一个示例代码，用于在 excel 工作表中创建按钮 vb.net 代码如下：

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-commandbar-controls-to-outlook