エクセルでシートを新規Bookにコピーして保存

質問

いつもお世話になっております。

毎回お世話になっております。
過去にも似たような質問をさせていただいてその時々の要求は解決しているのですが、悲しいかな各々のVBAが組み合わせられません。（というレベルです）

やりたいことは、特定のBookのアクティブシートを別の新規BookのSheet1にコピーして数値で貼り付ける。➣ここまではできました。

問題はこの、新規Bookを指定のセル（D5とA1）の内容をファイル名にして指定のフォルダに保存する。が出来ません。

１．新規BookでVBAを動かしたいのですが、複数のPCで使う時にどこに記録するのかわかりません。
２．コピーして数値で貼り付けから保存までのVBAは元のシートから直接（1回の操作）でも、新規Book1を表示させてからの操作でもどちらでも良いです。
３．Book１を保存するファイル形式はVBAが含まれないxlsxが好ましいです。（メールで送信するので）

回答No.4

kkkkkm · ベストアンサー

> 1回目のVBAではBook１で2回目はBook２で勝手に開いてくるBookのことです。

> 新規BookのSheet1にコピーして数値で貼り付ける

このときブックやシートの指定をしていると思いますが、その指定のまま適用したらいいのではないですか。
こちらでは既存のコードがどのようなものかもわからないのに、後からあれこれ言われても判断できませんからご自身で適宜調整してください。

補足

質問が分かりにくくでお手数をおかけしました。
何がしたいのかわかりにくい内容だと思いました。

＞やりたいことは、特定のBookのアクティブシートを別の新規BookのSheet1にコピーして数値で貼り付ける。➣ここまではできました。

問題はこの、新規Book（コードでは 「Workbooks.Add」）を新規Bookの指定のセル（D5とA1）の内容をファイル名にしてパスで指定したフォルダに保存する。が出来ません。

自分で出来たところまでを書いてしまったので、その先の保存の仕方が分らない、と思われてしまう記載でした。

一旦閉じて、出直します。
お手数をおかけしました。

Sub Macro1()

Rows("20:48").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

End Sub

回答No.3

kkkkkm

> 新規に開いたBook＃

これがたとえばtest.xlsxでしたら（A1,D5に何が入っているのか分からないのでそこは適当です)

With Workbooks("test.xlsx").Sheets("Sheet1")
Workbooks("test.xlsx").SaveAs Filename:=.Range("A1").Value & "\" & .Range("D5").Value
End With

補足

何度も説明不足ですみません。

新規に開いたBookというのは、当該作業Bookのファイル➣新規➣空白のBookで開いてくる毎回新規のBookのことで、1回目のVBAではBook１で2回目はBook２で勝手に開いてくるBookのことです。

回答No.2

kkkkkm

> 全て1つのコードで動いても良いのですが

現状動いている「シートをコピーして貼り付けているコード」の最後に先ほどのコードを追加すればいいだけだと思いますが(貼り付けた後に何も操作することがなければですが)

補足

何度もありがとう互いざいます。

単に貼り付けてみましたが、何度やっても保存で止まってしまします。
元のBook「A」のコードで新規に開いたBook＃のSheet１のセルA１の値で保存することはできるのでしょうか？
コピペ、保存（起動してきたBookにコードを貼り付けての）単一操作のコードでは期待通りに動くことは確認しました。

当方のレベルでは単にコピペする以外はわからないので何か基本的なことが抜けている可能性ありです画。

回答No.1

kkkkkm

D5がパスでA1がファイル名で新規ブックがアクティブな状態の時(貼り付け直後ならアクティブなような気がしますが)でしたら
ActiveWorkbook.SaveAs Filename:=Range("D5").Value & "\" & Range("A1").Value

すでにブック名がわかるのでしたら(アクティブよりこちらが間違いないと思います)
Workbooks("新規Book1のブック名").SaveAs Filename:=Range("D5").Value & "\" & Range("A1").Value

補足

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

ご回答のコードで期待通りに動くこと確認できたのですが、今回一番わからないのはコードの保存場所なのです。
作業手順としては,既存のBookの1枚のシートだけをコピーして新しいBookに張り付けたものを,そのシートの決まったセルの内容で、フルパス指定したホルダーに保存したいのです。
保存前にシート保護するのを忘れたのですが、保護の追加は何とかできそうです。（このレベルですので質問が分かりにくく申し訳ありません）

尚、A1、D5はA1+D5で作られる文字列をファイル名にして保存したく。
この辺も自分でなんとかなると思うのですが、新しく起動してきた例えばBook１にはコードが書き込まれていません。
コードを「個人用」に保存するとPCが限定されてしまうと思います。（NET調べ）
VBAの起動はシート上にボタンを作ってこれをクリックすることで動くようにしたいです。

もし、毎回の新規BookでのVBAの起動がハードルが高いようなら、元ファイルの必要な行、列範囲を指定したファルダにある特定のファイル名「コピペ用原紙」のシートに行、列指定してコピペという方法でも良いのですが。。。。
それを「コピペ用原紙」のマクロボタンクリックでA1+D5のファイル名で指定フォルダに保存される。

全て1つのコードで動いても良いのですが、この場合の問題点は当方には想像すらできませんのでステップbyステップでお願いして次第です。（余計に分かりにくくなったかもです）

第2案の方が簡単かも、と直ぐに思いついたのですが、補足説明する場所が無くて困っていました。

質問の意図が分かりにくくてすみませんでした。