escribir datos de Excel en un file de text

KLM 1 Starting_Year Code ID ------------------------------------ 2 1982 ALLRIN 400200583 3 1983 ALLRIN 000083522 4 1983 ALLRIN 400200583 

Cualquier forma de crear dos files de text, su nombre será "1982", "1983" según "Starting_Year", y el file "1982" contiene "400200583", también el file "1983" contiene "000083522" y "400200583".

es lo que tuve que probar, me pregunto si tengo que usar un ciclo for para capturar los datos de "Starting_Year", "ID"? Alguna idea, y como puedo hacerlo? ¡Muchas gracias!

  Public Function CreateTextFile(FileName As String, Optional Overwrite As Boolean = True, Optional Unicode As Boolean = False) As Scripting.TextStream Dim oTs as Scripting.TextStream set oTs = CreateTextFile("W:\starting_Year.txt",True) oTs.Write("ID") oTs.close End Function 

Sub CreateTextFile () Dim ifree, iyear, i, j As Long Dim ipath As String

 ipath = "C:\Users\You" 'TO UPDATE ifree = FreeFile i = 2 While Cells(i, 1) <> "" iyear = Cells(i, 1) ifree = FreeFile Open ipath & "\" & iyear & ".txt" For Output As ifree j = 2 While Cells(j, 1) <> "" If Cells(j, 1) = iyear Then Print #ifree, Cells(j, 3) j = j + 1 Wend Close ifree i = i + 1 Wend End Sub 

Con starting_year en Col A, código en Col B, ID en Col C.