Leer varios archivos de excel y concentrar en una sola hoja
publicado
Hola a todos amigos, tengo este código que me trae la información de un libro, sin embargo, ando intentando importar varios archivos a la vez pero ya me bloquié, este es el código que ocupo para leer el libro, espero alguien me puede dar una idea, saludos
Application.ScreenUpdating = False
Dim wbLibroOrigen As Workbook
Dim wsHojaOrigen As Worksheet
Dim wbLibroDestino As Workbook
Dim wsHojaDestino As Worksheet
Dim ruta As String
ruta = ActiveWorkbook.Path & "\" & "Lista_Negra_SAT.csv"
'Datos destino
Set wbLibroDestino = Workbooks(ThisWorkbook.Name)
Set wsHojaDestino = wbLibroDestino.Worksheets("Hoja1")
'Datos origen
Set wbLibroOrigen = Workbooks.Open(ruta)
Set wsHojaOrigen = wbLibroOrigen.Worksheets("Lista_Negra_SAT")
uFila = wsHojaOrigen.Range("A" & Rows.Count).End(xlUp).Row
wsHojaOrigen.Range("A1:AD" & uFila).Copy Destination:=wsHojaDestino.Range("DA1")
Workbooks(wbLibroOrigen.Name).Close
Application.ScreenUpdating = True
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos amigos, tengo este código que me trae la información de un libro, sin embargo, ando intentando importar varios archivos a la vez pero ya me bloquié, este es el código que ocupo para leer el libro, espero alguien me puede dar una idea, saludos
Application.ScreenUpdating = False Dim wbLibroOrigen As Workbook Dim wsHojaOrigen As Worksheet Dim wbLibroDestino As Workbook Dim wsHojaDestino As Worksheet Dim ruta As String ruta = ActiveWorkbook.Path & "\" & "Lista_Negra_SAT.csv" 'Datos destino Set wbLibroDestino = Workbooks(ThisWorkbook.Name) Set wsHojaDestino = wbLibroDestino.Worksheets("Hoja1") 'Datos origen Set wbLibroOrigen = Workbooks.Open(ruta) Set wsHojaOrigen = wbLibroOrigen.Worksheets("Lista_Negra_SAT") uFila = wsHojaOrigen.Range("A" & Rows.Count).End(xlUp).Row wsHojaOrigen.Range("A1:AD" & uFila).Copy Destination:=wsHojaDestino.Range("DA1") Workbooks(wbLibroOrigen.Name).Close Application.ScreenUpdating = True