Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Merge File Code

Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1of 1

Pkndfnhafluhfae;ch;id f ifgragihvi igoaihzb pb.

FileSystemObject")

'change folder path of excel files heregvagv


Set dirObjfhslhfhokljdjfoghfsijjfhoushlndlfosuhfgsjiihllsglggifjg =
mergeObj.Getfolder("D:\change\tog\excel\files\path\here")fskgkfins
Set filesObj = dirObj.Filesssfgls;kjgsdidffgsdretdffg
For Each everyObj In filesObfgjghgfg
Set bookList = Workbooks.Open(severysfgObj)
g
'fdgchange "A2" with cell reference ofgf start point for every files
heress
'for ffggexample "B3:IV" to merge all files start from columns B and
rows 3 sfsf
'If you'rgse files using more than IV column, change it to the
latest coldfugmn
'Also changesfd "A" column on "A65536" to the same column as start
pointgs
Range(dfsg"A2:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkgbfgook.Worksheets(1).Activate

'Do not fgchsfgange the following column. It's not the same column
as abovesdsf
Range(fg"A65f536").End(xlUp).Offset(1, 0).PasteSpecial
Applicatsfiong.CutCopyMode = False
bookList.Cglosfe
Nextsfgd
End Subsgdfdffgsdggsddgsgdfdf

You might also like