分发excel宏

Question

我创建了一个excel宏，现在我希望它分发给需要使用它的其他人。

我想要的是，如果有人可以帮助我将步骤附加到自定义工具栏按钮，然后保存自定义工具栏和.xla文件。

然后用户可以将.xla文件存储到XLSTART控制器上，当启动excel时，会出现自定义工具栏并准备使用。

Answer 1

此代码添加了一个新的菜单选项，并引用了VBA方法，因此类似于您想要的内容。

将这些添加到工作簿VBA：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
   MenuBars(xlWorksheet).Menus("NewMenu").Delete
End Sub

Private Sub Workbook_Open()
On Error Resume Next
    MenuBars(xlWorksheet).Menus("NewMenu").Delete
    Dim statMenu As Menu
    Set statMenu = MenuBars(xlWorksheet).Menus.Add(Caption:="NewMenu")
    statMenu.MenuItems.Add Caption:="Item 1", OnAction:="RunFirstItem"
    statMenu.MenuItems.Add Caption:="Item 2", OnAction:="RunSecondItem"
End Sub

然后添加一些方法RunFirstItem＆amp; RunSecondItem到模块代码。

另存为.XLA，然后离开。