เคฏเคฆि เคเคชเคे เคชाเคธ เคเค เคเค्เคธेเคฒ เคถीเค เคนैं เคिเคจเคे เคนै เคो เคเค เคธเคฎाเคจ เคนै เคฎเคคเคฒเคฌ เคी เคॉเคฒเคฎ เคे เคाเคเคเคฒ เคเค เคธเคฎाเคจ เคนैं เคเคฐ เคเคช เคเคจ เคธाเคฐी เคธीเค เคो เคเค เคธाเคฅ เคเค เคธीเค เคฎें เคฒाเคจा เคाเคนเคคे เคนैं เคคो เคจीเคे เคฆिเค เคนुเค เคोเคก เคो เคॉเคชी เคเคฐ เคฒे เคเคฐ เคเคชเคे เคเค्เคธेเคฒ เคฎें เคตिเคुเค เคฒ เคฌेเคธिเค เคเคกिเคเคฐ เคเคชเคจ เคเคฐเคे เคเคธे เคชेเคธ्เค เคเคฐें เคเคฐ เคชाเคฅ เคो เคเคกिเค เคเคฐเคे เคจเคฏा เคชाเคฅ เคฌเคจाเคं เคฌเคธ 2 เคฎिเคจเค เคฎें เคเคชเคी เคธाเคฐी เคเค्เคธेเคฒ เคซाเคเคฒ เคเค เคซाเคเคฒ เคฎें เคंเคฌाเคเคจ เคฏा เคฎเคฐ्เค เคฏा เคंเคชाเคเคฒ เคนो เคाเคंเคे
๐ เคोเคก เคฏเคนां เคธे เคถुเคฐू เคนोเคคा เคนै
--------------------------------------------------
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("C:\Users\waleed.butt\Desktop\Compile")
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 "A2:IV" to merge all files start from columns A and rows 2
'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:AZ" & Range("A1000000").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
'Do not change the following column. It's not the same column as above
Range("A1000000").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub
----------------------------------เคिเคธी เคญी เคช्เคฐเคाเคฐ เคी เคธเคฎเคธ्เคฏा เคนोเคจे เคชเคฐ เคเคฎेंเค เคเคฐें-------------------------------------------
