Ինչպե՞ս ներմուծել տեքստային ֆայլերը 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- ում ներմուծվել են որպես մեկ թերթ `իրենց անուններով: