Modify macro code to export multiple cell contents to multiple Text Files

[todk1]

Hello,
I have 200 cells in column D with text in them. I want to use a macro
to generate 200 separate text files containing each individual cell
contents. If possible, I'd like to name of each text file to be based
on the cell adjacent in Column C. Using the macro below, I can generate
a text file from what ever cell I have highlighted. Since I'm not a
good macro writer, I'm not sure how to modify the code so it does what
I need. If someone could help me out I would be so grateful!!!

Sub Export()
Dim r As Range, c As Range
Dim sTemp As String

Open "c:\MyOutput.txt" For Output As #1
For Each r In Selection.Rows
sTemp = ""
For Each c In r.Cells
sTemp = sTemp & c.Text & Chr(9)
Next c

'Get rid of trailing tabs
While Right(sTemp, 1) = Chr(9)
sTemp = Left(sTemp, Len(sTemp) - 1)
Wend
Print #1, sTemp
Next r
Close #1


End Sub

 

[Stopher]

Your macro relies on you selecting a range, so if you click on the top
cell in column D you want to convert to a txt file and CRT-SHF- Down
Arrow and then run the macro it should work. To incorperate this into
the macro you need something like

Range("D1").Select
Range(Selection, Selection.End(xlDown)).Select

Regards

Stopher

 

[todk1]

Thank you for your quick reply. If I select multiple cells and run the
macro it creates on text file. I need to generate one text file for
each cell. I will need to generate approximately 200 text files for
the 200 cells I have in column D. The macro I included is the only
thing I could find that was close to what I am looking for. It's not
exactly what i'm looking for though because (a) it only generates 1
text file, and (b) it always generates the text file with the same name
at C:\MyOutput.txt. Thanks - T

 

[Stopher]

Thank you for your quick reply. If I select multiple cells and run the
macro it creates on text file. I need to generate one text file for
each cell. I will need to generate approximately 200 text files for
the 200 cells I have in column D. The macro I included is the only
thing I could find that was close to what I am looking for. It's not
exactly what i'm looking for though because (a) it only generates 1
text file, and (b) it always generates the text file with the same name
at C:\MyOutput.txt. Thanks - T

So for all details in Column "C", you want a txt file with the same
name saved ??
And where do you want all the data in the corresponding Coulmn "D",
"A1" or the original position in the master file?

Regards
Stopher