Excel 检查工作表中是否存在OLE对象

我正在处理一个用户表单，它要求用户在Excel中附加一个文件

我正在尝试在用户表单中构建一个控件。我在表单中放置了一个保存和关闭命令按钮，用于检查用户是否已填写所有字段，以及是否已附加所有附件

我无法检查工作表中的附件。如何让VBA检查工作表中是否存在用户附加的OLE对象

'下面是我检查和输入文件的代码

Private Sub SAC_Click()
    If CLN.Text = "" Then
        MsgBox ("Company Legal Name is a mandatory field!")
    Else
        Range("A2").Value = CLN.Text
    End If

    If BRL.Text = "" Then
        MsgBox ("Business Registration/ License is a mandatory field!")
    Else
        Range("B2").Value = BRL.Text
    End If

    If COA.Text = "" Then
        MsgBox ("Company Address is a mandatory field!")
    Else
        Range("C2").Value = COA.Text
    End If

    Range("D2").Value = PON.Text
    Range("E2").Value = TNR.Text

    If BLA.Text = "" Then
        MsgBox ("Billing Address is a mandatory field!")
    Else
        Range("F2").Value = BLA.Text
    End If

'VAT Registration data

    If VRN.Text = "" Then
        MsgBox ("VAT Registration Number is a mandatory field!")
    Else
        Range("G2").Value = VRN.Text
    End If

If VRD.Text = "" Then
        MsgBox ("VAT Registration Date is a mandatory field!")
    Else
        Range("H2").Value = VRD.Text
    End If

If COR.Text = "" Then
        MsgBox ("Country of Registration is a mandatory field!")
    Else
        Range("I2").Value = COR.Text
    End If

'Finance information data
'Payment Terms
If PmtTerms.Text = "" Then
        MsgBox ("Payment Terms is a mandatory field!")
    Else
        Range("J2").Value = PmtTerms.Text
    End If

If PmtMtd.Text = "" Then
        MsgBox ("Method of Payment is a mandatory field!")
    Else
        Range("K2").Value = PmtMtd.Text
    End If

'Finance other contacts

If NAS.Text = "" Then
        MsgBox ("Name of Authorized Signatory is a mandatory field!")
    Else
        Range("L2").Value = NAS.Text
    End If

If EMA.Text = "" Then
        MsgBox ("E-mail address is a mandatory field!")
    Else
        Range("M2").Value = EMA.Text
    End If

If MNR.Text = "" Then
        MsgBox ("Mobile number is a mandatory field!")
    Else
        Range("N2").Value = MNR.Text
    End If

If FCF.Text = "" Then
        MsgBox ("Finace contact is a mandatory field!")
    Else
        Range("O2").Value = FCF.Text
    End If

If EMA2.Text = "" Then
        MsgBox ("Finace E-mail address is a mandatory field!")
    Else
        Range("P2").Value = EMA2.Text
    End If

If MNR2.Text = "" Then
        MsgBox ("Finace mobile number is a mandatory field!")
    Else
        Range("Q2").Value = MNR2.Text
    End If

'Business contact information

    Range("R2").Value = CFN.Text
    Range("S2").Value = EMA3.Text
    Range("T2").Value = MNR3.Text

'Testing saving control


End Sub

---

如果工作表中没有oleobjects，则ThisWorkbook.Sheets1.oleobjects.Count将为零。如果您有一些现有对象，那么只要您知道开始时有多少个对象，就可以检查它是否增加了一个，以确定是否添加了一个对象

您是否正在检查是否存在任何OLE对象？此外，对于表单中的每个文本框，您不需要If条件。您可以使用一个循环遍历表单中的所有字段，并且只选中文本框中的空值。将代码减少到大约10行。查看@SJR是的，在用户单击“保存和关闭”按钮之前，我正在检查工作表中是否存在OLE对象。嗨，泰勒，感谢您的快速响应。“假如我必须拥有两个物体呢？”哈雷斯已经回答了这样一个问题：假如我必须拥有两个物体呢？我怀疑你指的是两个物体。启动工作簿时检查计数。然后您可以检查是否添加了一个。如果需要其他检查，可以循环访问OLE对象并获取其详细信息