एकाधिक टेक्स्ट फ़ाइलों को एकाधिक शीट में कैसे आयात करें?
मान लीजिए, आपके कंप्यूटर के एक फ़ोल्डर में कई टेक्स्ट फ़ाइलें हैं, अब, आप इन टेक्स्ट फ़ाइलों को एक्सेल वर्कबुक में आयात करना चाहते हैं, और प्रत्येक टेक्स्ट फ़ाइल को अलग वर्कशीट में रखना चाहते हैं। प्रत्येक टेक्स्ट फ़ाइल को एक-एक करके वर्कशीट में कॉपी और पेस्ट करने से बहुत समय बर्बाद होगा, यहाँ, मैं इस समस्या को हल करने के लिए आपके लिए कुछ ट्रिक्स के बारे में बात कर सकता हूँ।
VBA कोड के साथ वर्कशीट को अलग करने के लिए एकाधिक टेक्स्ट फ़ाइलें आयात करें
VBA कोड के साथ वर्कशीट को अलग करने के लिए एकाधिक टेक्स्ट फ़ाइलें आयात करें
निम्नलिखित वीबीए कोड आपको प्रत्येक टेक्स्ट फ़ाइल को एक नई कार्यपुस्तिका में एक ही बार में अलग-अलग शीट में आयात करने में मदद कर सकता है, कृपया निम्नानुसार कार्य करें:
1. दबाए रखें ALT + F11 खोलने के लिए Excel में कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: कार्यपत्रकों को अलग करने के लिए एकाधिक टेक्स्ट फ़ाइलें आयात करें:
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. उपरोक्त कोड को पेस्ट करने के बाद दबाएँ F5 इस कोड को चलाने के लिए कुंजी, और पॉप आउट विंडो में, कृपया उस फ़ोल्डर को निर्दिष्ट करें जिसमें टेक्स्ट फ़ाइलें हैं, उन टेक्स्ट फ़ाइलों को चुनने के लिए फ़ोल्डर पर जाएं जिन्हें आप वर्कशीट में आयात करना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें प्रारंभिक बटन, सभी चयनित पाठ फ़ाइलों को एक नई कार्यपुस्तिका में आयात किया गया है और प्रत्येक फ़ाइल व्यक्तिगत रूप से एक कार्यपत्रक में स्थित है।
5. अंत में, आप आवश्यकतानुसार नई कार्यपुस्तिका सहेज सकते हैं।
एक्सेल के लिए कुटूल के साथ एक कार्यपुस्तिका को कई अलग-अलग टेक्स्ट / पीडीएफ / सीएसवी / एक्सएलएसएक्स फाइलों में विभाजित करें
कभी-कभी, आपको उपरोक्त कार्य के कुछ विपरीत संचालन करने की आवश्यकता हो सकती है, यानी, आपको टेक्स्ट फ़ाइलों को अलग करने के लिए किसी कार्यपुस्तिका को विभाजित करने की आवश्यकता हो सकती है। एक्सेल के लिए कुटूलहै विभाजित कार्यपुस्तिका यूटिलिटी इस काम को जल्दी और आसानी से हल करने में आपकी मदद कर सकती है।
एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें :( एक्सेल के लिए अभी नि:शुल्क कुटूल डाउनलोड करें! )
1. उस कार्यपुस्तिका को सक्रिय करें जिसे आप एकाधिक टेक्स्ट फ़ाइलों में विभाजित करना चाहते हैं।
2। क्लिक करें उद्यम > कार्यपुस्तिका > विभाजित कार्यपुस्तिका, स्क्रीनशॉट देखें:
3. में विभाजित कार्यपुस्तिका संवाद बकस:
(1.) उन कार्यपत्रकों की जाँच करें जिन्हें आप विभाजित करना चाहते हैं।
(2.)चेक करें सहेजें प्रारूप निर्दिष्ट करें, फिर वह फ़ाइल स्वरूप चुनें जिसे आप सहेजना चाहते हैं, उदाहरण के लिए, आप चुन सकते हैं TXT, csv, पीडीएफ, XLSX or XLS फ़ाइल स्वरूप जैसा आपको चाहिए।
(3.) फिर क्लिक करें विभाजित करें बटन, निम्नलिखित प्रॉम्प्ट बॉक्स में अलग-अलग फ़ाइलों को आउटपुट करने के लिए एक फ़ोल्डर निर्दिष्ट करें।
4। तब दबायें OK बटन, और आपकी चयनित वर्कशीट विभाजित हो जाएगी और आपकी आवश्यकता के अनुसार प्रारूप के साथ आपके इच्छित फ़ोल्डर में सहेजी जाएगी।
एक्सेल के लिए अभी नि:शुल्क कुटूल डाउनलोड करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!