我之前也踩过EA的VBScript API这类坑，尤其是GetElementsByQuery这块，给你梳理下问题根源和解决办法：

先搞懂为啥会抛异常 #

你用on error resume next其实反而掩盖了真实错误，先把它注释掉，运行代码看具体报错，大概率是这几个原因：

• 查询语句没返回Object_ID字段：EA的GetElementsByQuery强制要求必须查询Object_ID，它靠这个字段定位元素，缺了直接报错
• 元素名称里的单引号没转义：如果你的strSourceName包含单引号（比如O'Neil），直接拼进SQL会导致语法错误
• 对象类型过滤错误：比如把Interface拼错，或者没过滤类型，返回了非类/接口的对象，后续处理时触发异常

正确的查询操作姿势 #

1. 先转义特殊字符 #

处理元素名称里的单引号，避免SQL语法报错：

strEscapedName = Replace(strSourceName, "'", "''")

2. 构造合规的查询语句 #

必须包含Object_ID，同时精准过滤类或接口类型：

strQuery = "SELECT o.Object_ID FROM t_object o WHERE o.Name = '" & strEscapedName & "' AND o.Object_Type IN ('Class', 'Interface')"

3. 正确判断元素是否存在 #

GetElementsByQuery返回的是EA.Collection对象，哪怕没找到元素，集合也不会是Nothing，要通过Count属性判断：

Dim existingElements As EA.Collection
Set existingElements = Repository.GetElementsByQuery(strQuery)

If existingElements.Count > 0 Then
    ' 取第一个匹配的元素（重名的话可以加更多过滤条件，比如包路径）
    Set existingElement = existingElements.GetAt(0)
    ' 用现有元素执行后续操作
Else
    ' 执行创建新元素的逻辑
End If

合理使用错误捕获（别滥用on error resume next） #

如果需要捕获错误，别全程开启，只在调用API时临时使用，并且及时检查错误：

On Error Resume Next
Set existingElements = Repository.GetElementsByQuery(strQuery)
If Err.Number <> 0 Then
    MsgBox "查询出错啦：" & Err.Description
    Err.Clear
    ' 这里可以加错误处理逻辑，比如退出或重试
End If
On Error GoTo 0 ' 关闭错误捕获，避免掩盖后续代码问题

完整可复用示例代码 #

给你写个通用函数，用来获取或创建类/接口：

Function GetOrCreateElement(repo As EA.Repository, elemName As String, elemType As String) As EA.Element
    ' 转义单引号，避免SQL语法错误
    Dim escapedName As String
    escapedName = Replace(elemName, "'", "''")
    
    ' 构造查询语句
    Dim query As String
    query = "SELECT o.Object_ID FROM t_object o WHERE o.Name = '" & escapedName & "' AND o.Object_Type = '" & elemType & "'"
    
    Dim existingElems As EA.Collection
    On Error Resume Next
    Set existingElems = repo.GetElementsByQuery(query)
    If Err.Number <> 0 Then
        MsgBox "查询元素失败：" & Err.Description
        Err.Clear
        On Error GoTo 0
        Set GetOrCreateElement = Nothing
        Exit Function
    End If
    On Error GoTo 0
    
    ' 检查元素是否存在
    If existingElems.Count > 0 Then
        Set GetOrCreateElement = existingElems.GetAt(0)
    Else
        ' 替换成你的目标包（比如通过包ID或路径获取）
        Dim targetPkg As EA.Package
        Set targetPkg = repo.GetPackageByID(123) ' 这里替换成你的目标包ID
        
        If Not targetPkg Is Nothing Then
            Set GetOrCreateElement = targetPkg.Elements.AddNew(elemName, elemType)
            GetOrCreateElement.Update
            targetPkg.Update
        Else
            Set GetOrCreateElement = Nothing
        End If
    End If
End Function

' 使用示例
Dim myInterface As EA.Element
Set myInterface = GetOrCreateElement(Repository, "PaymentService", "Interface")
If Not myInterface Is Nothing Then
    ' 给元素添加属性或备注等操作
    myInterface.Notes = "支付服务接口"
    myInterface.Update
End If

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