vba - 如何创建带有工具栏的插件

Question

我正在努力寻找解决问题的方法。

我设计了几个用户窗体并在工作簿中编写了许多函数，并添加了一个带有调用这些函数的按钮的新工具栏。

现在我想要将此工作簿保存为加载项，这样当我在另一台 PC 上添加加载项时，工具栏就会出现。

但是工具栏没有出现。我可以将工作簿保存为具有所有功能和用户窗体的加载项，但我无法获得工具栏。

有什么建议么？

Answer 1

绝不是一个解决方案，但也许以下提供了一个起点:

从你所说的我认为你管理

在另一台电脑上激活您的 *.xlam 插件

您可以访问它的所有 vba 代码和用户表单

你可以 不是 访问它的 CustomUI 功能区

检查您的最终 *.xlam部署工具栏时，工具栏仍然在其中:

备份准备部署的插件文件 (*.xlam)。

打开文件，将文件扩展名更改为 .zip . (如果您使用像 7-zip 这样的文件存档器，则无需重命名)

文件内容\customUI\customUI.xml应该大致类似于以下内容。

示例 XML:

<customUI
xmlns="http://schemas.microsoft.com/office/2006/01/customui"
xmlns:shared="sharedNamespace"
onLoad="onLoadRibbonDB"
>
 <ribbon>
    <tabs>
        <tab idQ="shared:tabControls" label="AddIn_Beispiele" >

            <group id="grpA" label="Buttons">
                <button id="buttonA" label="Button_large" image="bunny2" onAction="buttonA_Click" size="large"/>
            </group>    

        </tab>
    </tabs>
 </ribbon>
</customUI>

请注意，即使功能区中存在小错误，Excel 也不会显示功能区。对于测试，排除任何可能导致错误的内容，然后逐步重新引入您的功能区控件。如果发现以下最常见的:

ID 没有区别(例如，用于其他功能区/加载项)

自定义图标格式不正确

未正确引用自定义图标

题外话:如果您计划在多台 PC 上部署该文件，则可以使用如下所示的简单宏:

Sub InstallAddIn()

    On Error GoTo skpError

    Dim path as String
    path = "L:\SQL_AddIn\SQL_AddIn_V1.0.xlam"
    name = "SQL_AddIn_V1.0"

    ' Copy the file
    With New FileSystemObject
        .CopyFile _
            path _
            , "C:\Users\" & Environ("USERNAME") & "\AppData\Roaming\Microsoft\AddIns\"
    End With

    ' Add-In Aktivieren
    AddIns(name).Installed = True
    MsgBox ws1.Cells(1, 2).Value & " installiert.", vbInformation
    Exit Sub

skpError:
    MsgBox "Fehler #" & Err & vbNewLine & Error

End Sub