Copiar varios archivos en una sola hoja de otro libro

Hola, primero que nada muchas gracias por su tiempo, gracias a respuestas para otros usuarios he salido de muchos problemas, mi problema es que necesito copiar varias celdas de una hoja pero de igual manera de varios libros y dejarlos en uno solo como base de datos.
He intentado hacer una macro hecha por un experto y me da un error de compilaion, que dice "No se ha definido sub o funcion", esto lo marca en la linea que dice: Call ProcessFiles(FS.FoundFiles(i)), ya lo he cambiado como el experto dijo en su momento por Call ProcesaArchivo(FS.FoundFiles(i)) y me sigue enviando el mismo error.
La macro del experto en su menmento y que estoy copiando a mi macro es:
Sub ProcesaLote()
Dim FS As FileSearch
Dim FilePath As String, FileSpec As String
Dim i As Integer
FilePath = ThisWorkbook.Path & "\"
Set FS = Application.FileSearch
With FS
.LookIn = FilePath
.FileName = FileSpec
.Execute
' Salir si no se encontraron archivos
If .FoundFiles.Count = 0 Then
MsgBox "No se encontraron archivos"
Exit Sub
End If
End With
' Recorrer los archivos
For i = 1 To FS.FoundFiles.Count
Call ProcessFiles(FS.FoundFiles(i))
Next i
End Sub
De antemano muchas gracias por su ayuda
Respuesta
1
¿En qué línea te da el error?.
[email protected]
Hola, perdon si te hice trabajar en vano, he copiado por ahi algunos codigos y me funciono una sola ves, ahora me manda error 1004: no s encontró el archivo. te puedo pegar el codigo que tengo haber si puedes decirme que estoy haciendo mal, como dije antes soy muy novato en macros e inclusive estoy usando cosas que no entiendo al 100.
Gracias por tu apoyo, el codigo es:
Sub Macro1()
'
' Macro1 Macro
'
'
Call ListFiles("D:\Gestion", "*.xls")
End Sub
Sub ProcesaArchivos(nombre As String)
' Importar Archivos
Workbooks.Open Filename:=nombre
Range("A1:K32").Select
Selection.Copy
Windows("RECUPERA.XLSM").Activate
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
llenad
Windows(strTemp).Activate
ActiveWindow.Close
End Sub
Sub llenad()
'
' llenad Macro
'
Dim filaUlt As Long 'esta será la primer fila libre para acumular los datos
filaUlt = Sheets("Hoja1").Range("A1048576").End(xlUp).Row + 1
'luego pasarás cada celda de tu hoja 1 a las distintas col de la fila libre
Sheets("Hoja1").Cells(filaUlt, 1) = Sheets("Hoja2").Range("j4")
Sheets("Hoja1").Cells(filaUlt, 2) = Sheets("Hoja2").Range("B8")
Sheets("Hoja1").Cells(filaUlt, 3) = Sheets("Hoja2").Range("g1")
Sheets("Hoja1").Cells(filaUlt, 4) = Sheets("Hoja2").Range("B2")
Sheets("Hoja1").Cells(filaUlt, 5) = Sheets("Hoja2").Range("g1")
Sheets("Hoja1").Cells(filaUlt, 6) = Sheets("Hoja2").Range("B4")
Sheets("Hoja1").Cells(filaUlt, 7) = Sheets("Hoja2").Range("j2")
Sheets("Hoja1").Cells(filaUlt, 8) = Sheets("Hoja2").Range("j4")
Sheets("Hoja1").Cells(filaUlt, 9) = Sheets("Hoja2").Range("j6")
Sheets("Hoja1").Cells(filaUlt, 10) = Sheets("Hoja2").Range("j8")
Sheets("Hoja1").Cells(filaUlt, 11) = Sheets("Hoja2").Range("b10")
Sheets("Hoja1").Cells(filaUlt, 12) = Sheets("Hoja2").Range("h10")
Sheets("Hoja1").Cells(filaUlt, 13) = Sheets("Hoja2").Range("b12")
Sheets("Hoja1").Cells(filaUlt, 14) = Sheets("Hoja2").Range("b12")
Sheets("Hoja1").Cells(filaUlt, 15) = Sheets("Hoja2").Range("b12")
Sheets("Hoja1").Cells(filaUlt, 16) = Sheets("Hoja2").Range("i12")
Sheets("Hoja1").Cells(filaUlt, 17) = Sheets("Hoja2").Range("i12")
Sheets("Hoja1").Cells(filaUlt, 18) = Sheets("Hoja2").Range("b14")
Sheets("Hoja1").Cells(filaUlt, 19) = Sheets("Hoja2").Range("e14")
Sheets("Hoja1").Cells(filaUlt, 20) = Sheets("Hoja2").Range("e14")
Sheets("Hoja1").Cells(filaUlt, 21) = Sheets("Hoja2").Range("h14")
Sheets("Hoja1").Cells(filaUlt, 22) = Sheets("Hoja2").Range("b16")
Sheets("Hoja1").Cells(filaUlt, 23) = Sheets("Hoja2").Range("k14")
Sheets("Hoja1").Cells(filaUlt, 24) = Sheets("Hoja2").Range("j16")
Sheets("Hoja1").Cells(filaUlt, 25) = Sheets("Hoja2").Range("c18")
Sheets("Hoja1").Cells(filaUlt, 26) = Sheets("Hoja2").Range("e25")
Sheets("Hoja1").Cells(filaUlt, 27) = Sheets("Hoja2").Range("g25")
Sheets("Hoja1").Cells(filaUlt, 28) = Sheets("Hoja2").Range("j25")
Sheets("Hoja1").Cells(filaUlt, 29) = Sheets("Hoja2").Range("d23")
Sheets("Hoja1").Cells(filaUlt, 30) = Sheets("Hoja2").Range("j29")
Sheets("Hoja1").Cells(filaUlt, 31) = Sheets("Hoja2").Range("h32")
Sheets("Hoja1").Cells(filaUlt, 32) = Sheets("Hoja2").Range("k32")
End Sub
Public Function ListFiles(strPath As String, Optional strFileSpec As String, _
Optional bIncludeSubfolders As Boolean, Optional lst As ListBox)
On Error GoTo Err_Handler
'Purpose: List the files in the path.
'Arguments: strPath = the path to search.
' strFileSpec = "*.*" unless you specify differently.
' bIncludeSubfolders: If True, returns results from subdirectories of strPath as well.
' lst: if you pass in a list box, items are added to it. If not, files are listed to immediate window.
' The list box must have its Row Source Type property set to Value List.
'Method: FilDir() adds items to a collection, calling itself recursively for subfolders.
Dim colDirList As New Collection
Dim varItem As Variant
Call FillDir(colDirList, strPath, strFileSpec, bIncludeSubfolders)
'Add the files to a list box if one was passed in. Otherwise list to the Immediate Window.
If lst Is Nothing Then
For Each varItem In colDirList
Debug.Print varItem
Next
Else
For Each varItem In colDirList
lst.AddItem varItem
Next
End If
Exit_Handler:
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Exit_Handler
End Function
Private Function FillDir(colDirList As Collection, ByVal strFolder As String, strFileSpec As String, _
bIncludeSubfolders As Boolean)
'Build up a list of files, and then add add to this list, any additional folders
Dim strTemp As String
Dim colFolders As New Collection
Dim vFolderName As Variant
Dim nombre As String
'Add the files to the folder.
strFolder = TrailingSlash(strFolder)
strTemp = Dir(strFolder & strFileSpec)
Do While strTemp <> vbNullString
nombre = strTemp
colDirList.Add strFolder & strTemp
strTemp = Dir
Call ProcesaArchivos(nombre)
Loop
If bIncludeSubfolders Then
'Build collection of additional subfolders.
strTemp = Dir(strFolder, vbDirectory)
Do While strTemp <> vbNullString
If (strTemp <> ".") And (strTemp <> "..") Then
If (GetAttr(strFolder & strTemp) And vbDirectory) <> 0& Then
colFolders.Add strTemp
End If
End If
strTemp = Dir
Loop
'Call function recursively for each subfolder.
For Each vFolderName In colFolders
Call FillDir(colDirList, strFolder & TrailingSlash(vFolderName), strFileSpec, True)
Next vFolderName
End If
End Function
Public Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "\" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "\"
End If
End If
End Function
Hola gracias me manda el error a la hora que estoy abriendo el libro en la linea:
Workbooks.Open Filename:=nombre
Gracias
Prueba con esto: Workbooks.OpenText Filename:=nombre
holaa no fijate que me manda lo mismo, cuando ejecuto la macro paso a paso solo me da el nombre del archivo en la variable, no deberia traer la direccion completa? osea D:\gestiones\nombre
Gracias por la prontitud
Ingresa primero la ruta:
Dim FilePath As String
FilePath = "D:\gestiones\nombre"
resto_de_código
[email protected]
si funciona gracias todavia tengo que trabajar al en el código porque cuendo cierre el mensaje manda un mensaje de si quiero actualizar las formulas al nuevo formato y otro de que lo que si quiero que se borre lo que esta en el portapapeles, aprovechando tu sabras como hacer para que no aparezcan?
estoy trabajando con excell 2007 y los archivos son de excell 2003
Pero la primera pregunta esta resuelta, muchas gracias de nuevo
Application.DisplayAlerts = False
Para desactivar esos mensajes. Al final del código lo pones a True.
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro pra copiar celdas en otra hoja

No se nada de macros, pero me interesa una en la cual copie algunas celdas y rangos en otra hoja, pero que al pergarlas me las copie en fila y no en columna es decir que si yo tengo información en la celda A1 y en a B3 en la hoja 1 llamemos así a la...
1 respuesta

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Macro copiar y pegar

Hectorpm me pregunto si me puedeayudar con una macro qu me copieun rango de celdas de excel con sus características(ejemplo si hay celdas combinadas o tienen margenes) y luego lo pegue en otra hoja de un libro diferente a partir de una fila...
2 respuestas

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

Buenas tardes como están... Tengo una macro que compara diferencias entre 2 hojas

La macro compara las diferencias entre las 2 hojas y copia las diferencia en una tercera. Y trabaja bien con 30 o 40 lineas pero necesito que compare unas 900 o 1000 lineas, Otra cosa esta macro tiene una hoja ( hoja 1 como master) y importa datos de...
1 respuesta

Almacenar los datos de una celda

Antes de explicarme me gustaría agradecer a todos los que hacéis posible esta página, ya que nos sirve de mucho vuestro trabajo, gracias. Bueno lo que intento es hacer en una celda de una hoja en la que voy a meter muchos DNI, almacenarlos en otra...
1 respuesta