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

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

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

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

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ファイルが含まれるフォルダを選択します。

5. OKをクリックすると、次のダイアログでCSVファイルを保存するフォルダを選択します。

6. OKをクリックすると、選択したフォルダ内のExcelファイルがCSVファイルに変換され、別のフォルダに保存されます。

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

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

1. 変換したいワークブックを開き、 Kutools Plus > Workbook > Split Workbook.

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

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

4. OKをクリックすると、ワークブックが個別のCSVファイルに分割されます。

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