updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Only validate CSV column count

Browse Source
This commit is contained in:
updsv7
2026-04-13 14:22:22 +09:00
parent e09cce2679
commit fddfd9e263
1 changed files with 5 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
vba_code_kukan_detail_master.txt
View File

@@ -176,22 +176,13 @@ Sub ImportMasterDetailData()
If UBound(lines) >= 0 And Trim(lines(0)) <> "" Then If UBound(lines) >= 0 And Trim(lines(0)) <> "" Then
Dim csvHeader As String Dim csvHeader As String
csvHeader = Trim(lines(0)) csvHeader = Trim(lines(0))
' Validate header by comparing each field ' Validate column count
Dim expectedHeaders As Variant Dim expectedCount As Long
expectedHeaders = Split(CSV_HEADER, ",") expectedCount = UBound(Split(CSV_HEADER, ",")) + 1
Dim headerFields As Variant Dim headerFields As Variant
headerFields = Split(csvHeader, ",") headerFields = Split(csvHeader, ",")
Dim headerMismatch As Boolean If UBound(headerFields) + 1 <> expectedCount Then
headerMismatch = False MsgBox "CSV column count mismatch. Expected: " & expectedCount & ", Got: " & UBound(headerFields) + 1, vbExclamation
Dim k As Long
For k = 0 To UBound(expectedHeaders)
If k > UBound(headerFields) Or Trim(headerFields(k)) <> Trim(expectedHeaders(k)) Then
headerMismatch = True
Exit For
End If
Next k
If headerMismatch Or UBound(headerFields) <> UBound(expectedHeaders) Then
MsgBox "CSV header mismatch.", vbExclamation
Exit Sub Exit Sub
End If End If
End If End If