Note: The other languages of the website are Google-translated. Back to English

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

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

[移動]または[コピー]コマンドを使用して、ワークシートを新しいブックとしてエクスポートおよび保存します

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

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


矢印青い右バブル [移動]または[コピー]コマンドを使用して、ワークシートを新しいブックとしてエクスポートおよび保存します

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

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

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

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

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

ステップ4:次にクリック OK、これでに切り替えました 新しいワークブック エクスポートまたはコピーされたワークシートで、をクリックします フィレット > セールで節約 新しいワークブックを保存します。

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


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

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

矢印青い右バブル ワークシートを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 このコードを実行するためのキー。 また、新しくエクスポートされたワークブックの場所を示すプロンプトボックスがポップアップ表示され、元のワークブックのすべてのワークシートが、新しい特定のフォルダー内の元のシートに名前を付けたいくつかの新しい個別のワークブックにエクスポートされました。 スクリーンショットを参照してください:

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

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

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

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

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

ステップ1:クリック クツールズプラス > ワークブック > 分割ワークブック…。 スクリーンショットを参照してください:
ドキュメントエクスポートシート3

ステップ2: 分割ワークブック ダイアログボックスで、次のようにします。

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


2: 非表示または空白のワークシートの分割を避けたい場合は、 非表示のワークシートをスキップする or 空白のワークシートをスキップする)。


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

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

ステップ4:次にクリック OK、次に、チェックされた各ワークシート 分割ワークブック ダイアログボックスがエクスポートされ、個別のブックとして保存されます。 新しい各ワークブックには、元のワークシート名で名前が付けられます。 スクリーンショットを参照してください:
ドキュメントエクスポートシート5

この分割ワークブックツールの詳細については、ここをクリックしてください.

矢印青い右バブル 各シートを新しいワークブックとしてエクスポートして保存します


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

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

関連記事:


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

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
コメントを並べ替える
コメント (62)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう、とてもうまくそして簡単に動作します。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは私はコードが好きです日付情報なしで新しいブックを保存することは可能ですか?それで、前のブックのシートを再保存するときに、別の日付のフォルダを作成するのではなく、変更を上書きするオプションがありますか? また、それほど重要ではありませんが、宛先フォルダーに別の名前と宛先を使用するにはどうすればよいですか。よろしくショーン
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう。 よくできた!。
このコメントは、サイトのモデレーターによって最小化されました
このマクロを変更してXLSTARTフォルダー内のファイルに保存できるようにする方法はありますが、アクティブなブックに対して実行されますか? XLSTARTブックに保存するたびに、DateString = Format(Now、 "yyyy-mm-dd hh-mm-ss")行で失敗します。 ありがとう! キース
このコメントは、サイトのモデレーターによって最小化されました
みなさん、こんにちは。誰かが下で私を助けてくれますか。 表示されているすべてのシートのみを新しいブックにコピーできるVBAコードが必要ですが、マクロコードを新しいブックにコピーしないでください。新しいブックをデスクトップに保存し、シートとシート名のXNUMXつの異なるセル値をファイル名として保存し、マスターブックを閉じます。保存します。
このコメントは、サイトのモデレーターによって最小化されました
ありがとうございました。 これはまさに私が必要としていたものです。
このコメントは、サイトのモデレーターによって最小化されました
コードはsh.Copyで失敗し、理由がわかりません。 何か案は?
このコメントは、サイトのモデレーターによって最小化されました
このコードは私が必要とするものに最適ですが、ワークブック全体ではなく、XNUMXつのシートに対してまったく同じプロセスのコードを表示できますか?
このコメントは、サイトのモデレーターによって最小化されました
VBAコードは魔法のように機能しますが、VBScriptを使用してこれを行う方法はありますか? 上司からの要求に応えようと頑張っています。
このコメントは、サイトのモデレーターによって最小化されました
感謝。 terima Kasih。 iniコードヤンサヤブトゥカン
このコメントは、サイトのモデレーターによって最小化されました
とても便利なありがとう! VBAコードが気に入りました
このコメントは、サイトのモデレーターによって最小化されました
Muy buenalaaplicacion。 Es una pena nopresentirtambienenEspañol。 グラシアス
このコメントは、サイトのモデレーターによって最小化されました
残念ながら、VBAコードは私には機能しませんでした。 デバッグする必要がありましたが、問題は次の行にあります:Application.ActiveWorkbook.SaveAs xFile、FileFormat:= FileFormatNumなぜそれが機能しなかったのか、何か考えはありますか?
このコメントは、サイトのモデレーターによって最小化されました
すばらしい記事-VBAが初めて機能した-完璧
このコメントは、サイトのモデレーターによって最小化されました
xWs.Copy-それは私の部分のエラーですそれはどういう意味ですか?
このコメントは、サイトのモデレーターによって最小化されました
実行時エラーメソッド'オブジェクトのコピー'ワークシート'が失敗しました
このコメントは、サイトのモデレーターによって最小化されました
上記のXNUMXつの方法のうち、私は初心者であり、私の仕事は専門家のようにまったく同じ規模ではないという事実を考慮すると、最初の方法は非常に優れていることがわかりました。 手順をわかりやすく説明していただき、誠にありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
すべての(300以上の)シートをhtmlにエクスポートすることもできますか?これは非常に役立ちます。統一されたテキストへのエクスポートはすでに役立ちますが、htmlでそれらが必要であるか、セルの違いのためにテーブルの境界線がありません
このコメントは、サイトのモデレーターによって最小化されました
あなたのコードは私のために働いた...どうもありがとう!!!
このコメントは、サイトのモデレーターによって最小化されました
やあ。 「コンパイルエラー:外部プロシージャが無効です」というエラーコードを受け取りました...ヘルプ!
ここにはまだコメントが投稿されていません
もっと読み込む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所