- ベストアンサー
エクセルで各シート毎にブックに分割したい
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんばんは。 こんな感じで如何でしょうか？ Sub splitBook() Const path As String = "C:\" '\まで記述 Dim bk As Workbook Set bk = ActiveWorkbook Dim st As Worksheet For Each st In bk.Sheets Workbooks.Add st.Copy Before:=ActiveWorkbook.Sheets(1) ActiveWorkbook.SaveAs path & st.Name & ".xls" ActiveWorkbook.Close Next End Sub
その他の回答 (1)
このようなのはどうです。 http://www.vector.co.jp/soft/win95/util/se302063.html http://www.vector.co.jp/soft/win95/business/se302103.html
お礼
お礼が大変遅くなってすみません 残念ながら、↑のサイトは会社でブロックされて見る事が出来ません ↓の方で解決つきました。 ありがとうございました
関連するQ&A
- エクセルのシートを分割して見たい
エクセル２００２を使っています。 違うブックを２つ開いて、「ウィンドウ」→「整列」→「左右」とすると、２つのブックが２分割して現れ、２つのブックを見ながら作業が出来ます。 ですが、シートを分割して見たいという時はどうするのでしょうか？ 「作業」というブック内に、「１」のシートと「２」のシートがあります。 「１」のシートを開いていて、「２」のシートを見たい時はシートをクリックして切り替えていますが、同時に２つのシートを見ながら作業がしたいです。 無理なのでしょうか？
- ベストアンサー
- オフィス系ソフト
- フォルダ内の全ブックのシート名を変更したいです。
同一フォルダ内に、ファイル名の違うエクセルブックが100個ほどあります。 その100個のそれぞれには、シートが1つ入っています。（シート名は、ブック毎に異なっています） それらのシート名を100個全部、「2013-07」という名前にしたいのですが、マクロで一括処理はできますでしょうか？ データが多く、マクロ初心者なので、困っております。。 エクセルは2013を使用しています。 お教えいただければ幸いですm(＿ ＿)m
- ベストアンサー
- オフィス系ソフト
- EXCELの複数シートをそれぞれ別ブックへ保存したい
EXCEL97を使用しています。 1つのブック内に複数のシート（10～20枚）があります。 これを全て1シートずつの別のブックに分けて保存をするマクロを作成したいのですが、できますでしょうか？ できれば各シート内の(A4)に入力されている文字列を各ブックの名前として使用したいのですが・・・。 （各シートのセルA4の値に重複はありません） 現在は各シートを新しいブックにコピーして名前を付けて保存、の作業をシート数分繰り返しています。 すみませんがよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのワークシートの名前変更・・・
朝からずっと調べているんですが、なかなか良い過去ログが無かったので、教えてください。 エクセル2003で、１つのブックの中に、複数のシート（シートの数は不定、またシート名は「sheets1」とかではなく、日本語形式です）が有ります。そのシートの名前を、１～という数字の連番に変えたいのですが、良い方法又はマクロを教えてください。 当方マクロ初心者ですので、具体的に作って頂けると助かるのですが・・・ 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル：複数ブックから任意のシートを選んで結合
お世話になります。 複数のブックをひとつにまとめるという質問は過去にもたくさんあったのですが次の場合の対処がわかりませんでしたので教えてください。 なお手動でやるのではなく、マクロやフリーソフトなどで自動化したいと思っています。 １つのフォルダに複数のブックがあり、各ブックには複数のシートがあります。各ブックの先頭シート（一番左のシート）だけを１つのブックにまとめたいのです。 現在、各ブックの先頭シート（一番左のシート）の名前には「人の名前」が入っています。 １つにまとめるブックを 全員.xls として、このブックの各シートに各ブックの先頭シート（一番左のシート）の名前（人の名前）をつけて保存したいのです。 結合する際に「人の名前」のようにシート名が違うことが問題になるならば、すべてのブックのSheet1だけをまとめるというやり方でも構いません。 この場合、全員.xlsの各シート名は適当でも良い。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数のブックを新しいブックのSheet1にまとめたい
教えてください。 「A」「B」「C」「D」「E」「F」「G」 と言った名前のエクセルファイルがあります。 実際は約５０個ありますが・・・。 それぞれ、Sheet1にのみ同じフォーマットですが、行数というか、件数が異なります。 新しいエクセルブックのSheet1にA」のデータの下に「B」のデータを貼り付けるという風に、「A」～「G」をまとめて一つのシートにまとめたいです。コピペではなくマクロでできるということを知りました。 毎月作業することになるので、マクロを組んでおきたいと思っています。 しかし、マクロは単純作業を記録して実行するというような基本的なことしかわかりません。 専門的用語ではなく、 (1)ツールをクリック (2)すべてのブックを開いておく (3)Visual Basicをクリック などというように、手順を教えていただけないでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 複数のエクセルブックの中のシート指定して一括印刷
複数のエクセルブックの中のシート指定して一括印刷 複数のエクセルブック（４００枚）がある中で、シートが１～４あります。 そのエクセルブックの中のシート１とシート３だけを印刷していきたいのですが、 ４００回エクセルを開いてシート指定しないと印刷できないでしょうか？ できれば、全ブックのシート指定をして、一括での印刷は可能でしょうか？ 良きアドバイス等がありましたら教えて頂けたらと思います。 宜しくお願い致します。
- 締切済み
- その他（ITシステム運用・管理）
- エクセルＶＢＡの処理でブックの中に複数のシートがあり、そのシート名と同
エクセルＶＢＡの処理でブックの中に複数のシートがあり、そのシート名と同じ名前の他のブックにそのシートを順々に挿入していきたいのですがどうすればよいのでしょうか。 宜しくお願い致します。
- 締切済み
- SE・インフラ・Webエンジニア
- 【Excel 2003】複数のブックのシートを一つのブックにコピーにしたい
お世話になっております。 【Excel 2003】を使っております。 複数のブックには、複数のシートがありまして、 複数のシートを一つのブックにコピーしたいのですが、 手作業ですと、大変時間がかかります。 現在は、一つ一つブックをあけて、シートのコピーで 一つの新しいブックにいれてます。 なにか、これを簡単にできる方法は、ありませんでしょうか？ フリーのソフトでも、マクロでも、教えていただけたら 助かります。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Excelのシート→ブック
Excelのシート→ブック Excelに複数のシートがある状態です。 そのシートを個別のファイル名=シート名で一発で個別のブックにする方法はありますか？
- ベストアンサー
- その他MS Office製品
お礼
これで完璧です しかしよくこんな簡潔なコードで出来るものですね 自分でも書けるように勉強します ありがとうございました