Quiero relacionar libros de excel pero me depura en esta linea: Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count)
Aqui estan los codigos : esto es para la macro te pondre en negrita el error pero no se xq me tira error
Sub Open_Files()
Dim Hoja As Object
Application.ScreenUpdating = False
Dim X As Variant
X = Application.GetOpenFilename _
("Excel Files (*.xls), *.xls", 2, "Abrir archivos", , True)
If IsArray(X) Then
Workbooks.Add
A = ActiveWorkbook.Name
For y = LBound(X) To UBound(X)
Application.StatusBar = "Importando Archivos: " & X(y)
Workbooks.Open X(y)
b = ActiveWorkbook.Name
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count)
Next
Workbooks(b).Close False
Next
Application.StatusBar = "Listo"
Call Unir_Hojas
End If
Application.ScreenUpdating = False
End Sub
¿Qué mensaje de error te aparece?
¿Qué versión de excel tienes?
¿Estás abriendo varios archivos o solamente uno?
Tal vez no está reconociendo el nombre del archivo.
Intenta con lo siguiente:
Sub Open_Files2()
Dim Hoja As Object
Dim X As Variant
'
Application.ScreenUpdating = False
X = Application.GetOpenFilename _
("Excel Files (*.xls), *.xls", 2, "Abrir archivos", , True)
If IsArray(X) Then
Set l2 = Workbooks.Add
For y = LBound(X) To UBound(X)
Application.StatusBar = "Importando Archivos: " & X(y)
Set l3 = Workbooks.Open(X(y))
For Each Hoja In l3.Sheets
Hoja.Copy after:=l2.Sheets(l2.Sheets.Count)
Next
l3.Close False
Set l3 = Nothing
Next
Application.StatusBar = "Listo"
Call Unir_Hojas
Set l2 = Nothing
End If
Application.ScreenUpdating = True
End SubSi te funciona, r ecuerda valorar la respuesta. Sal u dos
¡Gracias! Pero no me funciono ayúdame por favor
Tengo que relacionar distintos libros de excel para poder seguir trabajando con mi aplicación por favor
Saludos!
Responde lo siguiente:
¿Qué mensaje de error te aparece?
¿Qué versión de excel tienes?
¿Estás abriendo varios archivos o solamente uno?
