Get header from row 5

This commit is contained in:
updsv7
2026-04-13 15:39:25 +09:00
parent 764fe7516d
commit 40a4e62f3f

View File

@@ -386,9 +386,14 @@ Sub ExportMasterDetailData()
savePath = savePath & ".csv"
End If
' Use constant for header
' Build header from row 5 (columns C, G-P)
Dim csvContent As String
csvContent = CSV_HEADER & vbLf
csvContent = Trim(ws.Cells(5, 3).Value)
Dim j As Long
For j = 7 To 16
csvContent = csvContent & "," & Trim(ws.Cells(5, j).Value)
Next j
csvContent = csvContent & vbLf
' Row counter
Dim rowCount As Long