Saving Rows to a txt file with cell separator ?

[Malik157]

Hello, I am trying to find a code that will allow me to Save Rows to a txt file with cell seperator ?

I have put together this from other peoples work online and now all i need to work out is how to add a cell seperator like a comer ?

Sub WriteTotxt()

Const forReading = 1, forAppending = 3, fsoForWriting = 2
Dim fs, objTextStream, sText As String
Dim lLastRow As Long, lRowLoop As Long, lLastCol As Long, lColLoop As Long

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

For lRowLoop = 1 To lLastRow

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = fs.opentextfile("C:\Users\Sam\Desktop\" & Cells(lRowLoop, 1) & ".txt", fsoForWriting, True)

    sText = ""

    For lColLoop = 1 To 7
        sText = sText & Cells(lRowLoop, lColLoop) & Chr(10) & Chr(10)
    Next lColLoop

    objTextStream.writeline (Left(sText, Len(sText) - 1))


    objTextStream.Close
    Set objTextStream = Nothing
    Set fs = Nothing

Next lRowLoop

End Sub

[millz]

What should the output look like in the text file? Currently it is putting every single cell separated by an empty row in a single column?

your

text

file

looks

like

this

where

should

the

comma

be?

[Malik157]

For me the output is just being displayed like this in a text file:

text1cowchickenbreakfastdiner

I want to output to be like this:

text1,cow,chicken,breakfast,diner

[millz]

I think you can just change this line

sText = sText & Cells(lRowLoop, lColLoop) & Chr(10) & Chr(10)

to this

sText = sText & Cells(lRowLoop, lColLoop) & ","

[Malik157]

Thank you worked straight away!