テキストファイルをExcelで元の名前の個別のシートとしてExcelにインポートするにはどうすればよいですか？

テキストファイルをExcelでファイルの元の名前とは別のシートとしてExcelにインポートしようとしたことがありますか？ この記事では、テキストファイルをXNUMXつのフォルダから名前付きの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にインポートされています。