कार्यपुस्तिकाओं को मिलाएं

Excel में कार्यपुस्तिकाओं को संयोजित करने के लिए निम्न कोड का उपयोग करें। यह कोड निर्देशिका में मिली प्रत्येक कार्यपुस्तिका में सभी पहली शीट लेगा:

123456789101112131415161718192021222324252627282930313233343536

'मर्ज वर्कबुक'सब मर्जडब्ल्यूबी ()आवेदन। सक्षम करें = गलतएप्लिकेशन.स्क्रीनअपडेटिंग = गलतस्ट्रिंग के रूप में मंद पथ, स्ट्रिंग के रूप में ThisWB, लंबे समय तक lngFilecounterवर्कबुक के रूप में मंद wbDest, वर्कशीट के रूप में shtDest, वर्कशीट के रूप मेंस्ट्रिंग के रूप में मंद फ़ाइल नाम, कार्यपुस्तिका के रूप में Wkbरेंज के रूप में मंद कॉपीआरएनजी, रेंज के रूप में गंतव्यपूर्णांक के रूप में मंद RowofCopySheetRowofCopySheet = 2 ' जिस शीट से आप कॉपी कर रहे हैं उसमें से शुरू करने के लिए पंक्तिThisWB = ActiveWorkbook.Nameपथ = GetDirectory ("एक्सेल फ़ाइलों वाले फ़ोल्डर का चयन करें जिसे आप मर्ज करना चाहते हैं")सेट shtDest = ActiveWorkbook.Sheets(1)फ़ाइल नाम = डीआईआर (पथ और "\*.xlsm", vbNormal)यदि लेन (फ़ाइल नाम) = 0 तो उप से बाहर निकलेंफ़ाइल नाम तक करें = vbNullStringयदि फ़ाइल नाम नहीं है = यह डब्ल्यूबी तबWkb = कार्यपुस्तिकाएँ सेट करें। खोलें (फ़ाइल नाम: = पथ और "\" और फ़ाइल नाम)सेट CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))सेट डेस्ट = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)CopyRng.Copy DestWkb.गलत बंद करेंअगर अंतफ़ाइल नाम = डीआईआर ()कुंडलीआवेदन। सक्षम करें = सत्यएप्लिकेशन.स्क्रीनअपडेटिंग = सहीMsgBox "मैक्रो पूर्ण"अंत उप

मिस्टर एक्सेल