एक्सेल में टेक्स्ट फ़ाइलों को मूल नामों के साथ अलग शीट के रूप में एक्सेल में कैसे आयात करें?
क्या आपने कभी एक्सेल में टेक्स्ट फ़ाइलों को एक्सेल में फ़ाइलों के मूल नामों के साथ अलग शीट के रूप में आयात करने का प्रयास किया है? इस आलेख में, मैं नामों के साथ एक फ़ोल्डर से एक्सेल में टेक्स्ट फ़ाइलों को त्वरित रूप से आयात करने के लिए एक वीबीए कोड पेश करता हूं।
नामों के साथ टेक्स्ट फ़ाइलों को एक्सेल में आयात करें
नामों के साथ टेक्स्ट फ़ाइलों को एक्सेल में आयात करें
1. एक्सेल सक्षम करें, दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, फिर क्लिक करें सम्मिलित करें > मॉड्यूल.
2. नीचे दिए गए कोड को कॉपी करके पेस्ट करें मॉड्यूल लिपियों.
वीबीए: नामों के साथ टेक्स्ट फ़ाइलें आयात करें
Sub LoadPipeDelimitedFiles()
'UpdatebyExtendoffice20181010
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
Dim xWS As Worksheet
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
Set xWS = Sheets(xCount)
xWS.Select
xWS.Name = "TEXT " & Left(xFile, Len(xFile) - 4)
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, फ़ोल्डर में टेक्स्ट फ़ाइलें अपने नाम के साथ एकल शीट के रूप में एक्सेल में आयात की गई हैं।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!