処理方法が わかりません・・・・

質問

ひとつのブックに、エクセルの表が70シートあるものを、ひとつづつ、新しい70のブックにする作業をしています。

ひとつづつではなく、
シートタブで選択した複数のシートを、それぞれひとつづつの、複数の新しいブックにする操作方法か、マクロを教えて下さい！

例： 『言葉の種類』という名前のブックに、70シートあります。
(1)例えば、最初から順に３シートをシートタブで選択して、操作かマクロを実行すれば、新しい3つのブックができる。
(2)それぞれのシート名が、新しいブック名になる。
(3)保存先は、最初に設定した場所に入る。
(4)セルの位置を、『言葉の種類』ブックの、最初のシートに戻す。

これが出来れば、大きな時短になるということで、ネットでずっと調べていますが、似たような方法がなく、
途方に暮れています。

どうか、よろしくお願い致します。

回答No.3

tom04 · ベストアンサー

No.2です！
たびたびごめんなさい。

前回のコードでは新しいBookがそのまま画面上に残りますので、
もう1行追加して↓のコードにしてみてください。

Sub test()
Dim str As String
str = ActiveSheet.Name
Workbooks.Add.Activate
Application.Dialogs(xlDialogSaveAs).Show (str)
Workbooks(str).Close
End Sub

何度もごめんなさいね。m(_ _)m

お礼

いつも　ありがとうございます！

できました！
このマクロで、データをコピーして移動する時も大きな時短になります。
明日の作業が　楽しみです♪

回答No.2

tom04

こんばんは！
ご希望の方法とは異なるかもしれませんが・・・

アクティブSheetを「名前をつけて保存する」一例です。
単に新しいBookを追加して、それぞれのSheet名になれば良いわけですよね？
データをコピーする等Sheetの操作は一切考えていません。

『言葉の種類』ブックを開いておいて保存したいSheetをアクティブにします。
その上で↓のマクロを実行してみてください。

Sub test()
Dim str As String
str = ActiveSheet.Name
Workbooks.Add.Activate
Application.Dialogs(xlDialogSaveAs).Show (str)
End Sub

※　敢えて「名前をつけて保存する」ダイアログボックスを表示させるようにしてみました。
最初に保存場所を指定すれば次からはその保存場所がダイアログボックスに表示されると思いますので、
「保存」をクリックするだけでOKだと思います。
（ダイアログボックスの「ファイル名」にはアクティブSheet名が表示されているはずです）

他に良い方法がればごめんなさいね。m(_ _)m

回答No.1

mm_wanko_mm

やり方は少し違いますがマクロを使うならこんな方法はどうでしょうか。

１）ブック内のシート名の一覧を取得する。
２）それをダイアログボックスにリスト表示もしくは作業用シートに貼り付ける。
３）その内一つを選択し、選択されたシートを新規ブックに移動もしくはコピーする。
４）シート名で保存して閉じる。

VBAがある程度使えるなら一括選択もありかもしれませんが、慣れないうちは一つずつ処理した方が安全です。
上記の手順なら1ステップずつネット検索すれば、具体的なコードは見つかります。

もし分からなければ、次回にコードを補足しますね。

お礼

早速のご回答、ありがとうございます。

そうですね、アドバイスの通り、ひとつづづ調べてみます。
(1)と(2)（作業用シートに貼りつけ）のマクロは　ありますので
(3)(4)を　調べてみます。