style: standardize VBA property and method name casing
All checks were successful
NTFY Notification / notify (push) Successful in 11s

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>
This commit is contained in:
Misaka_Company
2026-02-27 08:34:49 +08:00
parent c696057cd4
commit 45d1c1780f
8 changed files with 47 additions and 47 deletions

View File

@@ -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