各ワークシートをExcelで個別の新しいブックとしてエクスポートして保存するにはどうすればよいですか？

XNUMXつまたは複数のワークシートを新しいワークブックとしてエクスポートして保存するとします。どのように処理しますか？ 通常、各ワークシートをコピーして、新しいワークブックに貼り付けることができます。 しかし、ここでは、それに対処するためのいくつかの便利なトリックを紹介します。

移動またはコピーコマンドを使用して、ワークシートを1つずつ新しいワークブックとして保存します。

使い方 移動またはコピー コマンドを使用すると、XNUMXつまたは複数のワークシートを新しいブックにすばやくエクスポートまたはコピーできます。

ステップ1：タブバーでワークシート名を選択します。 押し続けると複数選択できます Ctrlキー キーまたは シフト キー。

ステップ2：ワークシート名を右クリックし、 移動またはコピー コンテキストメニューから。

ステップ3：で 移動またはコピー ダイアログボックスで （新しい本） のドロップダウンリストからのアイテム 選択したシートを移動して予約する.

ステップ4：次にクリック OK、これでに切り替えました 新しいワークブック エクスポートまたはコピーされたワークシートで、をクリックします File > Save 新しいワークブックを保存します。

ご注意： 移動またはコピー ダイアログボックスには、 コピーを作成する オプション。 チェックしないと、選択したワークシートが元のブックから移動します。 チェックすると、選択したワークシートがコピーされます。

Kutools for Excel でワークシートを新しいワークブックとして簡単に一括保存

複数のワークシートを別々のワークブックとして保存する必要がある場合、最初の方法は適していません。また、以下のVBAコードはExcel初心者には少し複雑かもしれません。ここでは、 分割ワークブック の有用性 Kutools for Excel 1 つのワークブックの各ワークシートを別の新しいワークブックに簡単に一括保存します。

Kutools for Excelをインストールした後、クリック クツールズプラス > ワークブック > 分割ワークブック を開く 分割ワークブック ダイアログボックスが表示されます。次のように設定します。

1. 新しいワークブックとして保存するワークシートをチェックします。デフォルトでは、すべてのワークシートがチェックされています。
2. 非表示のワークシートや空白のワークシートをスキップするには、対応するチェックボックスをオンにします。 オプション のセクションから無料でダウンロードできます。
3. クリック OK.

   

4. A フォルダを選択してください ダイアログボックスがポップアップ表示されたら、新しいワークブックを保存する保存先フォルダを選択し、 フォルダを選択してください

その後、指定されたワークシートまたはすべてのワークシートがすぐに個別の新しいワークブックとして保存されます。

ワークシートをVBAコードを使用して新しいワークブックとしてエクスポートおよび保存します

次のコードは、表示されているすべてのワークシートを新しいブックにエクスポートし、元のシートの名前で、アクティブなブックと同じパスに新しく作成されたフォルダーにワークブックを保存します。 次の手順に従ってください。

ステップ1： Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

ステップ2：クリック インセット > モジュール、モジュールウィンドウに次のマクロを貼り付けます。

VBA：ワークシートを新しいブックとしてエクスポートして新しいフォルダーに保存します。

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

ステップ3： F5 このコードを実行するためのキー。 また、新しくエクスポートされたワークブックの場所を示すプロンプトボックスがポップアップ表示され、元のワークブックのすべてのワークシートが、新しい特定のフォルダー内の元のシートに名前を付けたいくつかの新しい個別のワークブックにエクスポートされました。 スクリーンショットを参照してください：

各シートを新しいワークブックとしてエクスポートして保存します

関連記事：

• 複数のワークブックをXNUMXつのワークブックに結合する
• 選択範囲を個別のファイルとして保存
• ブックを分割してExcelファイルを分離する