- ベストアンサー
Excelのシート→ブック
Excelのシート→ブック Excelに複数のシートがある状態です。 そのシートを個別のファイル名=シート名で一発で個別のブックにする方法はありますか?
- himemoco77
- お礼率14% (5/35)
- その他MS Office製品
- 回答数6
- ありがとう数2
- みんなの回答 (6)
- 専門家の回答
質問者が選んだベストアンサー
Sub Macro1() Dim sh As Worksheet For Each sh In Worksheets sh.Copy ActiveWorkbook.SaveAs Filename:=sh.Name Workbooks(sh.Name & ".XLS").Close Next sh End Sub
その他の回答 (5)
- mt2008
- ベストアンサー率52% (885/1701)
No.4です。 失礼、新しいブック名を元ファイル名+シート名にする…と、勘違いしていました。シート名をそのままブック名でいいんですね。 7行目の sBookname(0) & "_" & を削除してください。
- mt2008
- ベストアンサー率52% (885/1701)
マクロでやるとしたらこんな感じかな? サンプルなのでエラー処理等入っていません。 Sub Sample() Dim Sht, sBookname Application.ScreenUpdating = False sBookname = Split(ThisWorkbook.Name, ".") For Each Sht In Worksheets Sht.Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sBookname(0) & "_" & Sht.Name & "." & sBookname(1) ActiveWindow.Close Next Sht Application.ScreenUpdating = True End Sub
- avanzato
- ベストアンサー率54% (52/95)
こんにちは。 エクセルの機能ではそのようなシステムはありません。 やるなら次のような方法があります。 ファイル名:Testfile.Xls シートは以下の4つ 管理用 Sheet1 Sheet2 Sheet3 の環境で標準モジュールに下記コードを追加し実行すると シート「管理用」以外のシートを個々のファイルとして保存します。 保存するファイル名はシート名を使います。 保存先はTestfile.Xlsと同じフォルダです。 Testfile.Xlsがデスクトップ上にあるのならばデスクトップに Sheet1.Xls~Sheet3.Xlsが作成されます。 Sub Sample() Dim FilePath As String Dim MyName As String Dim ObjWorkSheet As Worksheet Dim SheetNm As String FilePath = ActiveWorkbook.Path & "\" MyName = ActiveWorkbook.Name For Each ObjWorkSheet In Worksheets SheetNm = ObjWorkSheet.Name If SheetNm <> "管理用" Then Sheets(SheetNm).Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=FilePath & SheetNm & ".xls" Application.DisplayAlerts = True ActiveWorkbook.Close End If Next MsgBox ("完了") End Sub
- MRT1452
- ベストアンサー率42% (1392/3296)
地道にマクロを組むしかないです。
- akiomyau
- ベストアンサー率43% (555/1280)
EXCEL自身にはそういった設定機能は用意されていません。
関連するQ&A
- エクセル シートをブックに分ける方法
エクセル2003を使用しています。 ひとつのブックに、シートA、B、C とある場合、 それを、シートAだけのブック(ファイル)、 シートBのファイル、シートCのファイル というように、一気にファイルに分けることは可能でしょうか? できれば、ファイル名=シート名で、設定できるとうれしいです。 可能でしたら、方法を教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで各シート毎にブックに分割したい
エクセルの1つのブックに複数の名前がついたシートがあり、その各シート毎にシート名のブックに分割したいのです。 シートが少なければ手作業で分割するのですが、100枚近くのシートがあるので、できればマクロで一括処理できれば助かるのですが。 過去ログで複数のブックのシートを一つのブックにまとめる事例がありましたので、その逆もできると思うのですが。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルシートをファイル名+シート名で保存したい
エクセルのブック内にある複数のシートを分割して保存するとき ブック名+シート名.xlsx とファイル名を付けて保存する方法があれば教えていただけないでしょうか。 よろしくお願いします。
- ベストアンサー
- Excel(エクセル)
- 複数のエクセルブックをひとつのブックにまとめる方法
同一フォルダに複数のエクセルブック(100個以上)が入っています。 その中のSheet1だけ(Sheet1~3まですべてのブックにあります)を一つのエクセルにまとめたいです。 ブックの中にSheet1、Sheet1(1)、Sheet1(2)・・・ みたいになればいいです。 Sheet名がブック名になるのが理想ですが。。 どのようにすればよろしいでしょうか?
- 締切済み
- Visual Basic
- EXCEL内のシートについて
複数のEXCELファイル(ブック)内にある同一名のシートを一括して削除する、或いは一括して編集する方法ってありますか? やりたい主旨は、同じようなファイルが多数あるものの、ファイル内の一部のシートについては名前は一緒で、 ずっと“金魚のうんち”のようにくっついてきているだけであり、鬱陶しいので削除したいということです。
- 締切済み
- Excel(エクセル)
- 複数のブックから、特定文字のシートをあつめるには?
複数のエクセルブックがあり、シートがたくさんあります。ブック名もバラバラで、シート名は「○○(日本人)」、「××(日本人)」、「○○(外国人)」、「××(外国人)」……とあります。 このシートを、日本人、外国人それぞれエクセルブックのシートごとにあつめたいです。 エクセルマクロを使って行いたいのですが、どうしたらいいかわかりません。 どなたか教えていただけないでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセル 単一シートから成る複数のブックを1つのシート上にまとめる方法
いつもお世話になります。 今回は、単一シートから成る複数のブックを1つのシート上にまとめる方法を教えていただきたく、質問させていただきました。 具体的に言いますと、ある1つのブックの1つのシートに500以上の商品名、使用量等が入力されており、そういう同じ形式のブックが30ほどあります。この複数のブックを1つのシート上にまとめたい(上からずらっと行を空けずに並べたい)のです。順番は問いません。手作業でコピー&ペーストを繰り返せば出来ることなのですが、もし簡単に出来る方法があれば教えていただけないでしょうか? よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- 二つに別れたbookを一つのBOOKのシートに?
エクセルで作った二つのファイルがあります。 これを一つのファイル(ブックというのかな)にして Sheet1とSheet2 に入れたい
- ベストアンサー
- Excel(エクセル)
- エクセルで一つのブックにある複数のシートを一つのシートにまとめる。
エクセルで一つのブックにある複数のシートを一つのシートにまとめる。 各シートには同じ形式の表(大きさも同じ)が1枚ずつあります。 それを一つのシートに、縦に並べて表示したい。 シートが100枚ぐらいありますので、ひとつひとつコピーするのは 大変です。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルのシートを複数のBOOKにコピーしたい
仕事で、エクセルの一枚のシートを、複数のBOOKにコピーする必要 が出てきました。いちいちシートをBOOKにコピーしていたのでは時 間がかかって仕方ありません。ある程度、まとめてコピーする方法はな いでしょうか。教えてください。お願いします。
- ベストアンサー
- オフィス系ソフト