Vba का उपयोग करके टेक्स्ट फ़ाइल कैसे खोलें (उदाहरण के साथ)

आप किसी विशिष्ट फ़ाइल पथ से टेक्स्ट फ़ाइल खोलने के लिए VBA में OpenTextFile विधि का उपयोग कर सकते हैं।

व्यवहार में इस पद्धति का उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

यह विशेष मैक्रो मेरे कंप्यूटर के डेस्कटॉप पर स्थित MyTextFile.txt नामक टेक्स्ट फ़ाइल को पढ़ता है और फ़ाइल की सामग्री को सेल A1 में प्रदर्शित करता है।

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

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

मान लीजिए कि हमारे पास MyTextFile.txt नामक एक टेक्स्ट फ़ाइल डेस्कटॉप पर स्थित है जिसे हम VBA का उपयोग करके Excel में पढ़ना चाहते हैं।

यहाँ फ़ाइल की सामग्री है:

इस फ़ाइल को पढ़ने के लिए VBA का उपयोग करने से पहले, हमें पहले VB संपादक में Microsoft स्क्रिप्टिंग रनटाइम को सक्षम करना होगा।

ऐसा करने के लिए, वीबी संपादक खोलें, फिर टूल्स पर क्लिक करें, फिर संदर्भ पर क्लिक करें:

दिखाई देने वाली नई विंडो में, तब तक नीचे स्क्रॉल करें जब तक आपको Microsoft स्क्रिप्टिंग रनटाइम दिखाई न दे और उसके बगल में स्थित बॉक्स को चेक करें। फिर ओके पर क्लिक करें.

फिर हम टेक्स्ट फ़ाइल को पढ़ने के लिए निम्नलिखित मैक्रो बना सकते हैं:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

एक बार जब यह मैक्रो निष्पादित हो जाता है, तो MyTextFile.txt नामक टेक्स्ट फ़ाइल की सामग्री सेल A1 में प्रदर्शित होगी:

ध्यान दें कि सेल A1 की सामग्री टेक्स्ट फ़ाइल की सामग्री से मेल खाती है।

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

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

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

VBA का उपयोग करके फ़ोल्डर्स कैसे बनाएं
VBA का उपयोग करके फ़ोल्डर्स को कैसे हटाएं
VBA का उपयोग करके फ़ाइलें कैसे हटाएं