Πώς να εισαγάγετε αρχεία κειμένου στο Excel ως ξεχωριστά φύλλα με πρωτότυπα ονόματα στο Excel;
Έχετε προσπαθήσει ποτέ να εισαγάγετε αρχεία κειμένου στο Excel ως ξεχωριστά φύλλα με τα αρχικά ονόματα των αρχείων στο Excel; Σε αυτό το άρθρο, εισάγω έναν κωδικό VBA για γρήγορη εισαγωγή αρχείων κειμένου από έναν φάκελο στο Excel με τα ονόματα.
Εισαγάγετε αρχεία κειμένου στο Excel με ονόματα
Εισαγάγετε αρχεία κειμένου στο Excel με ονόματα
1. Ενεργοποιήστε το Excel, πατήστε Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης.
2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης γραφή.
VBA: Εισαγωγή αρχείων κειμένου με ονόματα
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 για να εκτελέσετε τον κώδικα και, στη συνέχεια, επιλέξτε έναν φάκελο που περιέχει αρχεία κειμένου που θέλετε να εισαγάγετε στο Excel στο Επιλέξτε ένα φάκελο διαλόγου.
4. κλικ OK, τα αρχεία κειμένου στο φάκελο έχουν εισαχθεί στο Excel ως ενιαίο φύλλο με τα δικά τους ονόματα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με Kutools for Excel, και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Kutools for Excel Προσφέρει πάνω από 300 προηγμένες λειτουργίες για ενίσχυση της παραγωγικότητας και εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Office Tab Φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
