| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
vba to append to a text file
It works well, as expected. Thx. cg
"Rick Rothstein (MVP - VB)" wrote: This code should do what you want... Sub AppendText53() Dim X As Long Dim FF As Long Dim Rnge As Range Dim FileName As String FileName = "C:\TEMP\Test.txt" FF = FreeFile() Open FileName For Append As #FF For Each Rnge In Range("A2:A54") If Len(Rnge.Value) = 53 Then Print #FF, Rnge.Value Next Close #FF End Sub Place it in the code window for the sheet you want to run it from and change the example filename I used to the filename of the actual file you want to append to. Of course, as you should always do with code you get from others, test it out on a sample file before applying it to your real file. Rick "hccatmo" wrote in message ... I have cells like these: A2 A3 A4 ... A54 which are not all 53 char in length. I'd like to append only the content of A2 to A54 that is 53 char in length to a text file. Thx. cg |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Append Excel Sheet from constantly updating delimited text file | Setting up and Configuration of Excel | |||
| Append text file | Excel Discussion (Misc queries) | |||
| Append text | Excel Discussion (Misc queries) | |||
| Append Records to a Text File | Excel Programming | |||
| excel97 vba to append lines to text file overwriting last 2 lines | Excel Programming | |||
Threaded Mode
