Saving text from a cell to a TXT file

[mark hansen]

How can I drop the contents of a cell to a .TXT file?

I have a cell that has a formula, that formula has a concatenate statement that pulls text from other cells into a long text string. Normally I copy and paste that into other programs. I'd like to save that text to a .TXT file so another program can use it in a little better fashion.

Thanks for any help.
Mark

 

[VoG]

Try like this

Sub WriteText()
Dim iMyFreeFile As Integer
iMyFreeFile = FreeFile
Open "C:\xltext.txt" For Output As #iMyFreeFile
Write #iMyFreeFile, Range("A1").Value
Close #iMyFreeFile
End Sub

 

[rudfaden]

You could just save it as a .csv file

 

[mark hansen]

Thanks Vog. Very helpful. Now that I know what the commands are, I did some searches for some great ideas I didn't know I wanted to do.

Thanks
Mark