style: standardize VBA property and method name casing

Standardize all VBA property and method names to lowercase for consistent code style:
- Err object: Err.Description → err.Description, Err.Number → err.Number
- Collection properties: .Count → .count
- Range properties: .Rows.Count → .Rows.count, .Row → .row
- Dictionary methods: .Keys → .keys, .Exists → .exists
- Worksheet properties: .Sheets.Count → .Sheets.count
- Fix typo: Thisworkbook.Path → ThisWorkbook.Path

VBA is case-insensitive, but consistent lowercase convention improves readability.

Co-Authored-By: Claude Sonnet 4.5 <noreply@anthropic.com>

VBA_BOMConverter/Modules/M01_Main.bas

@@ -126,7 +126,7 @@ ExitHandler:
     Exit Sub
 
 MainErrorHandler:
-    MsgBox "发生运行时错误: " & Err.Description, vbCritical
+    MsgBox "发生运行时错误: " & err.Description, vbCritical
     Resume ExitHandler
 End Sub
 
@@ -304,7 +304,7 @@ Public Sub GeneratePreprocessingReport()
 ReportErrorHandler:
     Application.StatusBar = False
     MsgBox "生成报表时出错：" & vbCrLf & _
-           "错误 " & Err.Number & ": " & Err.Description, _
+           "错误 " & err.Number & ": " & err.Description, _
            vbCritical, "报表生成错误"
 
 ReportExitHandler:

VBA_BOMConverter/Modules/M02_DataIO.bas

@@ -154,7 +154,7 @@ Public Sub WriteCategoryToNewBook(catData As Object)
     Application.DisplayAlerts = True
 
     ' 6. 保存工作簿为 BOM库.xlsx
-    savePath = Thisworkbook.Path & Application.PathSeparator & "BOM库.xlsx"
+    savePath = ThisWorkbook.Path & Application.PathSeparator & "BOM库.xlsx"
 
     ' 如果文件已存在，先删除
     If Dir(savePath) <> "" Then

VBA_BOMConverter/Modules/M03_Logic.bas

@@ -34,7 +34,7 @@ Public Function ParseRule(strRule As String, rowIdx As Long) As Collection
     Exit Function
 
 ErrorHandler:
-    g_Logger.Record rowIdx, "M03.ParseRule", "System Error", Err.Description, strRule
+    g_Logger.Record rowIdx, "M03.ParseRule", "System Error", err.Description, strRule
     Set ParseRule = Nothing
 End Function
 

VBA_BOMConverter/Modules/M06A_Mapper.bas

@@ -207,4 +207,4 @@ Public Function GetAzxsMappedValue(key As String) As String
     Else
         GetAzxsMappedValue = ""
     End If
-End Function
+End Function

VBA_BOMConverter/Modules/M06_ModelParser.bas

@@ -161,7 +161,7 @@ Public Function ParseProductModel(ByVal modelString As String) As Object
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.Record "", "M06.ParseProductModel", "SystemError", _
-            "解析过程发生错误: " & Err.Description, modelString
+            "解析过程发生错误: " & err.Description, modelString
     End If
     Set ParseProductModel = CreateObject("Scripting.Dictionary")
 End Function

VBA_BOMConverter/Modules/M07_BOMMatcher.bas

@@ -142,13 +142,13 @@ Public Function MatchBOMRecord(ByVal ws As Worksheet, ByVal params As Object) As
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.Record "", "M07.MatchBOMRecord", "SystemError", _
-            "匹配过程发生错误: " & Err.Description, ws.Name
+            "匹配过程发生错误: " & err.Description, ws.Name
     End If
 
     result("success") = False
     result("rowCount") = 0
     Set result("rowNums") = New Collection
-    result("message") = "系统错误: " & Err.Description
+    result("message") = "系统错误: " & err.Description
     Set MatchBOMRecord = result
 End Function
 
@@ -431,7 +431,7 @@ Public Function ExtractMaterialInfo( _
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.Record "", "M07.ExtractMaterialInfo", "SystemError", _
-            "提取物料信息失败: " & Err.Description, ws.Name
+            "提取物料信息失败: " & err.Description, ws.Name
     End If
     Set ExtractMaterialInfo = CreateObject("Scripting.Dictionary")
 End Function

VBA_BOMConverter/Modules/M08_ComponentProcessor.bas

@@ -85,7 +85,7 @@ Private Sub LoadInventoryData(ByVal inventoryWb As Workbook)
 
     ' 查找最后一行
     Dim lastRow As Long
-    lastRow = wsInventory.Cells(wsInventory.Rows.Count, 2).End(xlUp).Row ' B列
+    lastRow = wsInventory.Cells(wsInventory.Rows.count, 2).End(xlUp).row ' B列
 
     If lastRow < INVENTORY_HEADER_ROW + 1 Then
         Exit Sub ' 没有数据
@@ -110,7 +110,7 @@ Private Sub LoadInventoryData(ByVal inventoryWb As Workbook)
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.RecordWarning "", "M08.LoadInventoryData", "LoadError", _
-            "加载库存数据失败: " & Err.Description, ""
+            "加载库存数据失败: " & err.Description, ""
     End If
 End Sub
 
@@ -211,7 +211,7 @@ Public Function ProcessComponentRecord( _
 ErrorHandler:
     If Not logger Is Nothing Then
         logger.Record productionOrderNo, "M08.ProcessComponentRecord", "SystemError", _
-            "处理部件记录失败: " & Err.Description, ""
+            "处理部件记录失败: " & err.Description, ""
     End If
 
     ' 返回错误物料
@@ -221,7 +221,7 @@ ErrorHandler:
     errorMat("materialName") = ""
     errorMat("materialCode") = ""
     errorMat("materialQty") = 0
-    errorMat("remarks") = "系统错误: " & Err.Description
+    errorMat("remarks") = "系统错误: " & err.Description
 
     Dim errorCol As New Collection
     errorCol.Add errorMat
@@ -249,9 +249,9 @@ End Function
 '
 ' 示例:
 '   订单1、订单3、订单6都用部件A，每个订单数量=2，BOM需求量=1，现存量=5
-'   - 订单1：累计需求 = 2×1 + 0 = 2，5 >= 2 ✓ true（使用部件）
+'   - 订单1：累计需求 = 2×1 + 0 = 2，5 >= 2 ?? true（使用部件）
-'   - 订单3：累计需求 = 2×1 + 2 = 4，5 >= 4 ✓ true（使用部件）
+'   - 订单3：累计需求 = 2×1 + 2 = 4，5 >= 4 ?? true（使用部件）
-'   - 订单6：累计需求 = 2×1 + 4 = 6，5 < 6 ✗ false（使用子件）
+'   - 订单6：累计需求 = 2×1 + 4 = 6，5 < 6 ?? false（使用子件）
 ' ------------------------------------------------------------------------------
 Private Function CheckComponentInventory( _
     ByVal wsComponent As Worksheet, _
@@ -346,7 +346,7 @@ Private Function CheckComponentInventory( _
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.Record productionOrderNo, "M08.CheckComponentInventory", "SystemError", _
-            "库存检查失败: " & Err.Description, ""
+            "库存检查失败: " & err.Description, ""
     End If
     ' 出错时返回False（库存不足）
     CheckComponentInventory = False
@@ -425,7 +425,7 @@ Private Function ExtractComponentInfo( _
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.Record "", "M08.ExtractComponentInfo", "SystemError", _
-            "提取部件信息失败: " & Err.Description, componentType
+            "提取部件信息失败: " & err.Description, componentType
     End If
     Set ExtractComponentInfo = Nothing
 End Function
@@ -479,7 +479,7 @@ Private Function ExtractSubComponents( _
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.Record "", "M08.ExtractSubComponents", "SystemError", _
-            "提取子件信息失败: " & Err.Description, ""
+            "提取子件信息失败: " & err.Description, ""
     End If
     Set ExtractSubComponents = New Collection
 End Function
@@ -575,7 +575,7 @@ Private Function ExtractSingleSubComponent( _
 ErrorHandler:
     If Not g_Logger Is Nothing Then
         g_Logger.Record "", "M08.ExtractSingleSubComponent", "SystemError", _
-            "提取子件[" & subComponentType & "]失败: " & Err.Description, ""
+            "提取子件[" & subComponentType & "]失败: " & err.Description, ""
     End If
     Set ExtractSingleSubComponent = Nothing
 End Function
@@ -764,6 +764,6 @@ Public Function ValidateComponentCombination(ByVal materials As Collection) As O
 
 ErrorHandler:
     result("valid") = False
-    result("message") = "验证过程发生错误: " & Err.Description
+    result("message") = "验证过程发生错误: " & err.Description
     Set ValidateComponentCombination = result
 End Function

VBA_BOMConverter/Modules/M09_BOMExtractor.bas

@@ -216,7 +216,7 @@ Public Function RunBOMExtraction() As String
     Dim msg As String
     msg = "BOM提取完成！" & vbCrLf & _
            "处理型号数: " & totalModels & vbCrLf & _
-           "提取物料数: " & allResults.Count & vbCrLf & _
+           "提取物料数: " & allResults.count & vbCrLf & _
            "成功数: " & successCount & vbCrLf & _
            "异常数: " & errorCount & vbCrLf & _
            "已生成库存比对工作表"
@@ -231,7 +231,7 @@ Public Function RunBOMExtraction() As String
     GoTo ExitHandler
 
 MainErrorHandler:
-    RunBOMExtraction = "发生运行时错误: " & Err.Description & " (错误号: " & Err.Number & ")"
+    RunBOMExtraction = "发生运行时错误: " & err.Description & " (错误号: " & err.Number & ")"
 
 ExitHandler:
     ' 清理
@@ -422,10 +422,10 @@ Private Function ProcessSingleModel( _
 ErrorHandler:
     If Not logger Is Nothing Then
         logger.Record productionOrderNo, "M09.ProcessSingleModel", "SystemError", _
-            "处理型号[" & modelString & "]失败: " & Err.Description, ""
+            "处理型号[" & modelString & "]失败: " & err.Description, ""
     End If
 
-    results.Add GenerateErrorRow(modelString, "系统错误: " & Err.Description, productionOrderNo, True)
+    results.Add GenerateErrorRow(modelString, "系统错误: " & err.Description, productionOrderNo, True)
     Set ProcessSingleModel = results
 End Function
 
@@ -495,7 +495,7 @@ Private Function MatchAllMaterialTypesWithValidation( _
             Debug.Print "  -> 标准匹配: success=" & bomMatchResult("success") & ", rowCount=" & bomMatchResult("rowCount")
 
             ' 步骤2: 如果标准匹配成功，调用部件处理器
-            
+
             Set componentMaterials = New Collection
 
             If bomMatchResult("success") Then
@@ -507,7 +507,7 @@ Private Function MatchAllMaterialTypesWithValidation( _
 
             ' 步骤3: 创建匹配结果对象，使用标准匹配的rowCount（工作表行数，不是物料数）
             matchResult("success") = bomMatchResult("success")
-            matchResult("rowCount") = bomMatchResult("rowCount")  ' ✅ 关键修复：使用标准匹配的rowCount
+            matchResult("rowCount") = bomMatchResult("rowCount")  ' ?? 关键修复：使用标准匹配的rowCount
             Set matchResult("rowNums") = bomMatchResult("rowNums")
 
             ' 步骤4: 添加物料到匹配结果
@@ -551,7 +551,7 @@ Private Function MatchAllMaterialTypesWithValidation( _
                     End If
                 Next i
 
-                Debug.Print "  -> 共添加 " & matchResult("materials").Count & " 个物料"
+                Debug.Print "  -> 共添加 " & matchResult("materials").count & " 个物料"
             End If
         End If
 
@@ -575,7 +575,7 @@ Private Function MatchAllMaterialTypesWithValidation( _
     If validationResult("valid") Then
         ' 验证通过，收集所有物料
         Dim resultKey As Variant
-        For Each resultKey In resultsDict.Keys
+        For Each resultKey In resultsDict.keys
             Dim result As Object
             Set result = resultsDict(resultKey)
 
@@ -587,7 +587,7 @@ Private Function MatchAllMaterialTypesWithValidation( _
     Else
         ' 验证失败，仍然收集物料以便在输出中显示错误
         Dim resultKey2 As Variant
-        For Each resultKey2 In resultsDict.Keys
+        For Each resultKey2 In resultsDict.keys
             Dim result2 As Object
             Set result2 = resultsDict(resultKey2)
 
@@ -607,7 +607,7 @@ Private Function MatchAllMaterialTypesWithValidation( _
 ErrorHandler:
     If Not logger Is Nothing Then
         logger.Record productionOrderNo, "M09.MatchAllMaterialTypesWithValidation", "SystemError", _
-            "匹配物料类型失败: " & Err.Description, ""
+            "匹配物料类型失败: " & err.Description, ""
     End If
 
     Dim emptyColl As Collection
@@ -670,7 +670,7 @@ Private Function ValidateAllMatchResults( _
     Set warnings = New Collection
 
     Dim sheetKey As Variant
-    For Each sheetKey In resultsDict.Keys
+    For Each sheetKey In resultsDict.keys
         Dim result As Object
         Set result = resultsDict(sheetKey)
 
@@ -917,7 +917,7 @@ Private Function ValidateAllMatchResults( _
 ErrorHandler:
     If Not logger Is Nothing Then
         logger.Record productionOrderNo, "M09.ValidateAllMatchResults", "SystemError", _
-            "验证匹配结果失败: " & Err.Description, ""
+            "验证匹配结果失败: " & err.Description, ""
     End If
 
     validation("valid") = False
@@ -1420,7 +1420,7 @@ Private Function WriteInventoryComparisonResults( _
     Dim i As Long
     Dim j As Long
     Dim result As Variant
-    Dim orderNo As String
+    Dim OrderNo As String
     Dim modelStr As String
     Dim componentResults As Collection
     Dim materialType As String
@@ -1447,7 +1447,7 @@ Private Function WriteInventoryComparisonResults( _
     On Error GoTo ErrorHandler
 
     If ws Is Nothing Then
-        Set ws = ThisWorkbook.Worksheets.Add(After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count))
+        Set ws = ThisWorkbook.Worksheets.Add(After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.count))
         ws.Name = INVENTORY_COMPARISON_SHEET_NAME
     Else
         ws.Cells.Clear
@@ -1476,16 +1476,16 @@ Private Function WriteInventoryComparisonResults( _
 
     Set modelToOrderMap = CreateObject("Scripting.Dictionary")
 
-    For i = 1 To results.Count
+    For i = 1 To results.count
         result = results(i)
 
-        orderNo = CStr(result(1))     ' 第1列：生产订单号
+        OrderNo = CStr(result(1))     ' 第1列：生产订单号
         modelStr = CStr(result(2))    ' 第2列：原始产品型号
 
         ' 仅当订单号不为空时，添加映射
-        If Len(Trim(orderNo)) > 0 And Len(Trim(modelStr)) > 0 Then
+        If Len(Trim(OrderNo)) > 0 And Len(Trim(modelStr)) > 0 Then
             If Not modelToOrderMap.Exists(modelStr) Then
-                modelToOrderMap.Add modelStr, orderNo
+                modelToOrderMap.Add modelStr, OrderNo
             End If
         End If
     Next i
@@ -1495,7 +1495,7 @@ Private Function WriteInventoryComparisonResults( _
     ' ========================================
     Set componentResults = New Collection
 
-    For i = 1 To results.Count
+    For i = 1 To results.count
         result = results(i)
 
         ' 第9列是物料类型
@@ -1508,12 +1508,12 @@ Private Function WriteInventoryComparisonResults( _
     Next i
 
     ' 写入数据
-    If componentResults.Count > 0 Then
+    If componentResults.count > 0 Then
         ' 先设置物料编码列（第3列，C列）为文本格式
-        ws.Range("C2:C" & (componentResults.Count + 1)).NumberFormat = "@"
+        ws.Range("C2:C" & (componentResults.count + 1)).NumberFormat = "@"
 
         ' 准备输出数组
-        ReDim outputArr(1 To componentResults.Count, 1 To 7)
+        ReDim outputArr(1 To componentResults.count, 1 To 7)
 
         ' 序号生成变量
         baseSeqNum = 0
@@ -1524,7 +1524,7 @@ Private Function WriteInventoryComparisonResults( _
         ' ========================================
         ' 步骤3: 写入库存比对数据
         ' ========================================
-        For i = 1 To componentResults.Count
+        For i = 1 To componentResults.count
             result = componentResults(i)
 
             ' 【关键修复】从映射表中获取订单号
@@ -1591,16 +1591,16 @@ Private Function WriteInventoryComparisonResults( _
         Next i
 
         ' 批量写入数据
-        ws.Range("A2").Resize(componentResults.Count, 7).Value = outputArr
+        ws.Range("A2").Resize(componentResults.count, 7).Value = outputArr
 
         ' 格式化数据区域
-        With ws.Range("A2:G" & (componentResults.Count + 1))
+        With ws.Range("A2:G" & (componentResults.count + 1))
             .Borders.LineStyle = xlContinuous
             .Borders.Weight = xlThin
         End With
 
         ' 根据库存状态设置背景色
-        For i = 1 To componentResults.Count
+        For i = 1 To componentResults.count
             suffStatus = CStr(outputArr(i, 7))
 
             If suffStatus = "否" Then