使用VBA宏统计装配体相同零件数量报错，求正确实现方法

错误原因 #

你执行的qty = swComp.ComponentOccurrences.Count报错，是因为swComp属于单个组件对象（Component2类型），而ComponentOccurrences是**装配体文档（AssemblyDoc）**独有的属性，单个组件对象并不支持这个方法/属性，因此触发“对象不支持该方法或属性”错误。

正确实现方式 #

要统计装配体中指定名称零件的数量，需从装配体文档对象出发，遍历其组件集合并筛选匹配项。以下是两种常用实现方案：

方案1：遍历所有层级组件（包括子装配体） #

此方法会统计装配体中所有嵌套层级里的目标零件实例：

Dim swApp As SldWorks.SldWorks
Dim swAssy As SldWorks.AssemblyDoc
Dim swCompOccur As SldWorks.ComponentOccurrence
Dim targetPartName As String
Dim partCount As Integer

Set swApp = Application.SldWorks
Set swAssy = swApp.ActiveDoc
targetPartName = "零件1.sldprt" '替换为你的目标零件名称（带扩展名）
partCount = 0

' 遍历所有层级的组件实例
For Each swCompOccur In swAssy.ComponentOccurrences2(True)
    ' 统一转小写避免大小写匹配问题
    If LCase(swCompOccur.Name2) = LCase(targetPartName) Then
        partCount = partCount + 1
    End If
Next

MsgBox targetPartName & " 的总数量：" & partCount

方案2：仅统计顶层组件 #

如果只需要统计装配体顶层的目标零件数量，只需将ComponentOccurrences2(True)改为ComponentOccurrences2(False)，或直接使用ComponentOccurrences集合：

' 遍历顶层组件
For Each swCompOccur In swAssy.ComponentOccurrences
    If LCase(swCompOccur.Name2) = LCase(targetPartName) Then
        partCount = partCount + 1
    End If
Next

更可靠的匹配方式（避免重命名干扰） #

如果零件在装配体中被重命名，Name2会显示修改后的名称，此时通过零件文件路径提取文件名进行匹配更准确：

For Each swCompOccur In swAssy.ComponentOccurrences2(True)
    Dim partFilePath As String
    Dim partFileName As String
    ' 获取零件的完整文件路径
    partFilePath = swCompOccur.GetModelDoc2.GetPathName
    ' 从路径中提取文件名（带扩展名）
    partFileName = Mid(partFilePath, InStrRev(partFilePath, "\") + 1)
    
    If LCase(partFileName) = LCase(targetPartName) Then
        partCount = partCount + 1
    End If
Next

关键API说明 #

• ComponentOccurrences2(IncludeSubAssemblies)：装配体文档的集合属性，IncludeSubAssemblies为True时遍历所有层级组件，False时仅遍历顶层。
• Name2：组件对象的属性，返回组件在装配体中的显示名称（带扩展名）。
• GetModelDoc2.GetPathName：获取组件关联的零件文件的完整路径，用于提取真实文件名。

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