Excel: すべてのシートを個別のCSVまたはテキストファイルに保存またはエクスポートする（2つの簡単な方法）

複数のワークシートを含むExcelブックを扱うことは、データ分析やビジネスレポート作成において一般的です。多くの場合、データ共有、他のシステムとの統合、またはアーカイブのために、各シートを個別のCSV（カンマ区切り値）またはテキストファイルとしてエクスポートする必要があります。Excelには「すべてのシートをエクスポートする」機能が標準では搭載されていませんが、このタスクを効率的に実行するためのいくつかの方法があります。

VBAコードを使用してすべてのシートをCSVまたはテキストファイルに保存またはエクスポートする
Kutools for Excelを使用してすべてまたは特定のシートをCSVまたはテキストファイルに保存またはエクスポートする

VBAコードを使用してすべてのシートをCSVまたはテキストファイルに保存またはエクスポートする

以下のVBAコードを使用すると、ブック内のすべてのワークシートを個別のCSVまたはテキストファイルに保存できます。次の手順に従ってください。

すべてのシートを個別のCSVファイルにエクスポートまたは変換する

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

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。その後、次のコードをモジュールウィンドウにコピーして貼り付けます。

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. F5キーを押してコードを実行します。エクスポートされたすべてのCSVファイルはドキュメントフォルダにあります。各ワークシートは同じ名前の.csvファイルとして個別に保存されます。スクリーンショットをご覧ください：

すべてのシートを個別のテキストファイルにエクスポートまたは変換する

次のコードは、ブック内のすべてのシートを個別のテキストファイルにエクスポートまたは変換するのに役立ちます。

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

エクスポートされたテキストファイルもドキュメントフォルダにあります。スクリーンショットをご覧ください：

Kutools for Excelを使用してすべてまたは特定のシートをCSVまたはテキストファイルに保存またはエクスポートする

Kutools for Excelは、すべてまたは選択したワークシートを個別のCSVまたはテキストファイルに迅速にエクスポートできる強力で使いやすい機能を提供します。わずか数回のクリックで完了します。

1. Kutools Plus > ワークブック > ブックの分割をクリックします。スクリーンショットをご覧ください：

2. ブックの分割ダイアログボックスで：

• 1). すべてのシートをCSVまたはテキストファイルに変換したい場合は、ワークシート名ボックス内のすべてのシート名をチェックしたままにしておきます。複数のシートだけを変換したい場合は、必要なシートのみをチェックし、不要なシートのチェックを外します。
• 2). オプションセクションで、保存形式を指定ボックスをチェックし、ドロップダウンリストからUnicodeテキスト(*.txt)または CSV (Macintosh)(*.csv)を選択します。
• 3). 分割ボタンをクリックします。

3. フォルダ参照ダイアログボックスで、エクスポートされたファイルを保存するフォルダを指定し、OKボタンをクリックします。

これで、すべてのシートまたは指定したシートが個別のCSVまたはテキストファイルに変換され、上記で指定したフォルダに保存されます。

デモ：Kutools for Excelを使用して複数またはすべてのシートをCSVまたはテキストファイルに保存、エクスポート、または変換する