m2 update

src/module/Module_Common.bas

@@ -2,6 +2,25 @@
 ' Common Functions
 ' ============================================================
 
+' Get CSV header from specified row and columns
+Function GetCSVHeader(ByVal ws As Worksheet, ByVal colLetters As Variant, ByVal headerRow As Long) As Variant
+    Dim colCount As Long: colCount = UBound(colLetters) - LBound(colLetters) + 1
+    Dim headerArr() As String
+    ReDim headerArr(1 To 1, 1 To colCount)
+    
+    Dim i As Long
+    Dim cellValue As String
+    For i = 0 To colCount - 1
+        cellValue = Trim(ws.Cells(headerRow, Columns(colLetters(i)).Column).Value)
+        cellValue = Replace(cellValue, vbLf, "")
+        cellValue = Replace(cellValue, vbCr, "")
+        cellValue = Replace(cellValue, vbCrLf, "")
+        headerArr(1, i + 1) = cellValue
+    Next i
+    
+    GetCSVHeader = headerArr
+End Function
+
 Function CleanCSVField(ByVal inputStr As String) As String
     Dim s As String
     s = Trim(inputStr)
@@ -145,7 +164,9 @@ Function ClearDataRows(ByVal ws As Worksheet, ByVal startCol As Long, ByVal endC
     Dim lastDataRow As Long: lastDataRow = GetLastDataRowInRange(ws, startCol, endCol, startRow)
 
     If lastDataRow >= startRow Then
-        ws.Range(ws.Cells(startRow, startCol), ws.Cells(lastDataRow, endCol)).ClearContents
+        Dim clearRange As Range: Set clearRange = ws.Range(ws.Cells(startRow, startCol), ws.Cells(lastDataRow, endCol))
+        clearRange.ClearContents
+        clearRange.Interior.Color = vbWhite
     End If
 End Function
 

src/module/Read_Common.bas

@@ -49,7 +49,7 @@ Function ReadCSVAs2DArrayStrict( _
         .Close
     End With
 
-    ' === stardand ===
+    ' === standardize ===
     textContent = Replace(textContent, vbCrLf, vbLf)
     textContent = Replace(textContent, vbCr, vbLf)
 
@@ -135,6 +135,10 @@ Private Function ParseCSVLines(ByVal csvText As String) As Collection
                     currentField = currentField & c
                     i = i + 1
                 Else
+                    ' Clean field before adding
+                    currentField = Trim(currentField)
+                    currentField = Replace(currentField, vbCr, "")
+                    currentField = Replace(currentField, vbLf, "")
                     currentRow.Add currentField
                     currentField = ""
                     i = i + 1
@@ -167,6 +171,10 @@ Private Function ParseCSVLines(ByVal csvText As String) As Collection
     
     ' Handle last row without trailing newline
     If currentField <> "" Or currentRow.Count > 0 Then
+        ' Clean field before adding
+        currentField = Trim(currentField)
+        currentField = Replace(currentField, vbCr, "")
+        currentField = Replace(currentField, vbLf, "")
         currentRow.Add currentField
         Dim lastArr() As String
         If currentRow.Count > 0 Then