Get header from row 5
This commit is contained in:
@@ -386,9 +386,14 @@ Sub ExportMasterDetailData()
|
|||||||
savePath = savePath & ".csv"
|
savePath = savePath & ".csv"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' Use constant for header
|
' Build header from row 5 (columns C, G-P)
|
||||||
Dim csvContent As String
|
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
|
' Row counter
|
||||||
Dim rowCount As Long
|
Dim rowCount As Long
|
||||||
|
|||||||
Reference in New Issue
Block a user