ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

Excelで各ワークシートを別々の新しいワークブックとしてエクスポートおよび保存する方法

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

MoveまたはCopyコマンドを使用してワークシートをエクスポートして新しいワークブックとして保存する

ワークシートをVBAコード付きの新しいワークブックとしてエクスポートおよび保存する

Kutools for Excelを使用してワークシートを新しいワークブックとしてエクスポートおよび保存する 良いアイデア3


複数のワークシートをExcelで別のワークブックにすばやく分割

Microsoft Excelでは、新しいワークブックにこのワークシートをコピーして貼り付けることにより、1つのワークブックのワークシートを新しいExcelファイルとして保存または分割できます。 大規模なワークブックの各シート/ワークシートを別々のExcel、txt、csv、pdfファイルとして分割したい場合、面倒です。 しかし、 Kutools for Excelさん スプリットワークブック あなたはすぐにそれに対処することができます。 フル機能を備えた60日間無料トライアルをクリック!
ドキュメント分割書1
Excel用Kutools:300便利なExcelアドイン以上で、60日に制限なく試してみてください。

矢印青い右の泡 MoveまたはCopyコマンドを使用してワークシートをエクスポートして新しいワークブックとして保存する


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

ステップ1:タブバーのワークシート名を選択します。 押さえながら複数選択できます Ctrlキー キーまたは シフト キー。

Step 2:ワークシート名を右クリックして、 移動またはコピー コンテキストメニューから
ドキュメントエクスポートシート1

ステップ3:In 移動またはコピー ダイアログボックスで (新しい本) ドロップダウンリストの項目 選択したシートをブックに移動する.

ドキュメントエクスポートシート2

ステップ4:をクリックします。 OK今、あなたは 新しいワークブック エクスポートまたはコピーしたワークシートの場合は、 フィレット > 保存 新しいブックを保存します。

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


矢印青い右の泡 ワークシートをVBAコード付きの新しいワークブックとしてエクスポートおよび保存する

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

ステップ1: Alt + F11 キーを押すと、 アプリケーション用Microsoft Visual Basic 窓。

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

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

Sub SplitWorkbook()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb 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
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    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
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub

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

ドキュメントエクスポートシート7

矢印青い右の泡 Kutools for Excelを使用してワークシートを新しいワークブックとしてエクスポートおよび保存する

複数のワークシートを別々のワークブックとして保存する必要がある場合は、最初の方法を選択することはできません。 そしてVBAコードはExcel初心者にとっては少し複雑かもしれません。 ここでは スプリットワークブック の有用性 Kutools for Excel 1つのワークブックの各ワークシートを別々の新しいワークブックにすばやく簡単にエクスポートして保存する。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。

後の 無料インストール Excel用のKutoolsは、以下のようにしてください:

ステップ1:クリック Kutools Plus > ワークブック > 分割ブック。 スクリーンショットを見る:
ドキュメントエクスポートシート3

ステップ2: スプリットワークブック ダイアログボックスで、以下のようにします。

ドキュメントエクスポートシート4
1: すべてのワークシート名がデフォルトでチェックされているため、ワークシートの一部を分割したくない場合はチェックを外すことができます。


2: 隠れたワークシートまたは空のワークシートを分割しないようにするには、 隠されたワークシートをスキップする or 空のワークシートをスキップする)。


3: また、あなたが確認することができます 保存を指定する フォーマットを選択し、テキストファイル、pdfファイル、またはcsvファイルとして保存することを選択します。このオプションをチェックしないと、シートを分割してワークブックとして保存します。

ステップ3:をクリックします。 スプリット ボタンをクリックし、新しいワークブックを配置するフォルダを選択します。 スクリーンショットを見る:
ドキュメントエクスポートシート6

ステップ4:をクリックします。 OK、チェックされた各ワークシートを スプリットワークブック ダイアログボックスがエクスポートされ、個々のワークブックとして保存されます。 新しいワークブックごとに、元のワークシート名が付けられます。 スクリーンショットを見る:
ドキュメントエクスポートシート5

このスプリットブックの詳細については、クリックしてください。.

矢印青い右の泡 各シートを新しいブックとしてエクスポートして保存する


Excelで列または固定行に基づいてデータを複数のワークシートにすばやく分割

セールスマンの名前が列Aにあり、同じワークブックの列Aに基づいてこのデータを複数のワークシートに自動的に分割し、各セールスマンを新しいワークシートに分割する必要があるとします。ワークシート。 Kutools for Excelさん 分割日 ユーティリティを使用すると、Excelで表示される以下のスクリーンショットのように、選択した列に基づいてデータを複数のワークシートに素早く分割できます。 フル機能の60日間無料トライアルをクリック!
ドキュメント分割データ2
Excel用Kutools:300便利なExcelアドイン以上で、60日に制限なく試してみてください。

関連記事:



Excelの推奨生産性向上ツール

Kutools for Excelを使用すると、いつでも作業を終わらせることができ、群衆から目立つようにすることができます。

  • 300作業シナリオ用に設計された1500以上の強力な高度な機能により、生産性を70%向上させ、家族の世話をしたり人生を楽しんだりするための時間を増やすことができます。
  • 数式やVBAコードを暗記する必要はもうありません。これから脳を休ませてください。
  • 3分でExcelのエキスパートになる、複雑で繰り返しのある操作が数秒で可能
  • 毎日何千ものキーボードとマウスの操作を減らし、今や職業病に別れを告げる。
  • 110,000の非常に効果的な人々と300 +世界的に有名な企業の選択。
  • 60-dayフル機能無料トライアル。 60日の返金保証。 2年間の無料アップグレードとサポート。

ブラウザのタブよりはるかに強力な、タブ付きのブラウジングと編集をMicrosoft Officeにもたらします。

  • Officeタブは、Word、Excel、PowerPoint、およびその他のOfficeアプリケーション(発行元、アクセス、Visio、およびプロジェクト)用に設計されています。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    SS · 4 days ago
    This is a fantastic piece of work, thanks a lot.
    Do we have any option to select only specific columns in a worksheet to be exported?
  • To post as a guest, your comment is unpublished.
    JR · 1 months ago
    For anybody who finds the VBA code is not running as expected, try to change Line 9 to "Set xWb = Application.ActiveWorkbook"

    Otherwise, fantastic! Does exactly as described, and runs fairly quickly
  • To post as a guest, your comment is unpublished.
    Vinod Pingale · 2 months ago
    very nice.... Thanks
  • To post as a guest, your comment is unpublished.
    PK · 4 months ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 4 months ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
  • To post as a guest, your comment is unpublished.
    Sergii · 5 months ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.