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

CSVファイルをXlSまたはXLSXファイルに変換するには、[名前を付けて保存]機能を適用すると非常に簡単です。 ただし、フォルダから複数のCSVファイルをXLSまたはXLSXファイルに変換するには、XNUMXつずつ手動で保存するので時間がかかります。 ここでは、すべてのCSVファイルをフォルダーからXLS（x）ファイルにすばやくバッチ変換するマクロコードを紹介します。

CSVファイルをマクロコードを使用してXlS（X）ファイルにバッチ変換します

CSVファイルをマクロコードを使用してXlS（X）ファイルにバッチ変換します

複数のCSVファイルをXNUMXつのフォルダーからXLS（X）ファイルに変換するには、次の手順を実行します。

1.新しいワークブックを有効にして、を押します Altキー+ F11 開くキー Microsoft Visual Basic for Applications ウィンドウをクリックして インセット > モジュール。 スクリーンショットを参照してください：

ノート：変換するCSVファイルがすべて閉じていることを確認してください。

2.次に、以下のマクロコードを モジュール スクリプトを押して、 F5 コードを実行するためのキー。

VBA：CSVをXLSに変換

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3.ポップアウトダイアログで、変換するCSVファイルを含む指定されたフォルダーを選択します。 スクリーンショットを参照してください：

4。 クリック OK、選択したフォルダ内のすべてのCSVファイルがXLSファイルに変換されています。

先端：CSVファイルをXLSXファイルに変換する場合は、以下のVBAコードを使用します。

VBA：CSVファイルをXLSXに変換します

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

シートの範囲をすばやく変換またはエクスポートして、XLS / Word / PDFまたはその他の形式のファイルを一度に分離します

通常、Excelは、範囲をCSVまたはExcelファイルとしてすばやくエクスポートまたは保存するオプションをサポートしていません。 ある範囲のデータをCSVまたはワークブックとしてExcelに保存する場合は、VBAマクロを使用してこれを行うか、範囲をクリップボードにコピーして新しいワークブックに貼り付けてから、ワークブックをCSVまたはワークブック。 Kutools for Excel Excelを拡張します 範囲をファイルにエクスポート 次の操作をすばやく処理したいExcelユーザー向けのユーティリティ：  30日間のフル機能の無料トライアルをクリックしてください！

Kutools for Excel：300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。

関連記事：

• csvファイルをxlsファイルに変換する方法、またはExcelでcsvをインポート/開く方法は？
• Word文書をExcelワークシートに変換する方法は？

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

• 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
• スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
• セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
• [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
• 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
• テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
• スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
• ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
• 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。

続きを読みます... 無料ダウンロード... 購入... 

---

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性が50％向上し、毎日何百ものマウスクリックが減ります。

続きを読みます... 無料ダウンロード... 購入...