वीबीए: फ़ोल्डर में सभी फ़ाइलें कैसे खोलें

आप किसी विशेष फ़ोल्डर में सभी फ़ाइलों को खोलने के लिए VBA में Workbooks.Open विधि के साथ Do While लूप का उपयोग कर सकते हैं।

व्यवहार में ऐसा करने का एक सामान्य तरीका यहां दिया गया है:

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

यह विशेष मैक्रो निम्नलिखित फ़ोल्डर में .xlsx एक्सटेंशन वाली सभी फ़ाइलें खोलता है:

• C:\Users\bob\Documents\current_data

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

संबंधित: वीबीए का उपयोग करके सभी खुली कार्यपुस्तिकाओं की सूची कैसे प्राप्त करें

उदाहरण: वीबीए का उपयोग करके किसी फ़ोल्डर में सभी फ़ाइलें कैसे खोलें

मान लें कि हमारे पास current_data नामक निम्नलिखित फ़ोल्डर है जिसमें तीन .xlsx फ़ाइलें हैं:

मान लीजिए कि हम इस फ़ोल्डर में सभी .xlsx फ़ाइलें खोलने के लिए VBA का उपयोग करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

जब हम इस मैक्रो को चलाते हैं, तो फ़ोल्डर में .xlsx एक्सटेंशन वाली प्रत्येक फ़ाइल एक-एक करके खोली जाएगी।

ध्यान दें कि यदि फ़ोल्डर में कोई भी फ़ाइल पहले से खुली है, तो वे फ़ाइलें खुली ही रहेंगी।

नोट : आप यहां VBA में Workbooks.Open विधि के लिए संपूर्ण दस्तावेज़ पा सकते हैं।

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

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

VBA का उपयोग करके किसी फ़ाइल का नाम कैसे बदलें
VBA का उपयोग करके किसी फ़ोल्डर में फ़ाइलों को कैसे सूचीबद्ध करें
VBA का उपयोग करके कैसे जांचें कि फ़ाइल मौजूद है या नहीं