-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
range pasted to string
- Thread starter iknowu99
- Start date
Jon von der Heyden
MrExcel MVP, Moderator
- Joined
- Apr 6, 2004
- Messages
- 10,912
- Office Version
- 365
- Platform
- Windows
Do you want the values in C2:Cx written in a single line in your text file, or as multiple lines? And how are you actually writing it to a text file?
Upvote
0
iknowu99
Well-known Member
- Joined
- Dec 26, 2004
- Messages
- 1,158
- Office Version
- 2016
Hi buddy, thanks for responding!
i'm not going european time here, sometimes i wish i was,...trying to get this done!
please see http://www.mrexcel.com/forum/showthread.php?t=145924
it's what i found similar to my deal
i'm not going european time here, sometimes i wish i was,...trying to get this done!
please see http://www.mrexcel.com/forum/showthread.php?t=145924
it's what i found similar to my deal
Upvote
0
Jon von der Heyden
MrExcel MVP, Moderator
- Joined
- Apr 6, 2004
- Messages
- 10,912
- Office Version
- 365
- Platform
- Windows
This works without the loop:
Code:
[COLOR=blue]Public[/COLOR] [COLOR=blue]Sub[/COLOR] phoo()
[COLOR=blue]Dim[/COLOR] arr()
[COLOR=blue]Dim[/COLOR] rngText [COLOR=blue]As[/COLOR] Range
[COLOR=blue]Dim[/COLOR] iFile [COLOR=blue]As[/COLOR] [COLOR=blue]Integer[/COLOR]
[COLOR=blue]Dim[/COLOR] strText [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR], strFileName [COLOR=blue]As[/COLOR] [COLOR=blue]String[/COLOR]
[COLOR=blue]Set[/COLOR] rngText = Range("C2", Range("C" & Rows.Count).End(xlUp))
arr = Application.Transpose(rngText)
strText = [COLOR=blue]Join$[/COLOR](arr(), vbCrLf)
iFile = [COLOR=blue]FreeFile[/COLOR]()
strFileName = "C:/TestIt.txt"
[COLOR=blue]Open[/COLOR] strFileName [COLOR=blue]For[/COLOR] [COLOR=blue]Output[/COLOR] [COLOR=blue]As[/COLOR] #iFile
[COLOR=blue]Print[/COLOR] #iFile, strText
[COLOR=blue]Close[/COLOR] #iFile
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]
Upvote
0
Jon von der Heyden
MrExcel MVP, Moderator
- Joined
- Apr 6, 2004
- Messages
- 10,912
- Office Version
- 365
- Platform
- Windows
I didn't realise there were so many, so now lets try write it to the text file one at a time:
Code:
[COLOR="Blue"]Public[/COLOR] [COLOR="Blue"]Sub[/COLOR] phoo()
[COLOR="Blue"]Dim[/COLOR] rngCell [COLOR="Blue"]As[/COLOR] Range
[COLOR="Blue"]Dim[/COLOR] iFile [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Integer[/COLOR]
[COLOR="Blue"]Dim[/COLOR] strFileName [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]String[/COLOR]
iFile = [COLOR="Blue"]FreeFile[/COLOR]()
strFileName = "C:/TestIt.txt"
[COLOR="Blue"]Open[/COLOR] strFileName [COLOR="Blue"]For[/COLOR] [COLOR="Blue"]Output[/COLOR] [COLOR="Blue"]As[/COLOR] #iFile
[COLOR="Blue"]For[/COLOR] [COLOR="Blue"]Each[/COLOR] rngCell [COLOR="Blue"]In[/COLOR] Range("C2", Range("C" & Rows.Count).End(xlUp))
[COLOR="Blue"]Print[/COLOR] #iFile, rngCell.Value
[COLOR="Blue"]Next[/COLOR] rngCell
[COLOR="Blue"]Close[/COLOR] #iFile
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]
Upvote
0
Similar threads
- Solved
