Add Column Names to VBA script

J

Joe K.

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
 
D

Dave D-C

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top