Πώς να εισαγάγετε αρχεία κειμένου στο 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 ως ενιαίο φύλλο με τα δικά τους ονόματα.