Get header from row 5
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user