メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

複数のExcelファイルを一括でCSVファイルに変換するにはどうすればよいですか？

Author Sun Last modified

ExcelファイルをCSV形式に変換するには「名前を付けて保存」機能を使用できますが、複数のファイルを手動で1つずつ処理するのは時間がかかります。複数のExcelファイルを個別のCSVファイルに一括変換する必要がある場合、このガイドでは2つの効率的な方法を紹介します。

VBAを使用してフォルダ内のExcelファイルを一括でCSVファイルに変換する

Kutools for Excelを使用してワークブックのシートを個別のCSVファイルに変換するgood idea3

VBAを使用してフォルダ内のExcelファイルを一括でCSVファイルに変換する

Excelには、このタスクを迅速に実行するための組み込み関数はなく、VBAを使用する場合を除いてはできません。

1. Excelを起動し、 Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」 > 「モジュール」をクリックして新しいモジュールを作成します。

3. 以下のコードをコピーして新しいモジュールウィンドウに貼り付けます。

VBA：Excelファイルを一括でCSVに変換

Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS  As String
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
    On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjFD.AllowMultiSelect = False
    xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
    If xObjFD.Show <> -1 Then Exit Sub
    xStrEFPath = xObjFD.SelectedItems(1) & "\"
    Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
    xObjSFD.AllowMultiSelect = False
    xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
    If xObjSFD.Show <> -1 Then Exit Sub
    xStrSPath = xObjSFD.SelectedItems(1) & "\"
    xStrEFFile = Dir(xStrEFPath & "*.xls*")
    Do While xStrEFFile <> ""
       xS = xStrEFPath & xStrEFFile
        Set xObjWB = Application.Workbooks.Open(xS)
        xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
        xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
        xObjWB.Close savechanges:=False
        xStrEFFile = Dir
  Loop
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

4. F5 キーを押して、最初のダイアログでCSVファイルに変換したいExcelファイルが含まれるフォルダを選択します。
A screenshot of the first dialog box to select a folder containing Excel files to convert

5. OKをクリックすると、次のダイアログでCSVファイルを保存するフォルダを選択します。
A screenshot of the second dialog box to select a folder for saving the converted CSV files

6. OKをクリックすると、選択したフォルダ内のExcelファイルがCSVファイルに変換され、別のフォルダに保存されます。
A screenshot showing the conversion of Excel files to CSV files in a selected folder

Kutools for Excelを使用してワークブックのシートを個別のCSVファイルに変換する

ご存知の通り、Excelでは「名前を付けて保存」機能を使用して、ワークブック全体を1つのCSVファイルに変換することはできますが、個々のシートをCSVファイルに変換するには、Kutools for Excelの「ブックの分割」機能が役立ちます。

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

1. 変換したいワークブックを開き、 Kutools Plus > Workbook > Split Workbook.
A screenshot showing the Split Workbook utility in Kutools tab in Excel

2. Split Workbook ダイアログで、分割したいシート名にチェックを入れます（デフォルトですべてのシートがチェックされています）。次に、「名前を付けて保存」タイプとして Save as を選択し、ドロップダウンリストから CSV (Macintosh) (*.csv) を選択します。
A screenshot of the Split Workbook dialog box with CSV as the selected format

3. 「 分割 」をクリックすると、「フォルダの参照」ダイアログが表示されるので、CSVファイルを保存するフォルダを選択または作成します。 Browse For Folder ダイアログで、CSVファイルを配置するフォルダを選択または作成します。
A screenshot of the Browse for Folder dialog to select the destination for the CSV files

4. OKをクリックすると、ワークブックが個別のCSVファイルに分割されます。
A screenshot showing the successful split of workbook sheets into separate CSV files

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

Kutools for EXCELを使用したブックの分割 デモ

Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結！永久無料のAI機能をお楽しみください！今すぐダウンロード！

最高のオフィス業務効率化ツール

🤖 Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較……
注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数
Kutoolsはお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応！

Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...

Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に

  • Word、Excel、PowerPointでタブによる編集・閲覧を実現。
  • 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
  • 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！

全てのKutoolsアドインを一つのインストーラーで

Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。

Excel Word Outlook Tabs PowerPoint
  • オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
  • 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
  • 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
  • 30日間フル機能お試し —— 登録やクレジットカード不要
  • コストパフォーマンス最適 —— 個別購入よりお得