Cómo UNIR Varios ARCHIVOS de Excel en uno Solo Online – Fácil y Rápido
Mira Cómo Se Hace
Views: 31099
Like: 259
¡Suscribete para apoyar al canal! ▶️ ◀️
Link al Tutorial ▶️ ◀️
Link al Tutorial ▶️ ◀️
Link al Tutorial ▶️ ◀️
Link al Tutorial ▶️ ◀️
En este video te mostramos Cómo UNIR Varios ARCHIVOS de Excel en uno Solo Online – Fácil y Rápido. En este canal encontrarás los mejores tutoriales. ¡No te lo pierdas!
24.10.2023
¡Suscribete para apoyar al canal! ▶️ http://bit.ly/Suscribirse-MCSH ◀️
Link al Tutorial ▶️ https://miracomosehace.com/unir-archivos-excel-online/ ◀️Link al Tutorial ▶️ https://descubrecomohacerlo.com/unir-online-varios-archivos-excel-unico-archivo/ ◀️
Donde está el código??? Ni siquiera está en la pagina a la que redirecciona!!!
Y el código!? ¬¬
y el codigo?
Y EL CODIGOOOOOOO
Je je je este weon se burló de todos con lo del código . Que bestia forma de ganar suscripciones…..!!
En este enlace hay una herramienta https://www.funcionarioseficientes.es/tutoriales/como-fusionar-muchas-hojas-de-excel-en-un-unico-archivo
Y el código a continuación cambiando la ruta de la carpeta donde están los excel a unir :
Sub simpleXlsMerger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("D:changetoexcelfilespathhere")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A65536" to the same column as start point
Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub
si funciona con el codigo
Sub unirexcel()
'Unir diferentes archivos excel en un solo excel principal
Application.DisplayAlerts = False
'define variables:
Dim numberOfFilesChosen, i As Integer
Dim tempFileDialog As FileDialog
Dim mainWorkbook, sourceWorkbook As Workbook
Dim tempWorkSheet As Worksheet
Set mainWorkbook = Application.ActiveWorkbook
Set tempFileDialog = Application.FileDialog(msoFileDialogFilePicker)
'Habilitar la selección de multiples libros
tempFileDialog.AllowMultiSelect = True
numberOfFilesChosen = tempFileDialog.Show
For i = 1 To tempFileDialog.SelectedItems.Count
'Abrir cada libro
Workbooks.Open tempFileDialog.SelectedItems(i)
Set sourceWorkbook = ActiveWorkbook
'Copia cada hoja de los libros abiertos
For Each tempWorkSheet In sourceWorkbook.Worksheets
tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count)
Next tempWorkSheet
'Cerrar los archivos fuente
sourceWorkbook.Close
Next i
Application.DisplayAlerts = True
End Sub
de verdad muchas gracias de verdad me serviste mucho vi muchos videos y solo el tuyo sirvio sigue asi maquina
GRACIAS COMPA
Ay muchas gracias, me salvaron con mi tarea ;(
y el codigo…? ya vi que todos preguntaron… 🙁
Ya que no dejaron el codigo se los dejo yo.
Sub Juntarall()
Application.DisplayAlerts = False
A = ActiveWorkbook.Name
R = ActiveWorkbook.Path
ChDir R & ""
archi = Dir("*.xls*")
Do While archi <> A
Workbooks.Open archi
B = ActiveWorkbook.Name
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Copy After:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count)
Next
Workbooks(B).Close False
archi = Dir()
Loop
End Sub
Disculpa ¿Dónde puedo encontrar el código para hacerlo en vb?
Vi mil tutoriales antes de llegar a éste y solo con esta opción puede compilar mis 50 archivos en un solo documentos!!! GRACIAS!!!
No entiendo como un canal estafador tenga mas de 200 mil suscriptores .-.
Wao me fuiste de gran ayuda, me salvaste de un apuro, muchas gracias
Crack!! No entiendo por qué tan pocos likes en este video, y los que le dieron "no me gusta" ¿todo bien en casa?….. Gracias Amigo, fue la solución perfecta luego de mil videos.
Gracias por tu contenido me sirvio
Una pregunta @Mira Cómo Se Hace, Con este mismos código se puede implementar un botón a este documento?
y el codigo ¿¿¿
Gracias por compartir, fue la manera menos complicada de unir archivos excel, felicitaciones y bendiciones.
CUALES SON LAS LINEAS DE CODIGO QUE SE DEBEN COPIAR
PORQUE NO PUEDO
Recomendación : Crear la carpeta en C: o D: no dentro de muchas carpetas.
Sub UnirFiles()
Dim Hoja As Object
Application.DisplayAlerts = False
A = ActiveWorkbook.Name
R = ActiveWorkbook.Path
ChDir R & ""
archi = Dir("*.xls")
Do While archi <> A
Workbooks.Open archi
B = ActiveWorkbook.Name
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Copy After:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count)
Next
Workbooks(B).Close False
archi = Dir()
Loop
End Sub
hola, donde quedó el código?, saludos
¡Que fenómeno! Llevo más de tres años tratando de hacer eso pero nunca pude. Copiaba el archivo y se pegaba con otro formato. Tan fácil que lo explicas. Muchas gracias.
Amigo buenos días, excelente manera de hacerlo, estoy aprendiendo cada día mas, pero solo me falta algo, no encuentro el código que se debe pegar al final para poder proceder con lo demás, quede varado, saludos…
Hola, no veo código que mencionan en el video
Podrías compartirlo por favor
Gracias
SEÑORES FUNCIONA…
Sub UnirFiles()
Dim Hoja As Object
Application.DisplayAlerts = False
A = ActiveWorkbook.Name
R = ActiveWorkbook.Path
ChDir R & ""
archi = Dir("*.xls")
Do While archi <> A
Workbooks.Open archi
B = ActiveWorkbook.Name
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Copy After:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count)
Next
Workbooks(B).Close False
archi = Dir()
Loop
End Sub
Donde esta el código??