Multiple excel files to one

Do you want to boost your productivity in Excel?

Get the Professor Excel ribbon!

Add more than 120 great features to Excel!

How Do I Combine Multiple Files Into One File?

Do you need to combine multiple Excel files? Maybe you have many different Excel workbooks that you’re working on, and you want to manage in one place. Perhaps you want one master spreadsheet referencing a few other ones. Maybe you shared a copy of the Excel file with your team, who updated parts of it, and you want to merge it back into the master file.

There are many methods to combine Excel files. Each method can be useful in its own way, depending on your use case. So without further ado, let’s go through some of the most popular methods to merge Excel files.

If you want to combine data from multiple Google Sheets, you can do that easily using Layer. Layer is a free add-on that allows you to share sheets or ranges of your main spreadsheet with different people. On top of that, you get to monitor and approve edits and changes made to the shared files before they’re merged back into your master file, giving you more control over your data.

Install the Layer Google Sheets Add-On today and Get Free Access to all the paid features, so you can start managing, automating, and scaling your processes on top of Google Sheets!

What Are XLS Files?

XLS files are Microsoft Excel spreadsheet documents that store data in worksheets, which contain cells arranged into rows and columns. XLS stands for eXceL Spreadsheet. XLS files can contain numerical data, text, charts, and even audio and video. They are used for creating spreadsheets that can be modified and updated with ease. The .xls file extension is the most common format for Excel documents created using Microsoft Office 97-2003 or earlier versions of the software. In newer versions of Microsoft Office, XLS files are replaced by the Excel Workbook format (.xwb).

XLS files are widely used in businesses and educational institutions, as they allow large amounts of data to be organized and shared easily. Excel spreadsheets can be used for a variety of purposes, such as creating budgets, tracking sales figures, analyzing survey results, and more. XLS files can also be opened in other spreadsheet programs such as OpenOffice Calc, Apple Numbers, and Google Sheets.

XLS files are cross-platform compatible, meaning they can be opened on Mac, Windows, and Linux operating systems. To open an XLS file you will need a program that can read Excel documents such as Microsoft Excel, Apache OpenOffice Calc, Apple Numbers, or Google Sheets.

How to Combine Excel Files With Manual Copying?

The easiest and most straightforward way to merge two files is to simply copy the data from one file to another.

1. 1. Select the range to copy or press Ctrl/Cmd + A to select the entire sheet.
2. 2. Press Ctrl/Cmd + C to copy the range.
3. 3. Head to the other spreadsheet and, if necessary, create a new sheet.
4. 4. Select the location to paste the data and press Ctrl/Cmd + V.

While this method might be the fastest when dealing with smaller spreadsheets, it becomes risker and more complicated as the files grow. Human error is almost inevitable, and mistakes are bound to happen. That’s why you should only use this method for simple personal use cases.

How to Combine Excel Files Using Move or Copy?

You can use Excel’s «Move or Copy» feature to copy one or more Excel sheets from one Workbook to another instantly.

1. 1. Open the Excel files.
2. 2. Select the sheets you want to copy to the other Workbook by holding Ctrl/Cmd and selecting the sheets. The selected sheets will be highlighted. You can unselect sheets by clicking on them again.
3. 3. To select multiple sheets at once, head to the first sheet you want to copy and hold the Shift key. Then, select the last sheet to copy. All the sheets between the two selected ones will be selected as well.
4. 4. Right-click and select «Move or Copy». A dialog box will pop up.

1. 5. Under «To book:», select the other file to move the data to.
2. 6. For «Before sheet:», select where you want the sheets to be inserted. You can always re-organize your sheets later.
3. 7. Press «Ok».

How to Combine Excel Files By Pasting Links?

Excel allows you to reference cells in different Excel files or workbooks. This makes it possible to combine Excel files by referencing them in the master file.

1. 1. Open both Excel files.
2. 2. Copy the first cell from the Workbook you want to reference.
3. 3. Go to your master file.
4. 4. Select the cell where you want to display the data and press right-click.
5. 5. From the menu, select Paste Special > Paste Link. This will automatically generate the necessary formula for you. It will look like this:

='[file.xlsx]sheet'!$A$1

1. 6. To display the other cells, change the formula from absolute cell referencing to relative cell referencing by removing the dollar signs ($) so that it looks like:

='[file.xlsx]sheet'!A1

1. 7. Copy and paste the formula to the other cells that you want to display.

While this method allows you to protect your data by only using references to your files instead of pasting the values, it can be overly complicated. If you break one of the formulas or accidentally delete one of the files, you will end up with many #REF! errors that may be hard to fix.

In addition, when referencing blank cells, while you might think that they would stay empty, the cells will display a zero «0» in the master sheet. There are, of course, workarounds for this to hide the zeros in this case, but it’s yet another additional step that makes this method even more complicated.

How to Combine Excel Files Using Power Query?

Power Query (Get & Transform) allows you to import, edit, and consolidate data into Excel. It can also be used to combine multiple Excel files by adding them to one folder:

1. 1. Move all of the files you want to combine into one folder.
2. 2. In Excel, go to the «Data» tab.
3. 3. Press Get Data > From File > From Folder.
4. 4. Browse and select the folder path.
5. 5. Press «Ok».
6. 6. If the files are ready to be combined, press «Combine & Load».
7. 7. If you wish to manipulate the data before combining the files, press the «Transform Data» button. This will open up the Query Editor, where you will have the ability to re-organize and filter data, manage rows and columns, and more.

The Get & Transform method might be one of the easiest to combine files from multiple sources together. Not only does it allow you to import Excel Workbooks, but you can also import other file formats, including text, CSV, XML, JSON, PDF, and more.

However, this feature is only available in all Excel 2016 or later Windows stand-alone versions and Microsoft 365 subscription plans. This means that Mac users are unable to use this feature and instead will need to use VBA.

How to Combine Excel Files Using VBA?

Excel VBA (Visual Basic for Applications) is the programming language for Excel and all Microsoft Office products. It allows you to create macros to manipulate and automate your Excel processes.

Don’t worry. You won’t have to learn a new programming language. You can use the pre-created macros below. And while we won’t be going into details regarding VBA, you can find descriptions for each part of the macros below.

1. 1. Open all the Excel files that you want to combine.
2. 2. To open the VBA editor, use the Windows shortcut Alt + F11 or the Mac shortcut Opt + F11 or Fn + Opt + F11.
3. 3. Go to Insert > Module. This will create a new module for the Workbook.
4. 4. Copy and paste one of the codes below depending on the way you want to combine your spreadsheets:

Combine all Excel files into a new workbook as individual sheets

Sub CombineMultipleFiles()
On Error GoTo eh
    'declare variables to hold the objects required
Dim wbDestination As Workbook
Dim wbSource As Workbook
Dim wsSource As Worksheet
Dim wb As Workbook
Dim sh As Worksheet
Dim strSheetName As String
Dim strDestName As String
    'turn off the screen updating to speed things up
Application.ScreenUpdating = False 'first create new destination workbook
Set wbDestination = Workbooks.Add 'get the name of the new workbook so you exclude it from the loop below
strDestName = wbDestination.Name 'now loop through each of the workbooks open to get the data but exclude your new book or the Personal macro workbook
For Each wb In Application.Workbooks
If wb.Name < > strDestName And wb.Name < > "PERSONAL.XLSB"
Then
Set wbSource = wb
For Each sh In wbSource.Worksheets
sh.Copy After: = Workbooks(strDestName).Sheets(1)
Next sh
End If
Next wb
    'now close all the open files except the new file and the Personal macro workbook.
For Each wb In Application.Workbooks
If wb.Name < > strDestName And wb.Name < > "PERSONAL.XLSB"
Then
wb.Close False
End If
Next wb

    'remove sheet one from the destination workbook
Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True 'clean up the objects to release the memory
Set wbDestination = Nothing
Set wbSource = Nothing
Set wsSource = Nothing
Set wb = Nothing 'turn on the screen updating when complete
Application.ScreenUpdating = False
Exit Sub
eh:
    MsgBox Err.Description
End Sub

Combine all Excel files into a single sheet in a new workbook

Sub CombineMultipleSheets()
On Error GoTo eh
'declare variables to hold the objects required
 Dim wbDestination As Workbook
 Dim wbSource As Workbook
 Dim wsDestination As Worksheet
 Dim wb As Workbook
 Dim sh As Worksheet
 Dim strSheetName As String
 Dim strDestName As String
 Dim iRws As Integer
 Dim iCols As Integer
 Dim totRws As Integer
 Dim strEndRng As String
 Dim rngSource As Range
'turn off the screen updating to speed things up
 Application.ScreenUpdating = False
'first create new destination workbook
 Set wbDestination = Workbooks.Add
'get the name of the new workbook so you exclude it from the loop below
 strDestName = wbDestination.Name
'now loop through each of the workbooks open to get the data
 For Each wb In Application.Workbooks
 If wb.Name <> strDestName And wb.Name <> "PERSONAL.XLSB" Then
 Set wbSource = wb
 For Each sh In wbSource.Worksheets
'get the number of rows and columns in the sheet
 sh.Activate
 ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
 iRws = ActiveCell.Row
 iCols = ActiveCell.Column
'set the range of the last cell in the sheet
 strEndRng = sh.Cells(iRws, iCols).Address
'set the source range to copy
 Set rngSource = sh.Range("A1:" & strEndRng)
'find the last row in the destination sheet
 wbDestination.Activate
 Set wsDestination = ActiveSheet
 wsDestination.Cells.SpecialCells(xlCellTypeLastCell).Select
 totRws = ActiveCell.Row
'check if there are enough rows to paste the data
 If totRws + rngSource.Rows.Count > wsDestination.Rows.Count Then
 MsgBox "There are not enough rows to place the data in the Consolidation worksheet."
 GoTo eh
 End If
'add a row to paste on the next row down
 If totRws <> 1 Then totRws = totRws + 1
 rngSource.Copy Destination:=wsDestination.Range("A" & totRws)
 Next sh
 End If
 Next wb
'now close all the open files except the one you want
 For Each wb In Application.Workbooks
 If wb.Name <> strDestName And wb.Name <> "PERSONAL.XLSB" Then
 wb.Close False
 End If
 Next wb
'clean up the objects to release the memory
 Set wbDestination = Nothing
 Set wbSource = Nothing
 Set wsDestination = Nothing
 Set rngSource = Nothing
 Set wb = Nothing
'turn on the screen updating when complete
 Application.ScreenUpdating = False
Exit Sub
eh:
MsgBox Err.Description
End Sub

Combine all Excel files into a single worksheet in an active workbook

Sub CombineMultipleSheetsToExisting()
 On Error GoTo eh
'declare variables to hold the objects required
 Dim wbDestination As Workbook
 Dim wbSource As Workbook
 Dim wsDestination As Worksheet
 Dim wb As Workbook
 Dim sh As Worksheet
 Dim strSheetName As String
 Dim strDestName As String
 Dim iRws As Integer
 Dim iCols As Integer
 Dim totRws As Integer
 Dim rngEnd As String
 Dim rngSource As Range
'set the active workbook object for the destination book
 Set wbDestination = ActiveWorkbook
'get the name of the active file
 strDestName = wbDestination.Name
'turn off the screen updating to speed things up
 Application.ScreenUpdating = False
'first create new destination worksheet in your Active workbook
 Application.DisplayAlerts = False
'resume next error in case sheet doesn't exist
 On Error Resume Next
 ActiveWorkbook.Sheets("Consolidation").Delete
'reset error trap to go to the error trap at the end
 On Error GoTo eh
 Application.DisplayAlerts = True
'add a new sheet to the workbook
 With ActiveWorkbook
 Set wsDestination = .Sheets.Add(After:=.Sheets(.Sheets.Count))
 wsDestination.Name = "Consolidation"
 End With
'now loop through each of the workbooks open to get the data
 For Each wb In Application.Workbooks
 If wb.Name <> strDestName And wb.Name <> "PERSONAL.XLSB" Then
 Set wbSource = wb
 For Each sh In wbSource.Worksheets
'get the number of rows in the sheet
 sh.Activate
 ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
 iRws = ActiveCell.Row
 iCols = ActiveCell.Column
 rngEnd = sh.Cells(iRws, iCols).Address
 Set rngSource = sh.Range("A1:" & rngEnd)
'find the last row in the destination sheet
 wbDestination.Activate
 Set wsDestination = ActiveSheet
 wsDestination.Cells.SpecialCells(xlCellTypeLastCell).Select
 totRws = ActiveCell.Row
'check if there are enough rows to paste the data
 If totRws + rngSource.Rows.Count > wsDestination.Rows.Count Then
 MsgBox "There are not enough rows to place the data in the Consolidation worksheet."
 GoTo eh
 End If
'add a row to paste on the next row down if you are not in row 1
 If totRws <> 1 Then totRws = totRws + 1
 rngSource.Copy Destination:=wsDestination.Range("A" & totRws)
 Next sh
 End If
 Next wb
'now close all the open files except the one you want
 For Each wb In Application.Workbooks
 If wb.Name <> strDestName And wb.Name <> "PERSONAL.XLSB" Then
 wb.Close False
 End If
 Next wb
 
'clean up the objects to release the memory
 Set wbDestination = Nothing
 Set wbSource = Nothing
 Set wsDestination = Nothing
 Set rngSource = Nothing
 Set wb = Nothing
'turn on the screen updating when complete
 Application.ScreenUpdating = False
Exit Sub
eh:
MsgBox Err.Description
End Sub

5. 5. Press the play button. This will open the «Macros» dialogue box.
6. 6. Select the macro and press «Run».

While VBA can be extremely powerful, again, it’s a programming language. This means that besides using pre-written macros, you would have to learn Excel VBA to create your own or modify existing ones, which comes with its own set of challenges.

Excel’s legacy Shared Workbook feature allows. While Excel eventually replaced it with its new co-authoring feature due to its many limitations, you can still use it to merge shared copies of the same Excel file.

First, you will need to enable highlighting changes:

1. 1. Go to Tools > Track Changes > Highlight changes.
2. 2. Check the «Track changes while editing» box to enable tracking.
3. 3. Select when you want to start highlighting changes, for whom, and for which cell range, if necessary. By leaving the boxes unchecked, you will be tracking all the changes in your Workbook for all collaborators.
4. 4. Select whether you want to enable onscreen highlighting, which outlines affected cells in different colors for different users. This is only useful for workbooks with few changes as it only provides a rudimentary glance at the changes.

Excel’s legacy Shared Workbook feature allows. While Excel eventually replaced it with its new co-authoring feature due to its many limitations, you can still use it to merge shared copies of the same Excel file.

First, you will need to enable highlighting changes:

1. 1. Go to Tools > Track Changes > Highlight changes.
2. 2. Check the «Track changes while editing» box to enable tracking.
3. 3. Select when you want to start highlighting changes, for whom, and for which cell range, if necessary. By leaving the boxes unchecked, you will be tracking all the changes in your Workbook for all collaborators.
4. 4. Select whether you want to enable onscreen highlighting, which outlines affected cells in different colors for different users. This is only useful for workbooks with few changes as it only provides a rudimentary glance at the changes.

To merge two different versions or copies of the same Excel workbook:

1. 1. Go to Tools > Merge Workbooks.
2. 2. Select the Excel file you want to merge with your current one. The Workbook selected must be a copy made from the same shared Workbook and must maintain change history for a sufficient amount of time to be able to merge them.
3. 3. Press «Ok».

The data from the selected version of the spreadsheet will be applied to your current one. If the «Track Changes» feature is turned on, the changes will be highlighted for you to review and choose whether to accept or reject them.

Unfortunately, the Shared Workbook feature has many limitations, which is why it was discontinued by Excel and replaced by their co-authoring feature. The feature lacks support for many of Excel’s items and actions like creating or inserting tables, inserting or deleting blocks of cells, deleting worksheets, inserting or changing hyperlinks, and much more.

That’s why it’s recommended that you use a spreadsheet management platform like Layer.

Want to Boost Your Team’s Productivity and Efficiency?

Transform the way your team collaborates with Confluence, a remote-friendly workspace designed to bring knowledge and collaboration together. Say goodbye to scattered information and disjointed communication, and embrace a platform that empowers your team to accomplish more, together.

Key Features and Benefits:

• Centralized Knowledge: Access your team’s collective wisdom with ease.
• Collaborative Workspace: Foster engagement with flexible project tools.
• Seamless Communication: Connect your entire organization effortlessly.
• Preserve Ideas: Capture insights without losing them in chats or notifications.
• Comprehensive Platform: Manage all content in one organized location.
• Open Teamwork: Empower employees to contribute, share, and grow.
• Superior Integrations: Sync with tools like Slack, Jira, Trello, and more.

Limited-Time Offer: Sign up for Confluence today and claim your forever-free plan, revolutionizing your team’s collaboration experience.

• 
  — By
  Sumit Bansal

I got a call from a friend who wanted to combine multiple Excel files into one Excel workbook. He had a lot of files in a folder and he wanted to get all the worksheets from all the workbooks into one single workbook.

While this can be done manually, it would be time-consuming and error-prone.

However, a simple VBA code can do this in a few seconds.

Combine Multiple Excel Files into One File

Here is the code that can combine multiple Excel workbooks in a specified folder into a single Excel workbook:

Sub ConslidateWorkbooks()
'Created by Sumit Bansal from https://trumpexcel.com
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Application.ScreenUpdating = False
FolderPath = Environ("userprofile") & "DesktopTest"
Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
 Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
 For Each Sheet In ActiveWorkbook.Sheets
 Sheet.Copy After:=ThisWorkbook.Sheets(1)
 Next Sheet
 Workbooks(Filename).Close
 Filename = Dir()
Loop
Application.ScreenUpdating = True
End Sub

How to Use this Code?

Here are the steps to use this code:

This will run the code and all the worksheets from all the Excel files in the folder would get consolidated into a single workbook.

How this Code Works?

• The code uses the DIR function to get the file names from the specified folder.
• The following line assigns the first excel file name to the variable ‘Filename’.
  Filename = Dir(FolderPath & “*.xls*”)
• Then the Do While loop is used to check whether all the files have been covered.
• Within the ‘Do While’ loop, ‘For Each’ loop is used to copy all the worksheets to the workbook in which we are running the code.
• At the end of the Do Loop, following line of code is used: Filename = Dir(). It assigns the next Excel file name to the Filename variable and the loop starts again.
• When all the files are covered, DIR function returns an empty string, which is when the loop ends.

Here is an explanation of the DIR function in the MSDN library:

Dir returns the first file name that matches pathname. To get any additional file names that match pathname, call Dir again with no arguments. When no more file names match, Dir returns a zero-length string (“”).

Have you ever tried something of this sort using VBA? Do share what you did and we all can learn from it.

Save Crazy Amount of Time Using VBA. Check out the Excel VBA COURSE.

You May Also Like the Following Excel Tutorials:

• How to Combine Data from Multiple Workbooks into One Excel Table (using Power Query).
• Quickly Create Summary Worksheet with Hyperlinks in Excel.
• How to Create and Use an Excel Add-in.
• How to Run a Macro.
• 20 Useful Excel Macro Examples.

98 thoughts on “How to Combine Multiple Excel Files into One Excel Workbook”

1. Brilliant thanks!

2. Highly frustrating – simply can’t get the damn thing to work….

   • I had this problem as well but fixed it as follows,

     1. Save the document as .xlxm
     2. Make sure you have a “/” at the end of your directory path

     • sorry .xlsm

3. The code works but the filepath string requires all of the “” in the complete file path. For example: C:UsersUser1DesktopExcelfiles*.xls*. This best way to solve this is:

   When you modify the FolderPath = Environ(“userprofile”) & “DesktopTest” make sure you include the pre and post forward slashes “” to the folder path containing the excel sheets to be imported.

   When you are debugging right click on the Folderpath and Filename variable and set them to the Watchlist with the Break when value changes box checked. When you run the program you can verify those two variables are updating correctly.

4. Thanks so much, worked perfectly.

5. Not working,It is showing debugg at Filename = Dir(FolderPath & “*.xlsx*”).
   Can you please provide a fix

6. For this code to work some of you will likely need more than the suggested file path of:

   FolderPath = Environ(“userprofile”) & “DesktopTest”

   Environ(“userprofile”) will only provide the first part of a filepath. In my case it was: C:UsersWF. There were several subfolders “along the path” before getting to the folder I used for the files to be combined. Use this example as the path to the correct folder:

   folderpath = “C:UsersWFDocumentsFolder1Folder2Folder3FolderWithFiles

   For a convenient way to get the correct path use this code to place the path on a worksheet. Then copy/paste into the sub procedure.

   Sub Path_FileName()
   Dim strPath As String
   strPath = ActiveWorkbook.FullName
   ActiveCell.Value = strPath
   End Sub

   Make this adjustment if you need to. This is some very useful code.

7. I was getting error 52 as well.

   “DESKTOP TEST” = LOCATION OF FILE

   I changed this string of code (moved the parenthesis) from the below and it worked:

   CHANGED FROM
   FolderPath = Environ(“userprofile”) & “DesktopTest”

   CHANGED TO
   FolderPath = Environ(“userprofile” & “DesktopTest”)

8. Big thank you!! I had found various other versions of this code but this is the first one that worked for my version of Excel. Needed to combine over 30 spreadsheets and it saved me lots of time!

9. I am getting error 52 when I run the code.

10. Thanks alot. It was very helpful. I am a options trader needed it to backtest the things. So thanks again. Let me know how can I give it back to you.

11. Many thanks for this! Forty spreadsheets … into one without copy/pasting each sheet. Phew.

12. how can i add in the header in the active worksheet before I run this code? or i can do it at the same time?

13. I have followed the instructions carefully but i get an error of Bad filename 52

14. Great code and works! One thing though that may be tripping people up. The string Filename also is part of the Workbooks.Open Filename:= command. Anyone having issues with the Filename variable should try attempting to rename the string to something else to avoid issues. Least what I had to do for this to properly work for me.

    • I am having filename issues

15. fabulous!!! works amazing

16. Filename = Dir(FolderPath & “*.xls*”)

17. Sorry not working for me, gives me error on file dir.

18. Cant combine multiple files…no error shown,can we send you the sample files-please share your email id

19. Worked for me. Thank you so Much! saved me much time for a work project. Thank you so much for uploading

20. Like so many in this thread, this did not work for me – suggest it is taken down as a waste of valuable time!

21. That worked amazing! Thank you, thank you, thank you!

22. Heaps thanks worked just perfect.. you saved my time.

23. Hi , how can I combine the first worksheet of multiple Excel workbooks in a specified folder into a single Excel workbook ?

24. I have used this code but its is creating multiple tabs for the sheet with same name like Name (1); Name(2); Name(3)

    Any solution

25. I am getting Run-time error Bad file name or number
    I have used the path “H:Sheets”
    Please advise

    • Delete the :

26. it didnt work, this came back as an error
    Filename = Dir(FolderPath & “*.xls*”)

    • have you solve this case ? I have same error …

    • try putting “” at the end of folder path (note that in dos, between file name and the directory there has to be “” sign

27. I want to combine individual timesheets into one master file, but the t/s are protected. Will I still be able to enter data and save it?

28. I am getting debug in filename. Please help me

    • Remove the Environ(“userprofile”) & from your code. This just tells VBA to go to folders under your user. But if you already have something like “C:UsersVarunDocuments” in the folder path, this will throw the error you get.

29. Excellent !!!

    Is it possible to name the sheets accordingly to their filenames?

    • Hi, i am getting debug in Filename.
      Can you help me ?

30. Hie I have many workbook and i want to combine every second sheet from workbook together

31. Thanks for this tip Sumit………….

    But it create multiple sub sheets of multiple files…what should to do if we need all multiple files into only one single sub sheet and i also want that the data copy should be in sequence

32. Not working for me. I followed all the steps mentioned above.

    • juse WPS office

    • sorry i just want to say. Use WPS Office

33. error 1004:
    method ‘copy’ of object ‘ _worksheet’ failed

    Debug =

    Sheet.Copy After:=ThisWorkbook.Sheets(1)

    • Same issue with me.

34. not working this coding,
    error on
    Filename = Dir(FolderPath & “*.xls*”)
    kindly slove this problem

    • I am getting the same error

    • I used ” ” and entered folder path where the file is located inside the quotation and it worked for me.

35. Hi I need some help in developing an extinction tool. Where 80 Percent can be done through formulas. Bit I need some help on remaining things. Will appreciate your help.

36. not working 🙂
    need smart support

    • I am making an estimation tool. The first method worked, but that’s not dynamic.
      I want the list to refresh if a new file is added to the folder.

37. Thanx a lot !!!!! Saved lot of time

38. Super!!!
    Saved lot of time

39. hi can i update daily log sheets / material use sheet, warehouse sheet and combining into 1 for KPI ? daily folks save in same folder with different date and shift

40. Hi Sumit
    It does’nt work for me after peressing the F5 I got ERE “BAD FILE NAME”
    As I see numer of people here have had the same ERE plz explain the reason for it

41. What about copying different sheets from different excel files to one sheet by adding the new data to the old one ?

42. Thank you so much for this VBA code! Excellent time-saver!

43. Hi, I have to copy 4 sheets from different excel files in one excel.
    Excel name in which i have to copy my data= Summary

    Data copy from below listed excels
    Excel 1= Los Angeles CCAP ASE Job Log Backup 15-11-18
    Excel 2= Anaheim CCAP ASE Job Log Backup 15-11-18
    Excel 3= BAY-North CCAP ASE Job Log Backup 15-11-18
    Excel 4= San Diego CCAP ASE Job Log Backup 15-11-18

    Now from every file, I have to copy only 1 sheet. names of sheets are mentioned below.
    Excel 1 sheet name= LA
    Excel 2 sheet name= Anaheim
    Excel 1 sheet name= SD
    Excel 1 sheet name= BayNorth

    Please help I have to submit a report to my manager.

44. I have over 2000 files to combine. I did a test run of 100 and the result was garbage.

    • Did you ever find a solution? I am in a similar boat.

45. how to combine three workbook in one workbook easy and quick

46. I am getting error mentioning Run time error 52. Bad file name or number. For your information I have saved the files on my Desktop with a folder name as Test. Please suggest

47. I am getting an error as bad file name,can someone help me with this error,would be really thankful!

48. It doesn’t work for me, I have “bad file name or number”. do you know how to fix it?

49. helpful

50. very useful ,I like it very much !

51. When i press f5, nothing happens -! can anyone pls help ?

52. Attempting with CSV files. =) will let you know.

53. I have a query . Suppose I have to merge 652 workbooks into one. The filenames are 1.xlsx to 652.xlsx and i want to merge them in ascending order of their filenames only . Will this code merge it according to their sorted name in the folder or not ??

54. Hi Sumit, need your assistance with the above macro.

    This works good if you want to combine multiple sheets in 1 workbook.

    I need a solution where the following steps need to be done :

    1. There are around 4000 employees and the workbook will be each employee code wise
    2. There are 18 folders with workbooks with 1 worksheet for each employee.. there is a possibility that for an employee one of the workbooks will not be there
    3. The macro should create a workbook with the emp code then across the 18 folders should check whether workbook is available for the employee ID and if yes
    4. Copy and paste it in the created workbook and save.
    5. Additionally there are 3 workbooks by default which need to be added for all employees

    What i do not know to edit the above macro is:

    1. How do i build a For loop for an employee list
    2. If there is no specific excel workbook in one of the folder then it should not throw an error

    Please help. I can communicate on your official email id too and will be happy if you can provide a solution at the earliest even if it is chargeable.

    Regards

55. That’s great thanks. It would be even better if it named the sheets after the original file names.

    • yes

56. Still usable. You need to place a “/” after your path if you copy it in.

    • Thank you, this worked along with removing the Environ(“userprofile”) & code segment for FolderPath where I was able to combine 13 single sheet Excel files that I placed in a test folder on a mapped network drive (example: FolderPath = “Z:20198 – AUGMeeting AttendeesTest/”

57. The code is really work for me using in Excel 2016 after few experiments.
    Some tips for those who are struggling about getting error message:
    1) The code is worked for both xls and xlsx, don’t need to modify it.
    2) The code ONLY works for worksheet, do try to move chart, you will get error. (anyone know how to move all together?)
    3) Try 1 or 2 workbooks first to see whether it is work for you or not.

    Hope these help you all 🙂

58. Wow first one actually worked:)

59. This did not work. Yes it combines 2 workbooks, but it destroys the functionality of the formulas in the process. Now, this could be me making some bad choices when it prompts me while the macro is running. Idk. Example: while macro was running I got several “name ‘use lists’ already exists. Yes to keep no to rename it something else” messages (sub ‘use lists’ with various other names). And regarding other formulas being destroyed, example: a simple =’TAB’!A1&” “&’TAB’!A2 type of formula is now bloated with file directory info. So it reads like:
    =’C:UserEtcpathTAB’!A1&” “&’C:UserEtcpathTAB’!A2
    That last one I can fix by deleting the stupid file directory info, formula by formula. As for the whole yes or no to renaming stuff that already exists… I’m at a loss.

    TL;DR I don’t know VBA & this formula didn’t work in my scenario.

60. Sumit Bansal you Rock <3

61. Thanks for posting this! I’m getting “Run-time error ’52’: Bad file name or number” – anyone know how I can overcome this?

    • change .xls to .xl
      I removed the “environment” as well

62. Need multiple files into one single sheet.

63. Hi, I was able to get the script above to work.

    How can I modify this script to combined Sheets with the name “Sheet1” from multiple file into one file.

    • so how did you ended up making it work???

64. What am I missing? I keep getting a run time error 52 (bad file name or number) on this line: Filename = Dir(FolderPath & “*.xlsm*”). I changed it to .xlsm for Excel 2013 for macro.

    • Ugh…me too!!!

65. also, can I only combine page 1 of the workbooks to be combined into a single workbook?

66. If my files are on a network drive, do I remove the “Environ” part of the FolderPath?

67. It’s not working for me..!! When i am pressing F5…no combination of sheets..>!!

68. Thank you for the tip.
    I have a question related to the handling the files with macros (*.xlsm) since the code will pick these files as well during the run. It seems that the macros will not be copied along with the worksheets and therefore some of the formulas may not work in the new workbook.

    • Thanks for commenting Lazarus.. You’re right! This wouldn’t pick up the macros while copying the sheets

      • is there any way if the multiple files can be consolidated into one single tab instead of multiple tabs?

      • Hi Sumit,
        Also it is not working for me for “xlsx” file. It is showing debugg at Filename = Dir(FolderPath & “*.xlsx*”). Please get a solution. Thanks

        • I am getting the same error…..

          • Here When the Path In the Folder Is Copied It Must Start Form The “Desktop” & Not As “C:”

            If Rectify This Then It Automatically Works When pressing “F5”

        • Here When the Path In the Folder Is Copied It Must Start Form The “Desktop” & Not As “C:”
          If Rectify This Then It Automatically Works When pressing F5

69. Thanks for this tip Sumit………….

    But it create multiple sub sheets of multiple files…what should to do if we need all multiple files into only one single sub sheet…………

    Pls. help.

    • Hello Anand, By what I understand, You want to combine all the sheets from all the workbooks into a single sheet. This may be limited by the number of rows in a worksheet. It would be helpful if you could share a sample file

      • Hi Sumit,

        Firstly Thanks for concern.

        I have send an email to you for further clarification on it. Pls. have a look.

        • Hi Sumit………..

          Pls. help on this…………

Comments are closed.