Cum se importă fișiere text în Excel ca foi separate cu nume originale în Excel?

Ați încercat vreodată să importați fișiere text în Excel ca foi separate cu numele originale ale fișierelor în Excel? În acest articol, introduc un cod VBA pentru a importa rapid fișiere text dintr-un folder în Excel cu numele.

Importați fișiere text în Excel cu nume

---

Importați fișiere text în Excel cu nume

1. Activați Excel, apăsați Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră, apoi faceți clic pe Insera > Module.

2. Copiați și lipiți codul de mai jos în Module script-ul.

VBA: Importați fișiere text cu nume

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. presa F5 pentru a rula codul, apoi selectați un folder care conține fișiere text pe care doriți să le importați în Excel în Selectați un folder dialog.

4. clic OK, fișierele text din folder au fost importate în Excel ca o singură foaie cu propriile nume.