वीबीए: किसी अन्य कार्यपुस्तिका से डेटा कैसे निकालें

आप किसी अन्य कार्यपुस्तिका से डेटा निकालने के लिए VBA में निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubExtractData ()
    
    'turn off screen updates to make this run faster
    Application.ScreenUpdating = False
    
    'specify workbook we want to extract data from
    Set wb = Workbooks.Open(" C:\Users\bobbi\OneDrive\Desktop\my_data.xlsx ")
    
    'extract all data from Sheet1 and paste as new sheet in current workbook
    wb.Sheets(" Sheet1 ").Copy After:=ThisWorkbook.Sheets(1)
    
    'do not save any changes to workbook we extract data from
    wb.Close SaveChanges:=False
    
    'turn screen updating back on
    Application.ScreenUpdating = True
    
End Sub

यह विशेष मैक्रो निम्नलिखित स्थान पर स्थित my_data.xlsx नामक कार्यपुस्तिका को खोलता है:

C:\Users\Bob\Desktop\my_data.xlsx

इसके बाद यह शीट 1 नामक शीट से सभी डेटा को इस कार्यपुस्तिका में कॉपी करता है और इसे हमारी वर्तमान सक्रिय कार्यपुस्तिका में पहली शीट के बाद सीधे शीट में कॉपी करता है।

ध्यान दें : एप्लिकेशन.स्क्रीनअपडेटिंग = गलत लाइन वीबीए को इस प्रक्रिया को पृष्ठभूमि में चलाने के लिए कहती है ताकि यह तेजी से चले।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: VBA का उपयोग करके किसी अन्य कार्यपुस्तिका से डेटा निकालें

मान लीजिए कि हमारे पास निम्नलिखित एक्सेल वर्कबुक खुली है और हम इसे देख रहे हैं:

अब मान लीजिए कि हमारे पास एक और कार्यपुस्तिका बंद है लेकिन उसमें निम्नलिखित डेटा है:

हम इस बंद कार्यपुस्तिका की शीट 1 से डेटा निकालने के लिए निम्नलिखित मैक्रो का उपयोग कर सकते हैं और इसे हमारी वर्तमान खुली कार्यपुस्तिका की पहली शीट के बाद सीधे एक नई शीट में पेस्ट कर सकते हैं:

 SubExtractData ()
    
    'turn off screen updates to make this run faster
    Application.ScreenUpdating = False
    
    'specify workbook we want to extract data from
    Set wb = Workbooks.Open(" C:\Users\bobbi\OneDrive\Desktop\my_data.xlsx ")
    
    'extract all data from Sheet1 and paste as new sheet in current workbook
    wb.Sheets(" Sheet1 ").Copy After:=ThisWorkbook.Sheets(1)
    
    'do not save any changes to workbook we extract data from
    wb.Close SaveChanges:=False
    
    'turn screen updating back on
    Application.ScreenUpdating = True
    
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि बंद कार्यपुस्तिका से डेटा निकाला गया है और हमारी वर्तमान सक्रिय कार्यपुस्तिका में एक नई शीट के रूप में चिपकाया गया है।

बेझिझक नई शीट का नाम बदलें क्योंकि यह वर्तमान शीट के समान है।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: एकाधिक कॉलम कैसे सम्मिलित करें
वीबीए: एकाधिक पंक्तियाँ कैसे सम्मिलित करें