Excel - Export cells into .txt file

[pho01]

I have a spreadsheet with thousand of rows. I combine values of all columns of each row into one column K.

Now I want to export each row of column K into a text file.
For example:

Sheet1.Cells(1,"K").value => C:\temp\1.txt
Sheet1.Cells(2,"K").value => C:\temp\2.txt
Sheet1.Cells(3,"K").value => C:\temp\3.txt

How can I do that with xcel macro?

Thanks!

 

[SkipVought]

Hi,

You want ONE ROW in each text file?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[ClulessChris]

Something like:

    Dim FileNum             As Long
    FileNum = FreeFile
    Open "C:\temp\1.txt" For Append As #FileNum
    Write #FileNum, Sheet1.Cells(1,"K").value 
    Close #FileNum

good luck

Never knock on Death's door: ring the bell and run away! Death really hates that!

 

[pho01]

Thanks ClulessChris. It worked