Here is one way. It assumes that your column A would have a value for each row. If the TXT file exists, it is overwritten.
Sub ExportRows()
Dim r As Range, r2 As Range
Dim ff As Integer
Dim s As String
For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
s = ""
For Each r2 In Range(r, Cells(r.Row, Columns.Count).End(xlToLeft))
If VarType(r2) = vbString Then
s = s & "," & """" & r2.Value & """"
Else
s = s & "," & r2.Value
End If
Next r2
s = Right(s, Len(s) - 1)
ff = FreeFile
Open ThisWorkbook.Path & "\" & Format(r.Row, "000000") & ".txt" For Output As #ff
Print #ff, s
Close #ff
Next r
End Sub
Bookmarks