複数のテキストファイルをそれぞれ別のシートにインポートするにはどうすればよいですか？

著者Xiaoyang変更日2024-10-31

たとえば、コンピューターのフォルダー内に複数のテキストファイルがあるとします。これらをExcel ワークブックにインポートし、各テキストファイルを個別のワークシートとして配置したい場合、1 つずつコピー＆ペーストするのは非常に手間がかかります。ここでは、この課題を効率よく解決するための実用的なテクニックをいくつかご紹介します。

VBA コードで複数のテキストファイルを個別のワークシートにインポートする

Kutools for Excel でブックを複数の個別のテキスト／PDF／CSV／XLSX ファイルに分割する

VBA コードで複数のテキストファイルを個別のワークシートにインポートする

次の VBA コードを使えば、各テキストファイルを新しいワークブック内の個別のシートに一括でインポートできます。以下の手順に従ってください。

1．Excel でAlt + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．挿入 > モジュールをクリックし、表示されたモジュールウィンドウに次のコードを貼り付けてください。

VBA コード：複数のテキストファイルを個別のワークシートにインポートする：

Sub CombineTextFiles()
'updateby Extendoffice
    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キーを押してコードを実行してください。表示されるウィンドウで、テキストファイルが含まれるフォルダーを指定し、ワークシートにインポートしたいテキストファイルを選択します（下図参照）。

Excelワークシートにインポートする複数のテキストファイルを選択しているスクリーンショット

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

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

Kutools for Excel でブックを複数の個別のテキスト／PDF／CSV／XLSX ファイルに分割する

場合によっては、上記の操作とは逆に、1 つのブックを個別のテキストファイルに分割する必要が生じることもあるでしょう。Kutools for Excelのブックの分割機能を使えば、この作業を素早く・簡単に実行できます。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。 無料トライアル。。。

Kutools for Excel をインストール後、以下の手順に従ってください。Kutools for Excel

1．複数のテキストファイルに分割したいブックをアクティブにしてください。

2．エンタープライズ>ブック>ブックの分割をクリックします（下図参照）。

ExcelのKutoolsメニュー内の「ワークブックを分割」オプションのスクリーンショット

3．ブックの分割ダイアログボックスで：

(1．) 分割したいワークシートにチェックを入れます。

(2．)保存形式を指定するにチェックを入れて、必要なファイル形式を選択してください。たとえば、txt、csv、pdf、xlsx、またはxls 形式から選べます。

(3．) 次に、分割ボタンをクリックし、表示されるプロンプトボックスで個別ファイルの保存先フォルダーを指定します。

形式オプション付きの「ワークブックを分割」ダイアログボックスを表示しているスクリーンショット

個別のファイルを出力するフォルダーを指定するプロンプトボックスを表示しているスクリーンショット

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

Kutoolsを使用してExcelワークブックから保存された個別のファイルのスクリーンショット

Kutools for Excel－Excel 向けの必須ツールを300 種類以上搭載！作業がより迅速に、簡単に、効率的になります。今すぐダウンロード！

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。