Scribd
Upload
85 views

Merger Multiple Excel Files

This VBA macro opens and merges multiple Excel files from a source folder into a single target file by copying and pasting data ranges. It gets a list of files from a specified folder, opens each file, copies a range of cells (default is columns A through IV), pastes the data into the target file starting from the next empty row, closes the source file, and repeats for each file.

Uploaded by

bfsdee10b
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
85 views

Merger Multiple Excel Files

This VBA macro opens and merges multiple Excel files from a source folder into a single target file by copying and pasting data ranges. It gets a list of files from a specified folder, opens each file, copies a range of cells (default is columns A through IV), pastes the data into the target file starting from the next empty row, closes the source file, and repeats for each file.

Uploaded by

bfsdee10b
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

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:\change\to\excel\files\path\here")
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

You might also like