![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
kenchandesuさん、こんにちは。
#1のmerlionXXです。
> あらかじめ作ってある5つの別のフォルダー(あ、い、う、え、お)に
> 5つの別のBookを作るようにお願いします。
そういうことは最初からはっきり書くものです。
作ってある5つのフォルダー名と、そこにいれるBOOK名とシート名は一致しているんですね?
そのフォルダーのパスを書いてくれないと、こちらではわからないと思いません?
仮に、C:\Documents and Settings\ユーザー名\My Documents のなかに作ってあるとすれば、下記のようになります。ただし、ユーザー名のところは自分のに直してくださいね。
Sub TEST2()
Dim st As Worksheet
For Each st In ThisWorkbook.Worksheets
st.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\ユーザー名\My Documents\" & st.Name & "\" & st.Name & ".xls"
ActiveWindow.Close
Next
End Sub
No.2
- 回答日時:
#1で既にご回答がありますが、
コードや方法を考え付く考え方として、下記があります。
ーー
Book1を開く
ツールーマクロー新しいマクロの記録ーMacro1-OK
シートタブ部で右クリック
「移動またはコピー」を選ぶ
(移動先ブック名)の▼をクリックして「新しいブック」を選ぶ。
「コピーを作成するにチェックを入れる。
OK
Book2ができて、その中のSheet1がアクチブになっている。
ファイルー名前をつけて保存ー名前を指定してーOK
上記をしてマクロの記録を終了する。
マクロの記録は
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxx\My Documents\Sheet2あ.xls"
(以下省略した)
上記処理のコードを、ブックの中にあるシートを順次捉える
For Each Sh In Worksheets
(上記処理)
Next
で処理を囲むコードにする。
各シートを捉えて、上記の処理を、シート全部について行うコードができる。
ーーー
新ブック名を変化させるのは、新ブック名を配列にでも入れるか、
ー>Bname(i)とでも指定すればよい
Book1のSheet1のセルにでもいれて参照
ブック名.Worksheets("Sheet1").Cells(i,"K")
すればよいと思う。
。
No.1
- 回答日時:
こんな感じでしょうか (⌒o⌒)?
Sub TEST()
Dim pth As String, st As Worksheet
pth = ThisWorkbook.Path
For Each st In ThisWorkbook.Worksheets
st.Copy
ActiveWorkbook.SaveAs Filename:=pth & "\" & st.Name & ".xls"
ActiveWindow.Close (False)
Next
End Sub
この回答への補足
早速のご回答ありがとうございます。
質問内容が不適切でしたので修正します。
それぞれ5つの別のBookに→それぞれ5つの別のフォルダーに
Book名 →フォルダー名
元のBOOK1も、5つのBOOKも同じフォルダーに出来てしまいました。
あらかじめ作ってある5つの別のフォルダー(あ、い、う、え、お)に
5つの別のBookを作るようにお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) python文字化けエラーが発生しているようです 3 2022/04/13 19:41
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) VBA For Each 〜 複数条件について 3 2022/10/20 20:05
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) VBAでvlookup関数から、別シート参照するやり方・・・ 2 2022/11/14 18:49
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) このプログラムなんですがsheetにデータを置いて表示できるようにしてありますがsheetに101を 2 2023/02/23 20:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBA コードを実行すると画面が...
-
VBAで複数のブックを開かずに処...
-
VBAで別のブックにシートをコピ...
-
VBA アプリケーション定義また...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
VBの処理結果をEXCELシ...
-
VBS Bookを閉じるコード
-
フォルダ内の全てのファイルに...
-
ACCESSでExcelにデータ出力、高...
-
VBA 実行時エラー 2147024893
-
VBA 別ブックからコピペしたい...
-
VBSでExcelのオープン確認
-
【VBA】全シートの計算式を全て...
-
エクセル共有化のトラブル
-
[Excel VBA] 複数のサブフォル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
vbaでvbaProjectのパスワード解...
-
VBA コードを実行すると画面が...
-
【マクロ】アクティブセルにブ...
-
Excelのマクロについて教えてく...
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
Excelのマクロについて教えてく...
-
【ExcelVBA】zip圧縮されたCSV...
-
【ExcelVBA】インデックスが有...
-
ACCESSVBA からExcelの他ブック...
-
vbaで他のブックに転記したい。...
-
【マクロ】違うフォルダにある...
おすすめ情報