diff --git a/vba_code_kukan_detail_master.txt b/vba_code_kukan_detail_master.txt index 8a6ac79..e319195 100644 --- a/vba_code_kukan_detail_master.txt +++ b/vba_code_kukan_detail_master.txt @@ -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