Consolidate Mutiple FIles in Multiple Directories into 1 File

[tstagliano]

WE have a directory with various subfolders that houses source files where data is being captured. WE then would like to merge all that data into 1 workbook that can be updated to capture any changes. Ill explain in more detail.

Our directory is U:\L&S. Subfolders are Set1, Set2, Set3, and Set4. Each of these subfolders has its own file where people will be entering data. So Set 1 folder has a file named 2_Set1.xlsx. Set 2 folder has a file named 2_Set2.xlsx, etc. The columns in each file are exactly the same.

We want to create a master file that will merge all 4 of these files into 1 and we want the master file to be able to be updated at any time to capture any changes in any of the Set files.

Any thoughts? I am a beginner in VB.

Thanks

[Kaper]

As for thoughts:
I'd store in master file not only information captured from source files, but also from each file it was captured. It could be either by storing each source file data in a separate worksheet in master workbook, or, if data is to be stored in a common worksheet - then in cell next to data its source. otherwise it will be tough task to screen for changes (even impossible if you move some data from one source to another - so there is a change, but a master file would look the same if no informaton about source file is stored).

[xladept]

Running from the Master, you may be able to use the FileSystemObject feature periodically to look for the DateLastModified of the Set files to isolate which sections require updating - it may be best, however, to put them on their own tabs in the master. Another thought

[stormtrooper23]

try using this one

Sub CombineSubfolderFiles()

'copies rows from first worksheet of all Excel files in first subfolders
'level of a given folder.

Dim Fs As Object 'FileSystem
Dim D As Object 'Folder
Dim Fx As Object 'Subfolder
Dim File As Object 'File
Dim PathName As String
Dim iRow As Long 'next available row index of destination worksheet
Dim LRow As Long 'last row of source worksheet

With Worksheets(1) 'data destination worksheet

Set Fs = CreateObject("Scripting.FileSystemObject")
Set D = Fs.GetFolder("C:\Users\badronanl\Desktop\latest proj")
iRow = 1

For Each Fx In D.subfolders 'loop through subfolders

For Each File In Fx.Files 'loop through files
If File.Name Like "*.xls" Then
PathName = Fx.Name & "\" & File.Name
Workbooks.Open D.Path & "\" & PathName
Application.StatusBar = "Processing " & PathName
'copy rows to last row having data in column A
LRow = Worksheets(1).Range("A65536").End(xlUp).Row
Range(Rows(20), Rows(LRow)).Copy Destination:=.Rows(iRow)
ActiveWorkbook.Close
End If
iRow = iRow + LRow
Next File

Next Fx

End With 'Worksheets(1) of this workbook

End Sub

[xladept]

Hi Stormtrooper,

You need to put your code in code tags - it looks like pretty good code - here are the directions:

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. here


And - welcome to the Forum!

[stormtrooper23]

Hello xladept,

Thanks for the advice! I was actually thinking of doing it but i don't know how.

Please Login or Register  to view this content.

just wanna try it! )

thanks!

[xladept]

Hi Stormtrooper,

Thanks for the rep!

You can put code tags on your first post - by editing it

And the OP's path is actually:

Please Login or Register  to view this content.

[xladept]

@ tstagliano- What do you mean by merge? Do you mean an actual ordered list? And, if so, how are they ordered. Or, if not, is it a stacked list that you want?