ayuda con macro para unir archivos excel
Publicado por marcelo (1 intervención) el 23/10/2017 20:16:06
Estimados,
Este macro que he adjuntado funciona correctamente pero necesito que me ayuden a realizarle una modificación.
1. Al ejecutarlo une bien los archivos pero siempre deja al comienzo una hoja1 vacia. Eso quiero corregirlo para que no aparezca.
2. Necesito ademas que cuando los una, les deje el nombre del archivo como nombre de hoja.
Adjunto el código:
Este macro que he adjuntado funciona correctamente pero necesito que me ayuden a realizarle una modificación.
1. Al ejecutarlo une bien los archivos pero siempre deja al comienzo una hoja1 vacia. Eso quiero corregirlo para que no aparezca.
2. Necesito ademas que cuando los una, les deje el nombre del archivo como nombre de hoja.
Adjunto el código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub UnirLibros()
Dim Directorio, NombreLibro As StringDim ContadorFicheros As String
Dim Unidos As Workbook
Dim K, NumHojas As IntegerDim Libro As Workbook
Directorio = ThisWorkbook.Path
ContadorFicheros = Dir$(Directorio + "\*.*")
'Crea el libro que contendrá a todos los demás
Application.SheetsInNewWorkbook = 1
Set Unidos = Application.Workbooks.Add
Do While ContadorFicheros <> "" And UCase(ContadorFicheros) <> "UNIR.XLSM"
Workbooks.Open Filename:=Directorio & "\" & ContadorFicheros
Set Libro = Workbooks(ContadorFicheros)
NumHojas = Libro.Worksheets.Count
For K = 1 To NumHojasLibro.Worksheets(K).Copy after:=Unidos.Worksheets(Unidos.Worksheets.Count)
NombreLibro = Replace(Libro.Name, ".xlsx", "")
'Unidos.Worksheets(Unidos.Worksheets.Count).Name = NombreLibro & "_" & Libro.Worksheets(K).Name
Next K
Workbooks(ContadorFicheros).Close
ContadorFicheros = Dir$Loop
Unidos.Worksheets(2).Select
With Unidos
.SaveAs Filename:=Directorio & "\" & "UNIDOS.xlsx"
.CloseEnd With
End Sub
- UNIR.rar(17,2 KB)
Valora esta pregunta
0