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

Excelでは、[名前を付けて保存]機能を使用してブックをCSVファイルに変換できますが、複数のExcelファイルを個別のCSVファイルにバッチ変換する方法を知っていますか？ この記事では、フォルダー内のすべてのExcelファイルをExcelのCSVファイルにバッチ変換するVBAコードを紹介します。

フォルダのExcelファイルをVBAでCSVファイルにバッチ変換する

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

フォルダのExcelファイルをVBAでCSVファイルにバッチ変換する

Excelには、VBAを除いて、このジョブをすばやく解決できる組み込み関数はありません。

1. Excelを有効にして、を押します Altキー+ F11 キーが開く アプリケーション向け Microsoft Visual Basic 窓。

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次に、XNUMX番目のポップダイアログで、CSVファイルを配置するフォルダーを選択します。

6。 クリック OK、これで、フォルダ内のExcelファイルがCSVファイルに変換され、別のフォルダに保存されました。

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

ご存知のとおり、Excelでは[名前を付けて保存]機能を使用して、ブック全体をXNUMXつのCSVファイルに変換することしかできません。 ただし、XNUMX枚のシートをCSVファイルに変換したい場合があります。この場合は、 分割ワークブック の有用性 Kutools for Excel あなたを助けることができます。

インストールした後 Kutools for Excel、以下のようにしてください：（今すぐExcel用のKutoolsを無料でダウンロードしてください！）

1.シートを個別のCSVファイルとして変換するブックを有効にし、をクリックします クツールズプラス > ワークブック > 分割ワークブック.

2。 の中に 分割ワークブック ダイアログで、分割するシート名を確認し（デフォルトですべてのシートがチェックされます）、チェックします 名前を付けて保存 タイプ、選択 CSV（Macintosh）（* .CSV） ドロップダウンリストから選択します。

3。 クリック スプリット 飛び出すには フォルダを参照 ダイアログで、CSVファイルを配置するフォルダーを選択または作成します。

4。 クリック OK、これでワークブックは個別のCSVファイルとして分割されました。

  分割ワークブック