Please help me modify the script listed below to add the column names listed
beow to the first row in the test.csv file. These column names are different
from the input worksheet.

Please help me complete this task.

Thanks,


Column Names
1. Caller_Id
2. MT_Port
3. Noy_Number
4. Scheduled_Date_ETP
5. Tship
6. Parcel_Quantity





Sub WriteCSV()

Const Delimiter = ","
Const MyPath = "C:\temp\"

Set fswrite = CreateObject("Scripting.FileSystemObject")

WriteFileName = "text.csv"

'open files
WritePathName = MyPath + WriteFileName
fswrite.CreateTextFile WritePathName
Set fwrite = fswrite.GetFile(WritePathName)
Set tswrite = fwrite.OpenAsTextStream(ForWriting, TristateUseDefault)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For RowCount = 10 To LastRow
If Range("D" & RowCount) > Date Then
For ColCount = 1 To 6
If ColCount = 1 Then
OutputLine = Cells(RowCount, ColCount)
Else
OutputLine = OutputLine & Delimiter & Cells(RowCount, ColCount)
End If
Next ColCount
tswrite.writeline OutputLine
End If
Next RowCount

tswrite.Close

End Sub

Unless the names are in cells somewhere, it looks like
they have to be in code:

OutputLine = "Caller_Id" & Delimiter & _
"MT_Port" & Delimiter & _
"Noy_Number" & Delimiter & _
"Scheduled_Date_ETP" & Delimiter & _
"Tship" & Delimiter & _
"Parcel_Quantity"
tswrite.writeline OutputLine

Joe K. <Joe K.@discussions.microsoft.com> wrote:
>Please help me modify the script listed below to add the column names listed
>beow to the first row in the test.csv file. These column names are different
>from the input worksheet.
>
>Column Names
>1. Caller_Id
>2. MT_Port
>3. Noy_Number
>4. Scheduled_Date_ETP
>5. Tship
>6. Parcel_Quantity
>
>Sub WriteCSV()
>
>Const Delimiter = ","
>Const MyPath = "C:\temp\"
>
>Set fswrite = CreateObject("Scripting.FileSystemObject")
>
>WriteFileName = "text.csv"
>
> 'open files
> WritePathName = MyPath + WriteFileName
> fswrite.CreateTextFile WritePathName
> Set fwrite = fswrite.GetFile(WritePathName)
> Set tswrite = fwrite.OpenAsTextStream(ForWriting, TristateUseDefault)
>
> LastRow = Cells(Rows.Count, "A").End(xlUp).Row
>
> For RowCount = 10 To LastRow
> If Range("D" & RowCount) > Date Then
> For ColCount = 1 To 6
> If ColCount = 1 Then
> OutputLine = Cells(RowCount, ColCount)
> Else
> OutputLine = OutputLine & Delimiter & Cells(RowCount, ColCount)
> End If
> Next ColCount
> tswrite.writeline OutputLine
> End If
> Next RowCount
>
> tswrite.Close
>
>End Sub