एक्सेल में एकाधिक सीएसवी/टेक्स्ट/एक्सएमएल फ़ाइलों को जल्दी से बैच आयात कैसे करें?
एक्सेल में, आपने किसी कार्यपुस्तिका को सीएसवी फ़ाइल, टेक्स्ट फ़ाइल या एक्सएमएल फ़ाइल के रूप में सहेजने के लिए बाध्य किया होगा, लेकिन क्या आपने कभी किसी फ़ोल्डर से एकाधिक सीएसवी/टेक्स्ट/एक्सएमएल फ़ाइलों को कार्यपुस्तिका या वर्कशीट में आयात करने का प्रयास किया है? इस आलेख में, मैं उन्हें त्वरित रूप से बैच आयात करने के लिए कुछ तरीकों का परिचय देता हूं।
VBA के साथ एक फ़ोल्डर से एकाधिक सीएसवी फ़ाइलों को एक ही शीट में आयात करें
VBA के साथ एक फ़ोल्डर से एकाधिक xml फ़ाइलों को एक ही शीट में आयात करें
Excel के लिए Kutools के साथ एक शीट या कार्यपुस्तिका में एकाधिक xml/csv फ़ाइलों को आयात या संयोजित करें
एक्सेल के लिए कुटूल वाले फ़ोल्डर में प्रत्येक शीट को सीएसवी/टेक्स्ट/पीडीएफ के रूप में निर्यात करें
VBA के साथ किसी कार्यपुस्तिका के प्रत्येक कार्यपत्रक में एक फ़ोल्डर से एकाधिक टेक्स्ट फ़ाइलें आयात करें
किसी फ़ोल्डर से टेक्स्ट फ़ाइलों को कार्यपुस्तिका में आयात करने के लिए, आप इसे तुरंत संभालने के लिए नीचे दिए गए VBA का उपयोग कर सकते हैं।
1. एक रिक्त कार्यपुस्तिका सक्षम करें, और दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और VBA को पेस्ट करें मॉड्यूल खिड़की.
वीबीए: किसी फ़ोल्डर से सभी टेक्स्ट फ़ाइलों को कार्यपुस्तिका में आयात करें
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub
3। दबाएँ F5 कुंजी या रन वीबीए चलाने के लिए बटन, और पॉपिंग डायलॉग में उस फ़ोल्डर का चयन करें जिससे आप टेक्स्ट फ़ाइलों को आयात करना चाहते हैं। स्क्रीनशॉट देखें:
4. और क्लिक करें OK, और चयनित फ़ोल्डर में प्रत्येक टेक्स्ट फ़ाइल को सक्रिय कार्यपुस्तिका की एक वर्कशीट में आयात किया गया है। स्क्रीनशॉट देखें:
आसानी से एकाधिक शीट/वर्कबुक को एक सिंगल शीट या वर्कबुक में संयोजित करें
|
एकाधिक शीटों या कार्यपुस्तिकाओं को एक शीट या कार्यपुस्तिका में संयोजित करना एक्सेल में कठिन हो सकता है, लेकिन इसके साथ मिलाना एक्सेल के लिए कुटूल्स में फ़ंक्शन, आप दर्जनों शीट/वर्कबुक को एक शीट या वर्कबुक में मर्ज कर सकते हैं, साथ ही, आप केवल कई क्लिक से शीट को एक में समेकित कर सकते हैं। पूर्ण-विशेषताओं वाले 30 दिनों के निःशुल्क परीक्षण के लिए क्लिक करें! |
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। |
VBA के साथ एक फ़ोल्डर से एकाधिक सीएसवी फ़ाइलों को एक ही शीट में आयात करें
सभी सीएसवी फ़ाइलों को एक फ़ोल्डर में एक शीट में आयात करने के लिए, आप नीचे दिए गए वीबीए कोड का उपयोग कर सकते हैं।
1. एक रिक्त वर्कशीट सक्षम करें, और दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और VBA के नीचे नए में पेस्ट करें मॉड्यूल खिड़की.
वीबीए: एक फ़ोल्डर से सीएसवी फ़ाइलों को एक वर्कशीट में आयात करें
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub
3। दबाएँ F5 कुंजी या क्लिक रन वीबीए निष्पादित करने के लिए बटन, और एक संवाद उस फ़ोल्डर का चयन करने के लिए पॉप आउट होता है जिससे आप सभी सीएसवी फ़ाइलें आयात करना चाहते हैं। स्क्रीनशॉट देखें:
4। क्लिक करें OK, और एक संवाद आपको याद दिलाने के लिए पॉप आउट होता है कि आयात करने से पहले सक्रिय वर्कशीट की सामग्री को साफ़ करें, यहां मैं क्लिक करता हूं हाँ. स्क्रीनशॉट देखें:
क्लिक करने के बाद हाँ, चयनित फ़ोल्डर में सभी सीएसवी फ़ाइलें वर्तमान शीट में आयात की जाती हैं, और डेटा को कॉलम ए से दाईं ओर रखें। स्क्रीनशॉट देखें:
सुझाव: यदि आप सीएसवी फ़ाइलों को वर्कशीट में क्षैतिज रूप से रखना चाहते हैं, तो आप नीचे दिए गए वीबीए का उपयोग कर सकते हैं।
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub
VBA के साथ एक फ़ोल्डर से एकाधिक xml फ़ाइलों को एक ही शीट में आयात करें
यदि आप किसी फ़ोल्डर से सभी XML फ़ाइलों को एक शीट में आयात करना चाहते हैं, तो आप नीचे दिए गए VBA कोड का उपयोग कर सकते हैं।
1. उस रिक्त शीट का चयन करें जिसमें आप आयातित डेटा रखना चाहते हैं, और दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, इसमें VBA कोड पेस्ट करें मॉड्यूल खिड़की.
VBA: किसी फ़ोल्डर से XML फ़ाइलों को वर्कशीट में आयात करें।
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
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
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub
3। क्लिक करें रन बटन या F5 वीबीए चलाने के लिए कुंजी, और पॉपिंग डायलॉग में एक फ़ोल्डर का चयन करें, स्क्रीनशॉट देखें:
4। क्लिक करें OK, और चयनित फ़ोल्डर की सभी XML फ़ाइलें सक्रिय शीट में आयात की जाती हैं।
Excel के लिए Kutools के साथ एक शीट या कार्यपुस्तिका में एकाधिक xml/csv फ़ाइलों को आयात या संयोजित करें
यदि आप वीबीए से परिचित नहीं हैं, तो चिंता करें, यहां मैं एक उपयोगी टूल पेश कर रहा हूं - एक्सेल के लिए कुटूल आपके लिए। अपने शक्तिशाली के साथ मिलाना उपयोगिता, आप अनेक xml फ़ाइलों या csv फ़ाइलों को शीघ्रता से एक कार्यपुस्तिका या एक Excel शीट में संयोजित कर सकते हैं।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। | ||
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:(अब एक्सेल के लिए नि:शुल्क कुटूल डाउनलोड करें!)
1. सक्रिय एक्सेल, और क्लिक करें कुटूल्स प्लस > मिलाना. स्क्रीनशॉट देखें:
2. और में संयोजन का चरण 1 संवाद, अपनी आवश्यकतानुसार एक पृथक्करण विकल्प चुनें। स्क्रीनशॉट देखें:
3। क्लिक करें अगला करने के लिए जाना संयोजन का चरण 2क्लिक करें, विभिन्न फ़ोल्डरों से फ़ाइलें या एक फ़ोल्डर से फ़ाइलें जोड़ने के लिए कार्यपुस्तिका सूची, और आप उन शीटों को भी निर्दिष्ट कर सकते हैं जिनसे आप संयोजन करना चाहते हैं वर्कशीट सही अनुभाग की सूची. स्क्रीनशॉट देखें:
4। क्लिक करें अगला के अंतिम एक चरण तक मिलाना, और आप संयोजन विकल्प निर्दिष्ट कर सकते हैं।
5। क्लिक करें अंत, नए संयुक्त परिणाम को सहेजने के लिए आपको एक स्थान का चयन करने की याद दिलाने के लिए एक संवाद पॉप आउट होता है। स्क्रीनशॉट देखें:
6। क्लिक करें सहेजें. सभी जोड़ने वाली शीटों को एक नई सिंगल शीट में संयोजित कर दिया गया है।
सुझाव: - मिलाना, आप एकाधिक को भी जोड़ सकते हैं सीएसवी फाइलें एकाधिक फ़ोल्डरों या एक फ़ोल्डर को एक शीट या कार्यपुस्तिका में बनाएँ।
एकाधिक XML/CVS फ़ाइलों को एक शीट/वर्कबुक में संयोजित करें
एक्सेल के लिए कुटूल वाले फ़ोल्डर में प्रत्येक शीट को सीएसवी/टेक्स्ट/पीडीएफ के रूप में निर्यात करें
यदि आप प्रत्येक शीट को सीएसवी/टेक्स्ट/पीडीएफ फ़ाइल के रूप में एक फ़ोल्डर में निर्यात करना चाहते हैं, एक्सेल के लिए कुटूलहै विभाजित कार्यपुस्तिका उपयोगिता आपके लिए एक उपकार कर सकती है।
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1. जिस कार्यपुस्तिका को आप निर्यात करना चाहते हैं उसकी कार्यपत्रक को सक्षम करें और क्लिक करें कुटूल्स प्लस > कार्यपुस्तिका > विभाजित कार्यपुस्तिका. स्क्रीनशॉट देखें:
2। में विभाजित कार्यपुस्तिका संवाद, आप उन शीट नामों की जांच कर सकते हैं जिन्हें आपको निर्यात करने की आवश्यकता है, डिफ़ॉल्ट रूप से सभी शीट चेक की जाती हैं, और जांचें सहेजें प्रारूप निर्दिष्ट करें और नीचे दी गई ड्रॉप डाउन सूची से वह फ़ाइल स्वरूप चुनें जिसे आप सहेजना चाहते हैं। स्क्रीनशॉट देखें:
3। क्लिक करें विभाजित करें और एक फ़ोल्डर का चयन करें जिसमें विभाजित फ़ाइलों को सहेजना है फ़ोल्डर के लिए ब्राउज़ संवाद, स्क्रीनशॉट देखें:
4। क्लिक करें OK, अब सभी चेक की गई शीट चयनित फ़ोल्डर में नए फ़ाइल स्वरूप के रूप में निर्यात की जाती हैं।
प्रत्येक शीट को एकल XML/CSV/TXT/PDF फ़ाइल के रूप में निर्यात करें
संबंधित लेख:
- एक्सेल में हाइपरलिंक को सादे टेक्स्ट में कैसे बदलें?
- एक्सेल में दशमलव संख्या को बाइनरी/ऑक्टल/हेक्स संख्या या इसके विपरीत में कैसे बदलें?
- एक्सेल में लाइव एक्सचेंज रेट कैसे डालें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!