ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

複数のテキストファイルを複数のシートに読み込む方法

コンピュータのフォルダに複数のテキストファイルがある場合、これらのテキストファイルをExcelブックにインポートし、各テキストファイルを別々のワークシートに配置するとします。 各テキストファイルをコピーしてワークシートに1つずつ貼り付けることは、時間を浪費します。ここでは、この問題を解決するためのいくつかのトリックについて説明します。

複数のテキストファイルをインポートしてVBAコードでワークシートを分離する

Excel用Kutoolsで複数のテキスト/ pdf / csv / xlsxファイルにワークブックを分割する


1つのワークシートまたはワークブックに複数のワークシートを結合/インポートする:
あなたの毎日の作業では、複数のワークシートまたはワークブックを1つのワークシートまたはワークブックにまとめることは、巨大で頭がおかしい作業です。 しかし、もしあなたが Kutools for Excel、その強力なユーティリティ - 組み合わせる複数のワークシート、ワークブックを1つのワークシートまたはワークブックにすばやく結合することができます。
doc複数のワークシートを結合する

矢印青い右の泡 複数のテキストファイルをインポートしてVBAコードでワークシートを分離する


次のVBAコードは、各テキストファイルを新しいブックの中の別のシートに一度にインポートするのに役立ちます。次のようにしてください。

1。 押さえつける Alt + F11 Excelでキーを開いて アプリケーション用Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードを モジュール 窓。

VBAコード:ワークシートを分離するために複数のテキストファイルをインポートする:

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3。 上記のコードを貼り付けた後、 F5 キーを押してこのコードを実行し、ポップアウトされたウィンドウで、テキストファイルを含むフォルダを指定し、ワークシートにインポートするテキストファイルを選択するフォルダに移動します。スクリーンショットを参照してください:

doc複数のテキストファイルをインポートする1

4。 次に、をクリックします 開いた ボタンをクリックすると、選択したすべてのテキストファイルが新しいワークブックにインポートされ、各ファイルは1つのワークシートに個別にインポートされます。

5。 最後に、必要に応じて新しいワークブックを保存することができます。


矢印青い右の泡 Excel用Kutoolsで複数のテキスト/ pdf / csv / xlsxファイルにワークブックを分割する

場合によっては、上記のタスクの逆の操作をいくつか行う必要があるかもしれません。つまり、テキストファイルを分割するためにブックを分割する必要があります。 Kutools for Excelさん スプリットワークブック ユーティリティは、この仕事を迅速かつ簡単に解決するのに役立ちます。

Kutools for Excel : 300便利なExcelアドイン以上で、60日以内に自由に試してみてください.

インストールした後 Kutools for Excel、次のようにしてください:( Excel用のKutoolsを今すぐダウンロードしてください! )

1。 複数のテキストファイルに分割するブックを有効にします。

2に設定します。 OK をクリックします。 大口プラン > ワークブック > スプリットワークブック、スクリーンショットを見る:

アドインを分割したワークブックの機能を秀でる

3。 の中に スプリットワークブック ダイアログボックス:

(1。)分割したいワークシートを確認します。

(2。)チェック 保存形式を指定する、保存するファイル形式を選択します。たとえば、次のいずれかを選択できます。 TXT, csvファイル, PDFファイル, XLSX or XLS 必要に応じてファイル形式に変換します。

(3。)をクリックします。 スプリット ボタンを押すと、次のプロンプトボックスに、別々のファイルを出力するフォルダを指定します。

アドインの分割ブックブックの表示を有効にする  2 アドインの選択場所を秀でる

4。 次に、をクリックします OK ボタンをクリックすると、選択したワークシートが分割され、必要な形式で目的のフォルダに保存されます。

アドイン別のファイルをExcel

Excel用のKutoolsを今すぐダウンロードしてください!


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?