通过表单控件列表框依次运行多个宏的问题求助

问题根源分析 #

出现“宏不存在”提示，通常是以下几个原因：

1. 宏名称不匹配：列表框中的文本和实际宏的名称存在差异（比如大小写、空格、拼写错误），或者宏位于其他模块/工作簿，未指定完整调用路径
2. 宏作用域限制：如果宏定义为Private Sub，Application.Run无法调用，必须改为Public Sub
3. 控件引用错误：代码中引用的控件名称（"Drop Down 66"）与实际控件名称不匹配

修正后的代码（含间隔执行功能） #

Sub RunSelectedMacrosFromListBox()
    Dim ctrl As OLEObject
    Dim listCtrl As Object
    Dim i As Integer
    Dim macroName As String
    Dim waitSeconds As Integer
    
    ' 设置宏执行后的间隔秒数，可自行调整
    waitSeconds = 3
    
    ' 引用目标工作表上的控件
    On Error Resume Next
    Set ctrl = Worksheets("Quote Template").OLEObjects("Drop Down 66")
    On Error GoTo ErrorHandler
    
    ' 检查控件是否存在
    If ctrl Is Nothing Then
        MsgBox "未找到指定控件，请检查控件名称是否正确", vbExclamation
        Exit Sub
    End If
    
    Set listCtrl = ctrl.Object
    
    Dim hasSelected As Boolean
    hasSelected = False
    
    ' 遍历选中项执行宏
    For i = 0 To listCtrl.ListCount - 1
        If listCtrl.Selected(i) Then
            hasSelected = True
            macroName = listCtrl.List(i)
            
            ' 尝试执行宏并捕获错误
            On Error Resume Next
            Application.Run macroName
            If Err.Number <> 0 Then
                MsgBox "执行宏 '" & macroName & "' 失败：宏不存在或无法调用", vbCritical
                Err.Clear
            Else
                ' 最后一个宏执行后无需等待
                If i < listCtrl.ListCount - 1 Then
                    Application.Wait Now + TimeValue("00:00:" & waitSeconds)
                End If
            End If
            On Error GoTo ErrorHandler
        End If
    Next i
    
    ' 执行完成提示
    If hasSelected Then
        MsgBox "选中的宏已完成执行", vbInformation
    Else
        MsgBox "未选中任何宏", vbExclamation
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "运行出错：" & Err.Description, vbCritical
End Sub

关键注意事项 #

• 核对宏名称：确保列表框中的文本与宏的名称完全一致，包括大小写和空格。如果宏在其他模块，需添加模块名（如Application.Run "Module1.wipers"）；在其他工作簿则需添加工作簿名（如Application.Run "'文件名.xlsm'!wipers"）
• 修改宏作用域：所有要调用的宏必须定义为Public Sub，例如：

  Public Sub wipers()
      ' 宏代码
  End Sub
  

• 确认控件名称：进入开发工具的「设计模式」，选中控件后在属性窗口查看名称，确保代码中的"Drop Down 66"与实际名称一致
• 调整间隔时间：修改代码中waitSeconds = 3的数值，即可改变宏之间的等待秒数

内容的提问来源于stack exchange，提问作者Gabriela A