Unir archivos en una hoja nueva de excel Macro
Publicado por Rodrigo (2 intervenciones) el 22/06/2016 17:09:03
Buen Día
Estou intentando correr una Macro que una varios archivos de excel y los compajine en una sola hoja, para posterior extraer información específica al unificar los los archivos en uno solo pero me sale un error 52:
Estou intentando correr una Macro que una varios archivos de excel y los compajine en una sola hoja, para posterior extraer información específica al unificar los los archivos en uno solo pero me sale un error 52:
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
Private Sub CommandButton1_Click()
Dim directorio As String
Dim fichero As String
Dim ficherodondeimportar As String
Dim hoja As Worksheet
Dim totalhojas As Integer
directorio = " C:\Users\tiburcr\Desktop\Resverlogix Macro\"
ficherodondeimportar = "importar-hojas.xlsm"
fichero = Dir(directorio & "*.xls") La macro me marca como error esta parte y me da un error de tipo 52
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While ficheros <> ""
Workbooks.Open (directorio & ficehro)
For Each hoja In Workbooks(fichero).Worksheets
totalhojas = Workbooks(ficherodondeimportar).Worksheets.Count
Workbooks(fichero).Worksheets(hoja.Name).Copy after:=Workbooks(ficherodondeimportar).Worksheets(totalhojas)
Next hoja
Workbooks(fichero).Close
fichero = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Valora esta pregunta
0
