Checking for last column of a comma delimted file

[databaser]

My problem is when Excel saves a csv file and the columns on the end are null. The csv file has commas for all the columns for only about 16 rolls. After that it just stops putting the commas in for the null columns. How can I test using VBA to see if I am at the end of the line and no more comma separted fields exist in that row.

 

[mscallisto]

Maybe something like this:

Sub SaveAsCommaDelimited()
Dim r as integer, c As Integer
Open "C:\Documents and Settings\sam\Desktop\OutFile.txt" For Output As #1
With ActiveSheet.UsedRange
   For r = 1 To .Rows.Count
      For c = 1 To .Columns.Count - 1
          Print #1, .Cells(r, c); ",";
      Next c
      Print #1, .Cells(r, .Columns.Count)
   Next r
End With
Close #1

End Sub

sam

 

[TripleJHJO]

You could look for a chr(13).

 

[mscallisto]

ps this probably go to VBA Visual Basic for Applications forum707