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

Fix CSV header - use Split at runtime

Browse Source
This commit is contained in:
updsv7
2026-04-13 12:47:38 +09:00
parent c68a77f7cc
commit 46e4635191
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
vba_code_kukan_detail_master.txt
View File

@@ -178,18 +178,20 @@ Sub ImportMasterDetailData()
Dim csvHeader As String Dim csvHeader As String
csvHeader = Trim(lines(0)) csvHeader = Trim(lines(0))
' Validate header by comparing each field ' Validate header by comparing each field
Dim expectedHeaders As Variant
expectedHeaders = Split(CSV_HEADER, ",")
Dim headerFields As Variant Dim headerFields As Variant
headerFields = Split(csvHeader, ",") headerFields = Split(csvHeader, ",")
Dim headerMismatch As Boolean Dim headerMismatch As Boolean
headerMismatch = False headerMismatch = False
Dim k As Long Dim k As Long
For k = 0 To UBound(CSV_HEADER_ARRAY) For k = 0 To UBound(expectedHeaders)
If k > UBound(headerFields) Or Trim(headerFields(k)) <> CSV_HEADER_ARRAY(k) Then If k > UBound(headerFields) Or Trim(headerFields(k)) <> Trim(expectedHeaders(k)) Then
headerMismatch = True headerMismatch = True
Exit For Exit For
End If End If
Next k Next k
If headerMismatch Or UBound(headerFields) <> UBound(CSV_HEADER_ARRAY) Then If headerMismatch Or UBound(headerFields) <> UBound(expectedHeaders) Then
MsgBox "CSV header mismatch.", vbExclamation MsgBox "CSV header mismatch.", vbExclamation
Exit Sub Exit Sub
End If End If
@@ -396,7 +398,7 @@ Sub ExportMasterDetailData()
' Use constant for header ' Use constant for header
Dim headerList As Variant Dim headerList As Variant
headerList = CSV_HEADER_ARRAY headerList = Split(CSV_HEADER, ",")
' Build CSV ' Build CSV
Dim csvContent As String Dim csvContent As String