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

複数/すべてのシートを保存して、Excelで個別のcsvファイルまたはテキストファイルにエクスポートするにはどうすればよいですか？

Excelを使用している場合は、[名前を付けて保存]機能を使用して、ワークシートをcsvまたはテキストファイルとして手動で保存できます。 ただし、ブック内の複数またはすべてのワークシートを個別のcsvファイルまたはテキストファイルに変換するには、どうすればよいでしょうか。 この記事では、複数またはすべてのシートを個別のcsvファイルまたはテキストファイルに保存または変換する方法を紹介します。

すべてのシートを保存、エクスポート、またはVBAコードを使用してcsvまたはテキストファイルに変換します
Kutools for Excelを使用して、複数/すべてのシートをcsvまたはテキストファイルに保存、エクスポート、または変換します

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

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

すべてのシートをcsvファイルにエクスポートまたは変換します

1。 押す 他の + F11 キーを同時に開いて Microsoft VisualBasicアプリケーション 窓。

2。 の中に Microsoft VisualBasicアプリケーション ウィンドウ、クリック インセット > モジュール。 次に、次のコードをコピーして、 モジュール 窓。

VBAコード：すべてのシートを個別のcsvファイルにエクスポートします

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ファイルがに配置されていることがわかります 資料 フォルダ。 スクリーンショットを参照してください：

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

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

VBAコード：すべてのシートを個別のテキストファイルにエクスポートします

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またはテキストファイルに保存、エクスポート、または変換します

Y複数またはすべてのシートをExcelで個別のcsvファイル、テキストファイル、またはxlsファイル形式にすばやくエクスポートまたは変換できます。 分割ワークブック の有用性 Kutools for Excel.

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1。 クリック クツールズプラス > ワークブック > 分割ワークブック。 スクリーンショットを参照してください：

2。 の中に 分割ワークブック ダイアログボックス：

  • 1）。 すべてのシートをcsvまたはテキストファイルに変換する場合は、すべてのシート名をチェックインしたままにします。 ワークシート名 ボックス; 複数のシートを変換したいだけの場合は、それらをチェックし続け、変換したくない他のシートのチェックを外します。
  • 2）。 の中に オプション セクションで、 タイプとして保存 ボックスをクリックし、 Unicodeテキスト（* .txt） or CSV（Macintosh）（*。csv） ドロップダウンリストから選択します。
  • 3）。 クリック スプリット

3。 の中に フォルダを参照 ダイアログボックスで、エクスポートされたファイルを保存するフォルダを指定し、[ OK

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

  このユーティリティの無料トライアル（30日）が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。

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

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

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット:  12 テキスト ツール (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット ツール (高度な結合行, 分割セル、...）   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (38)
No ratings yet. Be the first to rate!
Nicky
Nicky
This comment was minimized by the moderator on the site
Hi, thanks for the VBA, i have a problem with the VBA for export to text file, as the VBA run the txt file got generated, but the inside data is not exactly like the excel data, for example my data include character quotation mark, and the exported data became double quotation mark, plus the beginning and the ending of the text file there are quotation mark, here's the excel and the txt file that i meant :
excel : Start Chrome https://xxx/tap_inbox_sparepart_act.asp?proses_id=202300102027800&act=akseptoraksep"&"alasan=ok
text file : "Start Chrome https://xxx/tap_inbox_sparepart_act.asp?proses_id=202300102027800&act=akseptoraksep""&""alasan=ok"

Thanks in advanced :)
Reply
0
0
crystal
crystal     Nicky
This comment was minimized by the moderator on the site
Hi Nicky,

I tested this code, but could not reproduce the problem in my case. And the file you provided didn't open. Can you upload your file using the "upload attachment" link below?
Reply
Report
0
0
Calvin
Calvin
This comment was minimized by the moderator on the site
The VBA code works nicely. Equivalent C# code in a VSTO workbook project emits empty .csv files.


void SaveSomeWorksheetsAsCsvFiles() {
    string[] worksheetNames = new[] { "Sheet1", "Sheet2", "Sheet3" };
    foreach (var worksheet in worksheetNames.Select(_ => Globals.ThisWorkbook.Sheets[_] as Excel.Worksheet)) {
        worksheet.Copy();
        string fullName = @"C:\Users\....\Staging" + $".{worksheet.Name}.csv";
        this.SaveAs(fullName, XlFileFormat.xlCSV);
        Application.ActiveWorkbook.Saved = true;
        Application.ActiveWorkbook.Close();
    }
}
Reply
0
0
crystal
crystal     Calvin
This comment was minimized by the moderator on the site
Hi Calvin,
We do not support programming languages other than VBA. Sorry for the inconvenience.
Reply
Report
0
0
BI
BI
This comment was minimized by the moderator on the site
Hi, thanks for the great code (Export all sheets to separated Text files), using it a lot. Just ran into a workbook where it won't work, debugger says line xWs.Copy is problem, popup says method copy of a workbook failed. Is there any restrictions concerning a worksheet name or something similar, like no merged cells etc..?

Thanks for a reply :)
Reply
0
0
crystal
crystal     BI
This comment was minimized by the moderator on the site
HI BI,
Does your worksheet contain a pivot table? Can you provide us with your data for tesing? If you don't mind, upload your sample file here.
Reply
Report
0
0
BI
BI
This comment was minimized by the moderator on the site
Hi, thanks for the great code it is awesome(Export all sheets to separated Text files)! Used it on many occasions but ran into a file where it won't work, debugger says runtime error 1004 and that method copy of a worksheet failed and marks line xWs.Copy. Is there any rule concerning a worksheet name that would not allow code to run?
Reply
0
0
Tim
Tim
This comment was minimized by the moderator on the site
Thanks! I used this to save all the sheets of my .xlsx file into differents .xlsx
Sub ExportSheetsToXLSX()
Dim xWs As Worksheet
Dim xcsvFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xlsxFile = CurDir & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.SaveAs Filename:=xlsxFile, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.ActiveWorkbook.Saved = True
Application.ActiveWorkbook.Close
Next
End Sub
Reply
0
0
nathan
nathan
This comment was minimized by the moderator on the site
how would I change the code to have it save in a different file format such as an xlsx? or ASCII.
Reply
0
0
folivo1980
folivo1980
This comment was minimized by the moderator on the site
So, this is great! BUT, what if I need to split a workbook into .csv but for PC, not MAC? If anyone has a way of doing it, please help me out. I will be very grateful.
Reply
Report
0
0
crystal
crystal     folivo1980
This comment was minimized by the moderator on the site
Hi,
The first VBA code in this post can do you a favor.
Reply
Report
0
0
tarahjcollins@gmail.com
This comment was minimized by the moderator on the site
Is there a way to use this code to export only a certain range to a .csv file of each sheet in a book?
Reply
Report
0
0
crystal
crystal    
This comment was minimized by the moderator on the site
Hi,
The VBA code in this article may do you a favor: https://www.extendoffice.com/documents/excel/2897-excel-export-range-to-csv.html
Reply
Report
0
0
GrifoDeGrifis
GrifoDeGrifis
This comment was minimized by the moderator on the site
Hello,
thank you so much for a great macro, it works like a charm! But I have a question, what if I would like to save this macro (CSV version) on PERSONAL.xlsb as to make it available on any excel instance?

When I try, CurDir takes the PERSONAL directory, instead of the active worksheet one...

Thank you for any help!
Reply
Report
0
0
crystal
crystal     GrifoDeGrifis
This comment was minimized by the moderator on the site
Hi Mirko,
Method in this article can do you a favor: https://trumpexcel.com/personal-macro-workbook/.
Reply
Report
0
0
sharmaarvind951@gmail.com
This comment was minimized by the moderator on the site
If you just want to convert multiple sheets, keep checking them and going to uncheck other sheets you don’t want to convert
sir for thuis step do you have macro
Reply
Report
0
0
crystal
crystal    
This comment was minimized by the moderator on the site
Good day,
Can't help with VBA code for this. Why not try the Split Workbook utility we provide in the post? It will save your time and you will love it.
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations