diff --git a/VBA/ClassModules/BomExtractor.cls b/VBA/ClassModules/BomExtractor.cls
index eaae640..6097975 100644
--- a/VBA/ClassModules/BomExtractor.cls
+++ b/VBA/ClassModules/BomExtractor.cls
@@ -112,6 +112,14 @@ Public Sub ClearExcludeCategories()
     Set pExcludeCategories = New collection
 End Sub
 
+'=====================================================================
+' 方法: ClearErrorMessages
+' 功能: 清空错误信息列表
+'=====================================================================
+Public Sub ClearErrorMessages()
+    Set pErrorMessages = New collection
+End Sub
+
 '=====================================================================
 ' 方法: ExtractBom
 ' 功能: 根据产品条件提取BOM
@@ -124,8 +132,7 @@ Public Function ExtractBom(productConditions As Object) As collection
     ' 清空结果
     Set pMatchedItems = New collection
     Set pRequiredCategories = New collection
-
-    'pErrorMessages.Clear
+    Set pErrorMessages = New collection
 
     ' 第一步:确定需要的类别
     DetermineRequiredCategories productConditions