leer archivo csv, transformar datos y crear un nuevo csv

[erbuson]

Hola, puedes leer dos registros cada vez antes de efectuar el split, después tomar las 'columnas' que necesites y grabarlos en el fichero de Salida, por lo que veo tienes una (,) coma al final de Fila1 así puedes hacer:

Dim Fila1 As String, Fila2 As String

Line Input #1, Fila1
Line Input #1, Fila2

Dato = Split(Fila1 & Fila2, ",")

Esto es un poco la idea, si no lo ves claro, lo comentamos un poco mas tarde que tengo que salir un momento pitando.

Saludos