텍스트 파일을 Excel에서 원래 이름으로 별도의 시트로 Excel로 가져 오는 방법은 무엇입니까?

Excel에서 파일의 원래 이름을 사용하여 텍스트 파일을 별도의 시트로 Excel로 가져 오려고 시도한 적이 있습니까? 이 기사에서는 한 폴더의 텍스트 파일을 이름이있는 Excel로 빠르게 가져 오는 VBA 코드를 소개합니다.

이름이있는 텍스트 파일을 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에서 고유 한 이름을 가진 단일 시트로 가져 왔습니다.