Necesito ayuda con una macro de unificación de archivos

Esta es la macro y lo que hace es unir varios libros de una misma carpeta en una sola pestaña, todos los archivos con una sola hoja y con las mismas columnas empezando en A1.

El problema es que quiero que ademas de la unificación que ya esta bien, que me autogenere una columna extra en el nuevo archivo que me diga por cada fila de que libro viene ( o de que nombre de Hoja viene, ya que tienen el mismo nombre las hojas que los libros).

Gracias, esta es la macro:

Sub UNIFICAR_ARCHIVOS()
Application.DisplayAlerts = False
Control = 0
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path & "\"
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder(ruta)
For Each archivo In carpeta.Files
If archivo = ruta & mio Then GoTo salto
If archivo = ruta & "~$" & mio Then Exit Sub
Workbooks.Open archivo
otro = ActiveWorkbook.Name
Sheets(1).Select
If Control = 0 Then
Range("a1:" & Range("iv1").End(xlToLeft).Address).Copy Destination:=Workbooks(mio).Sheets(1).Range("a1")
Control = 1
End If
Range("a1").CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Copy
Workbooks(mio).Sheets(1).Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Workbooks(otro).Close False
salto:
Next
End Sub

0

Añade tu respuesta

Haz clic para o