ご存知のように、Microsoft Excelは、現在のワークシートを個別の.csvファイルまたはPDFファイルとして保存できます。 したがって、すべてのシートを.csvファイルまたはPDFファイルとしてXNUMXつずつ手動で保存またはエクスポートできます。

1.個別の.csvファイルとして保存またはエクスポートするシートに切り替えて、[ File （または Officeボタン）> 名前を付けて保存.

2. [開く]ダイアログボックスで、.csvファイルを保存する宛先フォルダーを指定し、[ タイプとして保存 ボックスを選択し、 CSV（カンマ区切り）（*。csv） or PDF（* .pdf） ドロップダウンリストから、をクリックします Save

3つの警告ダイアログボックスが連続して表示されます。 クリックしてください OK > 有り.

注： アクティブなワークシートをPDFファイルとして保存すると、これらのダイアログボックスはポップアップしません。 次のステップに進んでください。

4.上記の手順1〜3を繰り返して、他のシートを個別の.csvファイルとしてXNUMXつずつ保存します。

.csvファイルとして保存またはエクスポートするシートが多数ある場合、最初の方法は非常に時間と手間がかかります。 このVBAを使用すると、作業が簡素化され、各シートを.csvファイルとして簡単に保存またはエクスポートできます。

1。 押す 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationウィンドウを開きます。

2。 クリック インセット > モジュール、次に次のVBAコードを新しいモジュールウィンドウに貼り付けます。

VBA：すべてのシートを個別のCSVファイルとして保存します

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub

4. [参照]ダイアログボックスを開いて、すべての.csvファイルを保存する宛先フォルダーを指定し、[ OK

次に、すべてのシートが、指定された宛先フォルダーに個別の.csvファイルとして保存/エクスポートされていることがわかります。

一部のExcelユーザーは、何らかの理由でVBAコードを拒否する場合があります。 心配しないでください！ XNUMX番目の方法では、各シートを.csvファイルまたはPDFファイルとして簡単にバッチ保存またはエクスポートすることもできます。 分割ワークブック Excel用のKutoolsのユーティリティ。

1。 クリック Enterprise > ワークブック > 分割ワークブック.

2.開いている[ワークブックの分割]ダイアログボックスで、

3. [フォルダの参照]ダイアログボックスを開いて、すべての.csvファイルまたはPDFファイルを保存する宛先フォルダを指定し、[ OK

これで、すべてのシートがエクスポートされ、指定されたフォルダーに個別の.csvファイルとして保存されます。