Excel提示ActiveX对象不在工作表上的问题排查求助

一、控件检测失败的原因及修复 #

1. 控件名称错误
   代码中使用OLEObjects("DataMatrixCtrl.1")是错误的，DataMatrixCtrl.1是控件的ProgID，而非工作表中控件的实际名称。你需要：

   • 右键工作表中的Data Matrix控件 → 属性
   • 在属性窗口查看Name属性（通常默认是DataMatrixCtrl1这类名称）
   • 将代码中的"DataMatrixCtrl.1"替换为实际的控件名称

2. 错误捕获隐藏真实问题
   On Error Resume Next会跳过控件查找失败的具体错误，建议暂时注释掉这行，运行宏时查看具体报错，能更快定位问题。

二、条码未加载用户输入数据的原因及修复 #

1. 未主动更新控件的DataToEncode属性
   仅将labelInfo写入A1，控件可能不会自动刷新数据（部分ActiveX控件需要手动触发更新）。需要在写入A1后，直接设置控件的DataToEncode属性：

   dataMatrixControl1.Object.DataToEncode = labelInfo
   

2. 打印逻辑中使用未定义变量
   代码里ObjDoc.SetText 0, dataMatrixContent中的dataMatrixContent未定义，直接导致打印的条码无数据，应替换为labelInfo。

3. 打印触发条件不合理
   原代码中只有当控件的DataToEncode等于labelInfo时才执行打印，但控件数据更新可能存在延迟，导致条件不满足。建议去掉这个判断，直接在设置控件数据后执行打印逻辑。

4. 递归调用易引发变量混乱
   原代码中用户确认信息错误时递归调用CreateAndPrintLabel，容易导致变量栈溢出，改为循环更安全。

修正后的完整代码 #

Public Sub CreateAndPrintLabel()
    Dim createLabel As VbMsgBoxResult
    Dim labelInfo As String
    Dim sPath As String
    Dim ObjDoc As Object
    Dim licensePlate As String, partNumber As String, Description As String, ExpirationDate As String
    Dim confirmed As Boolean
    
    Do
        ' Step 1: Ask the user if they wish to create a label
        createLabel = MsgBox("Do you wish to create a label?", vbYesNo)
        If createLabel <> vbYes Then Exit Sub
        
        ' Step 2: Prompt for each parameter
        licensePlate = InputBox("Enter License Plate:")
        partNumber = InputBox("Enter Part Number:")
        Description = InputBox("Enter Description:")
        ExpirationDate = InputBox("Enter Expiration Date:")

        ' Step 3: Validate and display entered information
        labelInfo = licensePlate & " | " & partNumber & " | " & Description & " | " & ExpirationDate
        confirmed = MsgBox("Is the following information correct?" & vbCrLf & vbCrLf & labelInfo, vbYesNo) = vbYes
    Loop Until confirmed
    
    ' Store labelInfo in cell A1 on Sheet1
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = labelInfo
    
    ' Check if Data Matrix control exists
    Dim dataMatrixControl1 As OLEObject
    ' 替换为你实际的控件名称，比如DataMatrixCtrl1
    Set dataMatrixControl1 = ThisWorkbook.Sheets("Sheet1").OLEObjects("DataMatrixCtrl1")

    If Not dataMatrixControl1 Is Nothing Then
        ' 主动设置控件的编码数据
        dataMatrixControl1.Object.DataToEncode = labelInfo
        
        ' Step 5: Print the label using Brother printer
        Set ObjDoc = CreateObject("bpac.Document")
        sPath = "C:\Users\giovanni.fontanetta\Documents\My Labels\Matrix.lbx"
        
        ' Open lbx file
        If ObjDoc.Open(sPath) Then
            ' Set text for the label (使用labelInfo而非未定义的变量)
            ObjDoc.SetText 0, labelInfo

            ' Print the label
            ObjDoc.StartPrint "", bpoDefault
            ObjDoc.PrintOut 1, bpoDefault
            ObjDoc.EndPrint

            ' Close lbx file
            ObjDoc.Close
            MsgBox "Label printed successfully."
        Else
            MsgBox "Failed to open label file."
        End If
    Else
        MsgBox "ActiveX Data Matrix control not found on the sheet. Check the control name in properties."
    End If
End Sub

Sub Print_Label()
    Dim bRet As Boolean
    Dim sPath As String
    Dim ObjDoc As Object
    Set ObjDoc = CreateObject("bpac.Document")
    sPath = "C:\Users\giovanni.fontanetta\Documents\My Labels\Matrix.lbx"
    
    'Open lbx file
    bRet = ObjDoc.Open(sPath)
    If bRet Then
        ' Start Print-Setting
        ObjDoc.StartPrint "", bpoDefault
        ObjDoc.PrintOut 1, bpoDefault
        ' Finish Print-Setting
        ObjDoc.EndPrint
        ' Close lbx file
        ObjDoc.Close
    End If
End Sub

额外检查项 #

• 确保BarcodeTools的Data Matrix ActiveX控件已正确注册在系统中（可通过regsvr32命令重新注册）
• 确认Brother的bpac SDK已正确安装，Matrix.lbx文件路径无误，且标签模板中第0个字段是条码对应的数据源

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