Excel में एकाधिक कॉलमों को अलग-अलग टेक्स्ट फ़ाइलों में कैसे निर्यात करें?
आम तौर पर, आप Save As फ़ंक्शन का उपयोग करके किसी वर्कशीट को Excel में txt फ़ाइल में जल्दी और आसानी से निर्यात कर सकते हैं। लेकिन, क्या आपने कभी एक्सेल वर्कशीट से प्रत्येक कॉलम डेटा को व्यक्तिगत रूप से टेक्स्ट फ़ाइल में सहेजने का प्रयास किया है? इस लेख में मैं इस बारे में बात करूंगा कि इस काम को जल्द से जल्द कैसे हल किया जाए।
VBA कोड के साथ एकाधिक कॉलमों को अलग-अलग टेक्स्ट फ़ाइलों में निर्यात करें
एक्सेल के लिए कुटूल के साथ एकाधिक वर्कशीट को अलग-अलग टेक्स्ट/पीडीएफ/सीएसवी फाइलों में निर्यात करें
VBA कोड के साथ एकाधिक कॉलमों को अलग-अलग टेक्स्ट फ़ाइलों में निर्यात करें
निम्नलिखित वीबीए कोड आपको एक्सेल में प्रत्येक कॉलम डेटा को व्यक्तिगत रूप से टेक्स्ट फ़ाइल में सहेजने में मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: एकाधिक कॉलमों को अलग-अलग टेक्स्ट फ़ाइलों में निर्यात करें:
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. कोड पेस्ट करने के बाद कृपया दबाएं F5 इस कोड को चलाने के लिए कुंजी, और a ब्राउज़र संवाद बॉक्स पॉप आउट हो जाता है, फिर अपनी निर्यात की गई टेक्स्ट फ़ाइलों को रखने के लिए एक फ़ोल्डर चुनें, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, और सक्रिय वर्कशीट में प्रत्येक कॉलम डेटा को व्यक्तिगत रूप से टेक्स्ट फ़ाइल में निर्यात किया गया है, स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ एकाधिक वर्कशीट को अलग-अलग टेक्स्ट/पीडीएफ/सीएसवी फाइलों में निर्यात करें
यदि आपको एकाधिक वर्कशीट को अलग-अलग टेक्स्ट, पीडीएफ या सीएसवी फाइलों में निर्यात करने की आवश्यकता है, तो एक्सेल के लिए कुटूलहै विभाजित कार्यपुस्तिका सुविधा आपका उपकार कर सकती है.
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नलिखित चरणों का पालन करें:
1। क्लिक करें कुटूल्स प्लस > कार्यपुस्तिका > विभाजित कार्यपुस्तिका, स्क्रीनशॉट देखें:
2. में विभाजित कार्यपुस्तिका संवाद बॉक्स, उन कार्यपत्रकों की जाँच करें जिन्हें आप txt, pdf, csv फ़ाइलों के रूप में सहेजना चाहते हैं, और फिर जाँचें प्रकार के रूप में सहेजें विकल्प, फिर उस फ़ाइल प्रकार का चयन करें जिसे आप सहेजना चाहते हैं, और फिर क्लिक करें विभाजित करें बटन, प्रदर्शित में फ़ोल्डर के लिए ब्राउज़ संवाद बॉक्स में, निर्यात की गई फ़ाइलों को रखने के लिए एक फ़ोल्डर चुनें, स्क्रीनशॉट देखें:
3। तब दबायें OK बटन, और आपकी चयनित वर्कशीट को आपकी आवश्यकता के अनुसार व्यक्तिगत विशिष्ट फ़ाइल प्रारूप में निर्यात किया गया है, स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल को अभी डाउनलोड करने और उसका निःशुल्क परीक्षण करने के लिए क्लिक करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!