複数のcsvファイルを複数のワークシートに結合/インポートする方法は？

フォルダーから複数のcsvファイルをブック内の個別のワークシートとしてインポートする場合、Excelでこのジョブをどのように処理できますか？

複数のcsvファイルをVBAコードを使用して別々のワークシートにインポートします

Kutools for Excelを使用して、複数のcsvファイルを個別のワークシートにインポートします

ブックを複数の個別のcsv / pdf / txt / Excelファイルに分割します

複数のcsvファイルをVBAコードを使用して別々のワークシートにインポートします

複数のcsvファイルをブックにすばやくインポートするには、次のVBAコードを使用するとよい場合があります。次のようにしてください。

1。 を押し続けます Alt + F11 Excelでキーを開いて アプリケーション向け Microsoft Visual Basic 窓。

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

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

Sub CombineCsvFiles()
'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 (*.csv), *.csv", , "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
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    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にインポートするcsvファイルを選択します。スクリーンショットを参照してください。

4。 そして、 Open ボタンをクリックすると、選択したcsvファイルが新しいワークブック内の個別のワークシートとしてインポートされます。

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

Kutools for Excelを使用して、複数のcsvファイルを個別のワークシートにインポートします

あなたが持っている場合 Kutools for Excel、その強力なツールで-組み合わせる、必要に応じて、複数のcsvファイルをXNUMXつのワークシートまたは複数の個別のワークシートにすばやく結合またはインポートできます。

インストールした後 Kutools for Excel、次のようにしてください。

1。 クリックしてください クツールズプラス > 組み合わせる、スクリーンショットを参照してください：

2. ワークシートを組み合わせる ダイアログボックスで、を選択してください ワークブックの複数のワークシートをXNUMXつのワークブックに結合します、スクリーンショットを参照してください：

3。 の中に ステップ 2 ウィザードのをクリックします Add > File 結合するcsvファイルを選択するには、スクリーンショットを参照してください。

4。 飛び出した Open ダイアログ、選択 （* .csv） ドロップダウンリストから、マージするcsvファイルを指定します。

5。 次に、をクリックします Open ボタンをクリックすると、選択したcsvファイルがダイアログボックスにインポートされます。スクリーンショットを参照してください。

6。 の中に ステップ 3、次の操作を行ってください。

（1.）チェック 各ワークシートの最初の行（コメント） ワークシート情報を挿入する セクションでは、すべてのcsvファイル情報がコメントとして結合されたシートに挿入されます。

（2.）必要に応じてcsvファイルの名前を変更できます。

（3.）空白のcsvファイルを検出する場合は、空白のcsvファイルをスキップできます。

7。 次に、をクリックします 終了 ボタンをクリックし、結合が完了したら、結合した新しいワークブックのファイル名と場所を指定できます。スクリーンショットを参照してください。

8。 次に、をクリックします Save ボタンをクリックすると、ポップアウトされたpromtボックスで、新しいファイルをクリックして開くことができます 可、をクリックして閉じます いいえ、スクリーンショットを参照してください：

9。 そして、このシナリオを好きなように保存することも、保存しないこともできます。 スクリーンショットを参照してください：

10。 最後に、選択したcsvファイルがワークシートが分離された新しいワークブックにインポートされました。スクリーンショットを参照してください。

今すぐExcel用のKutoolsをダウンロードして無料トライアル！

ブックを複数の個別のcsv / pdf / txt / Excelファイルに分割します

場合によっては、ワークブックを個別のcsvファイルに分割したい場合があります。KutoolsforExcelのSplit Workbookユーティリティを使用すると、このジョブをすばやく簡単に完了できます。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツールズプラス > ワークブック > 分割ワークブック、スクリーンショットを参照してください：

2. 分割ワークブック ダイアログボックス：

（1.）分割するワークシートを確認します。

（2.）そしてチェック 保存を指定します形式でアーカイブしたプロジェクトを保存します．、次に保存するファイル形式を選択します。

（3.）次にクリックします スプリット ボタンをクリックし、分離されたファイルを配置するフォルダを指定します。

3。 そして、 OK 分割を開始するには、ワークブックを必要な個別のcsvファイルに分割します。

今すぐExcel用のKutoolsをダウンロードして無料トライアル！