एक फ़ोल्डर से एकाधिक टेक्स्ट फ़ाइलों को एक वर्कशीट में कैसे आयात करें?
उदाहरण के लिए, यहां आपके पास कई टेक्स्ट फ़ाइलों वाला एक फ़ोल्डर है, आप जो करना चाहते हैं वह इन टेक्स्ट फ़ाइलों को एक ही वर्कशीट में आयात करना है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। टेक्स्ट फ़ाइलों को एक-एक करके कॉपी करने के बजाय, क्या टेक्स्ट फ़ाइलों को एक फ़ोल्डर से एक शीट में तुरंत आयात करने की कोई तरकीब है?
VBA के साथ एक फ़ोल्डर से एकाधिक टेक्स्ट फ़ाइलों को एक ही शीट में आयात करें
एक्सेल के लिए कुटूल के साथ सक्रिय सेल में टेक्स्ट फ़ाइल आयात करें
VBA के साथ एक फ़ोल्डर से एकाधिक टेक्स्ट फ़ाइलों को एक ही शीट में आयात करें
यहां एक VBA कोड है जो आपको एक विशिष्ट फ़ोल्डर से सभी टेक्स्ट फ़ाइलों को एक नई शीट में आयात करने में मदद कर सकता है।
1. जिस कार्यपुस्तिका को आप टेक्स्ट फ़ाइलें आयात करना चाहते हैं उसे सक्षम करें और दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, नीचे वीबीए कोड को कॉपी और पेस्ट करें मॉड्यूल खिड़की.
वीबीए: एक फ़ोल्डर से एक शीट में एकाधिक टेक्स्ट फ़ाइलें आयात करें
Sub Test()
'UpdatebyExtendoffice6/7/2016
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub
3। दबाएँ F5 एक संवाद प्रदर्शित करने के लिए, और एक फ़ोल्डर का चयन करें जिसमें वह टेक्स्ट फ़ाइलें हैं जिन्हें आप आयात करना चाहते हैं। स्क्रीनशॉट देखें:
4। क्लिक करें OK. फिर पाठ फ़ाइलों को सक्रिय कार्यपुस्तिका में नई शीट के रूप में अलग से आयात किया गया है।
एक्सेल के लिए कुटूल के साथ सक्रिय सेल में टेक्स्ट फ़ाइल आयात करें
यदि आप एक टेक्स्ट फ़ाइल को किसी विशिष्ट सेल या श्रेणी में आयात करना चाहते हैं, तो आप आवेदन कर सकते हैं एक्सेल के लिए कुटूलहै कर्सर पर फ़ाइल डालें उपयोगिता।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। | ||
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1. उस सेल का चयन करें जिसे आप टेक्स्ट फ़ाइल आयात करना चाहते हैं, और क्लिक करें कुटूल्स प्लस > आयात निर्यात > कर्सर पर फ़ाइल डालें. स्क्रीनशॉट देखें:
2. फिर एक डायलॉग सामने आता है, क्लिक करें ब्राउज प्रदर्शित करने के लिए किसी फाइल का चयन करें सेल कर्सर स्थिति संवाद में सम्मिलित करने के लिए, अगला चयन करें पाठ फ़ाइलें ड्रॉप डाउन सूची से, और फिर वह टेक्स्ट फ़ाइल चुनें जिसे आप आयात करना चाहते हैं। स्क्रीनशॉट देखें:
3। क्लिक करें प्रारंभिक > Ok, और निर्दिष्ट टेक्स्ट फ़ाइल को कर्सर स्थिति में डाला गया है, स्क्रीनशॉट देखें:
कर्सर पर टेक्स्ट फ़ाइल आयात/सम्मिलित करें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!