read a spreadsheet and save each row as a txt file

[dbzmkl]

I have a problem that i don't know if is solvable.
i have a spreadsheet with information regarding about 1000 pictures i.e. picture id, name, number, date, place taken.
here is a sample csv

picture id,name,number,date,place taken
DRN1000,Quynn X. Black,MZY57RRN7JF,1/31/2012 11:39,Downey
DRN1001,Allegra T. Jackson,QPF47BKJ5AB,6/19/2012 15:06,West Jordan
DRN1002,Mollie A. Sims,PIA58UFO3ZX,4/11/2011 14:20,Marietta
DRN1003,Connor A. Wall,YPP10JFL7TL,11/20/2010 15:41,Santa Barbara
DRN1004,Nissim Q. Burch,TSZ72VNL3WL,10/23/2011 2:39,Fairfax


i need to separate this info according to rows and save as a text file
but the catch is the new file created should have the following format

type=dd:PicturesContentType
dd\:name=Quynn X. Black
dd\:number=MZY57RRN7JF
dd\:date=1/31/2012 11:39
dd\lace taken=Downey


and the name of each new file should be what is in the first row i.e the above file will be named DRN1000.

any help will be highly appriciated.

 

[JazzSP8]

Hi

This should work for you?

Sub MakeTXT()
Dim LastRow As Long, i As Long

LastRow = Range("A65536").End(xlUp).Row

For i = 2 To LastRow

    Open Cells(i, "A").Value & ".txt" For Output As #1
    
        Print #1, "type=dd:PicturesContentType"
        Print #1, "dd\:name=" & Cells(i, "B").Value
        Print #1, "dd\:number=" & Cells(i, "C").Value
        Print #1, "dd\:date=" & Cells(i, "D").Value
        Print #1, "dd\:place taken=" & Cells(i, "E").Value
        
    Close #1
     
Next i

End Sub

HTH

 

[dbzmkl]

this is by far the most amazing code i've seen, i love the simplicity
thanks for pointing me to the right direction