Múltiples Archivos planos a plantilla excel

Fijate en www.programarexcel.blogspot.com hay algo parecido a lo que intentas hacer hay lo que hace es crear un archivo txt y lo guarda, en ese caso se hizo para pasar a un aplicativo en especial pero lo puedes adaptar, también encontraras otras macros que crean archivos y lo guardan; igualmente te lo paso aca a ver si te sirve

Sub ImportaPercepcionesGananciasSiap()
Application.ScreenUpdating = False
'Multiplica por uno para convertir texto en número de existir, para luego si es entero agregar
'dos dígitos después del último número.
Range("W1").Select
Selection.Copy
Range("F2:F2000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
'el siguiente procedimiento es para copiar y armar el archivo txt con los valores cargados
Range("b2").Select
While ActiveCell.Value <> ""
'se pasa a la fila siguiente
ActiveCell.Offset(1, 0).Select
'se repite el ciclo
Wend
'pone el numero de la fila libre en la variable filalibre
filalibre = ActiveCell.Row - 1
'arma un rango con el valor de la fila libre
mirango = "v2" & ":v" & filalibre
Range(mirango).Select
Selection.Copy
'agrega un nuevo libro y elimina todas las hojas
Workbooks.Add
Range("a1").Activate
Selection.PasteSpecial Paste:=xlValues
'inhabilita el modo Copiar/Pegar
Application.CutCopyMode = False
Application.DisplayAlerts = False
While ActiveWorkbook.Sheets.Count <> 1
ActiveSheet.Next.Delete
Wend
'ActiveWorkbook.SaveAs Filename:="C:\Importa percepciones IVA a SIAP1", FileFormat:=xlTextMSDOS, CreateBackup:=False
'ActiveWorkbook.SaveAs Filename:="C:\Importa percepciones Ganancias_PF a SIAP.txt", FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\Users\Mi Cuenta\Documents\Importa percepciones Ganancias_PF a SIAP.csv", FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox ("Se creo con éxito el archivo en C:\Users\Mi Cuenta\Documents\Importa percepciones Ganancias_PF a SIAP.txt; debiendo importarlo desde el aplicativo correspondiente como retenciones"), vbInformation
Range("a1").Select
End Sub

Gracias amigo, pero no consigo modificar la macro para que me realice la operación que necesito.

Necesitaría que tomara por defecto todos los archivos csv de una carpeta a escoger pegase los datos en un archivo xlt y lo guardase con el nombre que tenia el csv.

no veo la forma de adaptar la macro.

Gracias igualmente.

Después de mucho pensarlo creo encontrar una forma mas sencilla.

Lo ideal seria un form donde pudiese examinar los csv ( realmente son TXT pero con esta extensión ), también pudiese seleccionar la plantilla .xlt diseñada para estos archivos, un último campo donde indicaría la columna donde se encuentra el nombre que le quiero dar a la hoja creada con los csv. ( en la columna C por ejemplo solo va a encontrar un texto , no siempre en la misma fila, pues ese texto debería ser el nombre de la pestaña.

La macro debería crear un libro y copiar la plantilla en una nueva hoja por cada csv, posteriormente copiar el contenido de cada csv y pegarlo en cada hoja donde tenemos la plantilla. Como ultimo punto debería mirar la columna donde hemos dicho que encontrara el nombre y asignarlo a cada hoja.

De esta forma ya tendría el libro preparado para usar otra macro que tengo, que convierte cada hoja a pdf con el nombre que le damos + el de la hoja y lo preparar para enviar por correo.

Seria posible alguna pequeña introducción de como hacerlo?