Wednesday, 18 November 2020

Import Multiple Excel Files From Folder Into One Excel Sheet

यदि आपके पास कई एक्सेल शीट हैं जिनके है जो एक समान है मतलब की कॉलम के टाइटल एक समान हैं और आप उन सारी सीट को एक साथ एक सीट में लाना चाहते हैं तो नीचे दिए हुए कोड को कॉपी कर ले और आपके एक्सेल में विजुअल बेसिक एडिटर ओपन करके इसे पेस्ट करें और पाथ को एडिट करके नया पाथ बनाएं बस 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


----------------------------------किसी भी प्रकार की समस्या होने पर कमेंट करें-------------------------------------------

लोकप्रिय पोस्ट