Question

我在VBA中使用了Excel-2010的Addin。如果我从VBA编辑器执行代码，它工作正常。但是当我使用为Addin生成的功能区中的按钮执行宏时，它会抛出此错误：Compile Error in Hidden Module: Module 1

我的代码：

Sub QE_eventhandler(control As IRibbonControl)
    If MsgBox("Esta acción no se podrá deshacer. ¿Desea Continuar?", vbExclamation + vbOKCancel, "Confirmar -Quitar Espacios-") = vbOK Then
        QuitaEspacios
    End If
End

Sub QuitaEspacios()
Dim celda As Range
    For Each celda In Selection
        If TypeName(celda.Value) = "String" Then
            celda.Value = Application.WorksheetFunction.Trim(celda.Value)
        End If
    Next
 End Sub

使用自定义用户界面编辑器生成的代码：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon>
        <tabs>
            <tab id="customTab" label="GARSA Tools">
                <group id="customGroup1" label="Reformateo Texto">
                    <button id="customButton3" label="Quitar Espacios" size="large" onAction="QE_eventhandler" imageMso="TextEffectTracking" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Answer 1

在回调结束时你错过了End Sub - 你只有End：

Sub QE_eventhandler(control As IRibbonControl)
    If MsgBox("Esta acción no se podrá deshacer. ¿Desea Continuar?", vbExclamation + vbOKCancel, "Confirmar -Quitar Espacios-") = vbOK Then
        QuitaEspacios
    End If
End Sub

Answer 2

查看以下描述类似问题的链接：

You receive a "Compile error in hidden module" error message when you start Word or Excel

compile error in Excel

隐藏模块中的编译错误：模块1

2 个答案: