style: standardize VBA property and method name casing
All checks were successful
NTFY Notification / notify (push) Successful in 11s
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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user