Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Registrarse  \/ 
x

or

¿Cómo combinar varios libros de trabajo en un libro de trabajo maestro en Excel?

¿Alguna vez se ha quedado atascado cuando tiene que combinar varios libros de trabajo en un libro de trabajo maestro en Excel? Lo más terrible es que los libros de trabajo que necesita combinar contienen varias hojas de trabajo. ¿Y cómo combinar solo las hojas de trabajo especificadas de varios libros de trabajo en un libro de trabajo? Este tutorial muestra varios métodos útiles para ayudarlo a resolver el problema paso a paso.


Combine varios libros de trabajo en un solo libro con la función Mover o Copiar

Si solo es necesario combinar un par de libros de trabajo, puede usar el comando Mover o Copiar para mover o copiar manualmente hojas de trabajo del libro de trabajo original al libro de trabajo maestro.

1. Abra los libros de trabajo que fusionará en un libro de trabajo maestro.

2. Seleccione las hojas de trabajo en el libro de trabajo original que moverá o copiará al libro de trabajo maestro.

Notas

1). Puede seleccionar varias hojas de trabajo no adyacentes sosteniendo el Ctrl y haciendo clic en las pestañas de la hoja una por una.

2). Para seleccionar varias hojas de trabajo adyacentes, haga clic en la pestaña de la primera hoja, mantenga presionado el cambio y luego haga clic en la pestaña de la última hoja para seleccionarlas todas.

3). Puede hacer clic derecho en cualquier pestaña de la hoja, hacer clic en Seleccionar todas las hojas en el menú contextual para seleccionar todas las hojas de trabajo en el libro de trabajo al mismo tiempo.

3. Después de seleccionar las hojas de trabajo necesarias, haga clic con el botón derecho en la pestaña de la hoja y luego haga clic en Mover o copiar desde el menú contextual. Ver captura de pantalla:

4. Entonces el Mover o copiar aparece el diálogo, en el Reservar menú desplegable, seleccione el libro de trabajo maestro al que moverá o copiará las hojas de trabajo. Seleccione mover para terminar en el Antes de la hoja casilla, marque la Crea una copia cuadro, y finalmente haga clic en el OK

Luego, puede ver las hojas de trabajo en dos libros combinados en uno. Repita los pasos anteriores para mover hojas de trabajo de otros libros al libro maestro.


Combine varios libros de trabajo u hojas específicas de libros de trabajo en un libro de trabajo maestro con VBA

Si es necesario fusionar varios libros de trabajo en uno, puede aplicar los siguientes códigos VBA para lograrlo rápidamente. Haz lo siguiente.

1. Coloque todos los libros de trabajo que desee combinar en uno solo en el mismo directorio.

2. Inicie un archivo de Excel (este libro será el libro maestro).

3. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie el código de VBA a continuación en la ventana del Módulo.

Código 1 de VBA: combine varios libros de Excel en uno

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Notas

1. El código VBA anterior conservará los nombres de las hojas de los libros de trabajo originales después de la fusión.

2. Si desea distinguir qué hojas de trabajo en el libro de trabajo maestro provienen de dónde después de la fusión, aplique el siguiente código VBA 2.

3. Si solo desea combinar hojas de trabajo específicas de los libros de trabajo en un libro de trabajo maestro, el código 3 de VBA a continuación puede ayudar.

En códigos VBA, "C: \ Usuarios \ DT168 \ Escritorio \ KTE \”Es la ruta de la carpeta. En el código 3 de VBA, "Hoja1, Hoja3"son las hojas de trabajo especificadas de los libros de trabajo que combinará en un libro de trabajo maestro. Puede cambiarlas según sus necesidades.

Código 2 de VBA: combine los libros de trabajo en uno (cada hoja de trabajo se nombrará con el prefijo de su nombre de archivo original):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Código 3 de VBA: combine hojas de trabajo específicas de libros de trabajo en un libro de trabajo maestro:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. presione el F5 clave para ejecutar el código. Luego, todas las hojas de trabajo o las hojas de trabajo especificadas de los libros de trabajo en la carpeta determinada se combinan en un libro de trabajo maestro a la vez.


Combine fácilmente varios libros de trabajo o hojas específicas de libros de trabajo en un libro de trabajo

Afortunadamente, el Combinar utilidad de libro de trabajo de Kutools for Excel hace que sea mucho más fácil fusionar varios libros en uno. Veamos cómo hacer que esta función funcione al combinar varios libros de trabajo.

Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.

1. Cree un nuevo libro de trabajo y haga clic en Kutools Plus > Combinar. Luego aparece un cuadro de diálogo para recordarle que todos los libros de trabajo combinados deben guardarse y la función no se puede aplicar a los libros de trabajo protegidos, haga clic en el OK

2. En el Combinar hojas de trabajo asistente, seleccione Combine varias hojas de trabajo de libros de trabajo en un libro de trabajo opción, y luego haga clic en la Siguiente página botón. Ver captura de pantalla:

3. En el Combinar hojas de trabajo - Paso 2 de 3 cuadro de diálogo, haga clic en Añadir > Archivo or carpeta para agregar los archivos de Excel se fusionará en uno. Después de agregar los archivos de Excel, haga clic en el Tecnologías y elija una carpeta para guardar el libro maestro. Ver captura de pantalla:

Ahora todos los libros de trabajo se fusionan en uno.

En comparación con los dos métodos anteriores, Kutools for Excel tiene las siguientes ventajas:

  • 1) Todos los libros y hojas de trabajo se enumeran en el cuadro de diálogo;
  • 2) Para las hojas de trabajo que desea excluir de la combinación, simplemente desmárquela;
  • 3) Las hojas de trabajo en blanco se excluyen automáticamente;
  • 4) El nombre del archivo original se agregará como prefijo al nombre de la hoja después de la fusión;
  • Para obtener más funciones de esta característica, por favor visita aqui.

  Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Kutools para Excel - Te ayuda a terminar siempre el trabajo antes de tiempo, tener más tiempo para disfrutar la vida
¿Se encuentra a menudo tratando de ponerse al día con el trabajo, falta de tiempo para usted y su familia?  Kutools for Excel puede ayudarlo a lidiar con acertijos de Excel al 80% y mejorar la eficiencia del trabajo en un 80%, brindarle más tiempo para cuidar de la familia y disfrutar de la vida.
300 herramientas avanzadas para 1500 escenarios de trabajo, hacen que su trabajo sea mucho más fácil que nunca.
Ya no necesitas memorizar fórmulas y códigos VBA, dale un descanso a tu cerebro a partir de ahora.
Las operaciones complicadas y repetidas se pueden realizar con un procesamiento único en segundos.
Reduzca miles de operaciones de teclado y mouse todos los días, diga adiós a las enfermedades profesionales ahora.
Conviértase en un experto en Excel en 3 minutos, ayúdelo a obtener rápidamente un reconocimiento y una promoción de aumento de sueldo.
110,000 personas altamente efectivas y más de 300 empresas de renombre mundial.
Haga que sus $ 39.0 valgan más que $ 4000.0 en la capacitación de otros.
Prueba gratuita de todas las funciones durante 30 días. Garantía de devolución de dinero de 60 días sin motivo.

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Shady39 · 6 years ago
    Thanks Ginger41!!!!

    Works perfectly. I'm using Excel 2010.

    Only issue I had was when I copied Ginger41's sub, it for some reason put gaps in weird places. Just read through and tidy up any gaps (or run the Debug and it will pick them up).
  • To post as a guest, your comment is unpublished.
    Trease · 6 years ago
    I need to combine six spreadsheets into one. Some workbooks have multiple tabs and even though some of the info is the same, all is not. I need to turn it all into one Spreadsheet and all like categories added together for a final sum. Can this help me?
  • To post as a guest, your comment is unpublished.
    Aidan · 6 years ago
    Hi,
    I want to setup my a master set of excel documents in a folder and give them all the files names which will be numbers only (eg 0001, 0002, 0003 and so on. Information contained within them will be feeding a master document also within the same folder. I have to set up all the links at the start so that i can copy the entire folder and reuse on the next project. So its basically a simply link, problem is I want to allow the feeder documents name to change slightly throughout the project. So feeder document 0001 may become '0001 Job12', 0002 might become '0002 roadworks' and so on. I can manually update the links but there will be 100 feeder excel documents, each containing loads of links. Can I maintain the link, even if i change the document name slightly ?
  • To post as a guest, your comment is unpublished.
    John · 6 years ago
    Excel 2010. Script as is did work, but I do not have the 'webbrowser-like tabs" at the top of the newly combined workbook as illustrated at the top of the page. Is the illustration just a well placed ad???
  • To post as a guest, your comment is unpublished.
    santhosh.s · 6 years ago
    :lol: VERY GOOD SHORT CUT IN EXCEL MY DEAR PEPOLE
  • To post as a guest, your comment is unpublished.
    orivera · 6 years ago
    @michelle Change this line:

    RowofCopySheet = 2

    to

    RowofCopySheet = 1
  • To post as a guest, your comment is unpublished.
    LAW · 6 years ago
    @Code How do you incorporate more sheets and how do you specify a different master file to paste all the sheets.
  • To post as a guest, your comment is unpublished.
    Dr. Paul B. · 6 years ago
    That code was great! Thanks so much.
  • To post as a guest, your comment is unpublished.
    michelle · 6 years ago
    @Niki Foster How do I edit this so that the data pulled in always starts on the top row? If I run this code twice, it adds the data to the end of my previous data (from the first run of the macro).
  • To post as a guest, your comment is unpublished.
    Aren · 6 years ago
    I use an app rather than code and recode. Data Amalgamation by pasync
  • To post as a guest, your comment is unpublished.
    khar booza · 6 years ago
    This is very hard, is it possible you can do it for me?
  • To post as a guest, your comment is unpublished.
    Niki Foster · 6 years ago
    None of these worked for me

    I finally got this one to work. FYI I am using 2010

    'Description: Combines all files in a folder to a master file.
    Sub MergeFiles()
    Dim path As String, ThisWB As String, lngFilecounter As Long
    Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
    Dim Filename As String, Wkb As Workbook
    Dim CopyRng As Range, Dest As Range
    Dim RowofCopySheet As Integer

    RowofCopySheet = 2 ' Row to start on in the sheets you are copying from

    ThisWB = ActiveWorkbook.Name

    path = "mypath....." ' Dont't forget to change this

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Set shtDest = ActiveWorkbook.Sheets(1)
    Filename = Dir(path & "\*.xls", vbNormal)
    If Len(Filename) = 0 Then Exit Sub
    Do Until Filename = vbNullString
    If Not Filename = ThisWB Then
    Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
    Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))
    Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
    CopyRng.Copy Dest
    Wkb.Close False
    End If

    Filename = Dir()
    Loop

    Range("A1").Select

    Application.EnableEvents = True
    Application.ScreenUpdating = True

    MsgBox "Done!"
    End Sub
  • To post as a guest, your comment is unpublished.
    Ginger41 · 6 years ago
    Try this out...I got this from another site but unfortunately I can't remember the lady's name so my apologies for not giving her a mention, my bad"

    Combine multiple WB's in Excel:
    REMEMBER TO CHANGE MyPath = !

    Sub Merge2MultiSheets()
    Dim wbDst As Workbook
    Dim wbSrc As Workbook
    Dim wsSrc As Worksheet
    Dim MyPath As String
    Dim strFilename As String

    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    MyPath = "\\MyPath\etc\etc..."
    Set wbDst = Workbooks.Add(xlWBATWorksheet)
    strFilename = Dir(MyPath & "\*.xls", vbNormal)

    If Len(strFilename) = 0 Then Exit Sub

    Do Until strFilename = ""

    Set wbSrc = Workbooks.Open(Filename:=MyPath & "\" & strFilename)

    Set wsSrc = wbSrc.Worksheets(1)

    wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count)

    wbSrc.Close False

    strFilename = Dir()

    Loop
    wbDst.Worksheets(1).Delete

    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True

    End Sub
  • To post as a guest, your comment is unpublished.
    Dileep · 6 years ago
    I Have a workbook it contain around 250 Sheet . I need to Cobain in one sheet. please give me a solution
  • To post as a guest, your comment is unpublished.
    Greg · 6 years ago
    @jlhall07 Me too. This was working 6 months ago, the last time I had to run it. Has anyone found the solution yet? If you had it running before and now it won't work could it be something to do with an update by Microsoft? This is really handy tool for my tasks and saves me loads of time. What could have changed that would cause Excel to start displaying this message all of a sudden? Being fairly new to VBA I have little idea where to begin analysing the logic.

    Kind regards,

    Greg. Glasgow, Scotland.
  • To post as a guest, your comment is unpublished.
    christian · 7 years ago
    i have 112 excel sheets i want to put into a single sheet without copy and paste. Please help me out.
  • To post as a guest, your comment is unpublished.
    Code · 7 years ago
    @Henrik For the code to incorporate the file name just do this.

    Sub GetSheets()
    Dim temp As String
    Path = "C:\Users\....\Desktop\Excel combine\"
    Filename = Dir(Path & "*.xlsx")
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    temp = ActiveWorkbook.Name
    ActiveSheet.Name = temp
    ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1)
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub

    Note: this is to only copy the first sheet, it can be tweeked to do all sheets
  • To post as a guest, your comment is unpublished.
    Nazeer · 7 years ago
    Hi,

    I tried using the above macros to collate few files, unfortunately no results...

    can some one help me getting rid of manually collating files.
  • To post as a guest, your comment is unpublished.
    Patrick · 7 years ago
    @Dave I was looking for something along these lines but wanted to comment. Doesn't the Do While Filename "" need to be something other than ""? or am I reading that wrong?

    Maybe Do While NOT filename = ""

    Just a thought...
  • To post as a guest, your comment is unpublished.
    jlhall07 · 7 years ago
    @sara Nothing yet... Haven't found any solution or had anyone suggest a fix. Sorry...
  • To post as a guest, your comment is unpublished.
    sara · 7 years ago
    @jlhall07 Im having tis problem too. Did you figure it out?
  • To post as a guest, your comment is unpublished.
    jlhall07 · 7 years ago
    @Dave [quote name="Dave"]Try this for newer versions of excel. I saved my workbook as catalog, all the files are in c:\temp.

    Sub GetSheets()
    Path = "c:\temp\"
    Filename = Dir(Path & "*.xls")
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub[/quote]

    I keep getting "can't assign to read-only property" concerning the path... Any idea?
  • To post as a guest, your comment is unpublished.
    Anand Darbha · 7 years ago
    I want to combine all the sheets into one sheet where the headings are common...pls help
  • To post as a guest, your comment is unpublished.
    Dave · 7 years ago
    Try this for newer versions of excel. I saved my workbook as catalog, all the files are in c:\temp.

    Sub GetSheets()
    Path = "c:\temp\"
    Filename = Dir(Path & "*.xls")
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub
  • To post as a guest, your comment is unpublished.
    Dave · 7 years ago
    for newer versions of excel, try this. I saved my open workbook as catalog, and all the files are in c:\temp.

    Sub GetSheets()
    Path = "c:\temp\"
    Filename = Dir(Path & "*.xls")
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=Workbooks("catalog.xlsx").Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub
  • To post as a guest, your comment is unpublished.
    Sherrill · 7 years ago
    Dear Sir/Madam: I followed the steps of "Combine multiple workbooks to one workbook with VBA" to set up the following module, but nothing happened. Would you help me find the problem? thank you



    Sub GetSheets()
    Path = "p:\download\macro\"
    Filename = Dir(Path & "*.xls")
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=ThisWorkbook.Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub
  • To post as a guest, your comment is unpublished.
    Sherrill · 7 years ago
    I followed the steps in "Combine multiple workbooks to one workbook with VBA" and click on "run", nothing happend. I am not aware of errors and not sure how to correct. Would you help me? the following is the code I input in a new workbook.

    Thank you

    [b]Sub GetSheets()
    Path = "p:\download\macro\"
    Filename = Dir(Path & "*.xls")
    Do While Filename ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=ThisWorkbook.Sheets(1)
    Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
    Loop
    End Sub[/b]
  • To post as a guest, your comment is unpublished.
    Dado · 7 years ago
    After combining the worksheets in one Workbook ,how do you save it I couldn't save it is named Book1 and I am clicking on save or save as but not working.any suggestions?
  • To post as a guest, your comment is unpublished.
    Ness · 7 years ago
    How do you get it to update the changes from the original workbook? I'm trying to get a national summary which will have each region input their data into their own workbooks and then have the national summary which updates from this? I'd like to have this set up for the full year at the beginning and not be working retrospectively.
  • To post as a guest, your comment is unpublished.
    hamid · 7 years ago
    thanks for sharing your knowledge
  • To post as a guest, your comment is unpublished.
    Dinesh · 7 years ago
    Thanks much for the valuable information. This really works. The steps listed in this article really made my job easier.

    Thanks,
    Dinesh
  • To post as a guest, your comment is unpublished.
    Amol · 7 years ago
    Thanks mate, u made my day from this very helpful website... Actually i was also wanted to combine the same header data of different sheets into 1 master worksheet, the KUTOOL for Excel helped me a lot.... Thank you once again.... :)
  • To post as a guest, your comment is unpublished.
    Tedi · 7 years ago
    This is superb :lol: helped me a lot....
  • To post as a guest, your comment is unpublished.
    Henrik · 7 years ago
    Hey

    Great tip. Did [i]almost[/i] all I wanted.

    In the combinde woorkbook, I would have lovede for the worksheet name to contain the name of the original woorkbook, so I know which woorkbook the data comes from.

    The data I'm combining, is from different archives. I have to search for an entry, but don't know which archive it's in.

    So by combining all the data in one file will make it possible for me to search all archives at once.

    But I still need to know, which archive the entry is in.

    Henrik
  • To post as a guest, your comment is unpublished.
    Amir · 7 years ago
    Hi!
    Thanks a lot of this file.............
    :roll:
    Best Regard
  • To post as a guest, your comment is unpublished.
    Susie · 7 years ago
    I get a 'runtime error 1004', Copy Method of Worksheet class failed on the line that reads: Sheet.Copy After:=ThisWorkbook.Sheets(1). I'm using Excel 2010.

    Can you assist? Thanks, - Susie
  • To post as a guest, your comment is unpublished.
    Jay Chivo · 7 years ago
    @A. Karthi [quote name="A. Karthi"]Hi Plz help me out to this below condition.

    I have different workbook which has more than 5 worksheets each in different path. I need to consolidate all worksheets from different workbook into single workbook. Can anyone help me to resolve with macro.TIA![/quote]

    Please go to download and install the Kutools for Excel, you can quickly get it done. But if you want to use a VBA, it may be too complicated.

    For more information about how to get it done, please visit:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
  • To post as a guest, your comment is unpublished.
    A. Karthi · 7 years ago
    Hi Plz help me out to this below condition.

    I have different workbook which has more than 5 worksheets each in different path. I need to consolidate all worksheets from different workbook into single workbook. Can anyone help me to resolve with macro.TIA!