时间戳

首页 > 解决方案 > 如何创建 ActiveX 控件命令按钮并将其设置为变量 Excel VBA

excel - 如何创建 ActiveX 控件命令按钮并将其设置为变量 Excel VBA

问题描述

我正在尝试使用 Excel VBA 创建一个新的 ActiveX 控件命令按钮。我有一个过去工作过的循环 VBA，theFile1.1.xlsm 有工作簿的主列表。我需要向 ~3200 个工作簿添加一个命令按钮，所以我将使用 Do-Loop 宏。这是供参考的循环代码。

Sub Macro2() 

Application.ScreenUpdating = False

Dim sFile As String
Dim wb As Workbook
Dim FileName1 As String
Dim FileName2 As String
Dim wksSource As Worksheet
Const scWkbSourceName As String = "theFILE 1.1.xlsm"

Set wkbSource = Workbooks(scWkbSourceName)
Set wksSource = wkbSource.Sheets("Sheet1") ' Replace 'Sheet1' w/ sheet name of SourceSheet

Const wsOriginalBook As String = "theFILE 1.1.xlsm"
Const sPath As String = "E:\ExampleFolder\"

SourceRow = 5

Do While Cells(SourceRow, "D").Value <> ""

    Sheets("Sheet1").Select

    FileName1 = wksSource.Range("A" & SourceRow).Value
    FileName2 = wksSource.Range("K" & SourceRow).Value

    sFile = sPath & FileName1 & "\" & FileName2 & ".xlsm"

    Set wb = Workbooks.Open(sFile)

        ''insert code for loop operation

    '''CLOSE WORKBOOK W/O BEFORE SAVE
    Application.EnableEvents = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Application.EnableEvents = True

SourceRow = SourceRow + 1

Loop

End Sub

我想将按钮设置为变量（我认为），这样我就可以编辑格式/属性，并希望稍后为按钮添加一个宏。

    Dim buttonControl As MSForms.CommandButton

    Set buttonControl = _
        ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Link:=False, _
        DisplayAsIcon:=False, _
        Left:=1464, Top:=310, Width:=107.25, Height:=30)

    With buttonControl.Opject
        .Caption = "OPEN FOLDER"
        .Name = "cmd_OPEN_FOLDER"

    End With

我有一个“运行时错误 13：类型不匹配”错误。我不确定为什么，因为在正确的位置创建了一个“CommandButton1”。

标签： excelvbavariables

解决方案

OLEObjects.Add创建一个OLEObject并将其添加到OLEObjects集合中；函数返回的对象Add是OLEObject，不是MSForm.CommandButton。那是OLEObject.Object- 所以，将你设置为返回对象buttonControl的属性：.Object

Set buttonControl = _
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, _
    DisplayAsIcon:=False, _
    Left:=1464, Top:=310, Width:=107.25, Height:=30).Object

该按钮是在正确的位置创建的，因为该Add函数工作并返回 - 类型不匹配导致的失败是将返回的分配OLEObject到CommandButton变量中，在该操作之后立即。

随后的With块可以是 just With buttonControl。

推荐阅读