Split Text file on the basis of specific no. of character

[sanjuss2]

Hi,
I have text file which must be like as under

0040025001200205000000018907082017
0040015001600405000000018907082017
0040015001600505000000018907082017
0040015001600205000000018907082017

I need to create multiple text files on the basis of 3 characters from 12 no. of character i.e. in bold

the file must contain same record i.e for 002.txt file

0040025001200205000000018907082017
0040015001600205000000018907082017

for 004.txt file
0040015001600405000000018907082017

for 005.txt file
0040015001600505000000018907082017

Is this possible with vba? if yes Thanks in advance.
Prompt helps will saved my time & efforts.

 

[rpaulson]

this should do it.

Assuming you data starts in cell A1 and goes down.
Adjust your path as needed, don't forget the "" at the end

Sub outputtotextfile()

fPath = "C:\Test\"

For r = 1 To Range("A65536").End(xlUp).Row
    fName = Mid(Cells(r, "A"), 12, 3)
    Open fPath & fName & ".txt" For Append As #1  'add to existing file
    Print #1 , Cells(r, "A")
    Close #1 
Next r
    
End Sub

hth

Ross

 

[sanjuss2]

Gr8, Thanks again