VBAで連続してブックを保存、前ブックではなく元ブックから作成・保存したい

Question

実現したいこと

エクセルマクロブック（.xlsm)を元ブックにして複数サブフォルダ内画像を貼り付けてサブフォルダ名を付けて保存する複数ブックを作成したいが、前ブックの上書きの形式でブックが作成されてしまう（画像が上乗せされていくので前実行の画像が見えてしまう）。

ThisWorkbook.SaveCopyAs Filename:=picFolderPath2 & pic_split(2) & "xlsx" '参考, FileFormat:=xlOpenXMLWorkbook

やってみたこと

saveAsメソッドではなく上記のようにsaveCopyAsメソッドを使う。
ただ、保存されますが開くことは出来ず(ファイル形式、ファイル拡張子が正しくないmsgboxが立ち上がる）、上書きされているのか確認出来ません。
"xlsx"を元ブックと同じ"xlsm"に換えるとエクセルアイコンが白紙の「名前.xlsm」ファイルになり開けません。

何か良い方法はありませんか？
それともworkbookを新規に作成するところから始めないといけないでしょうか？

よろしくお願いします。

追記

"xlsm"のドットが抜けていて".xlsm"で正常にコピー保存されました。但し、コピーの内容もsaveAsと変わらず上書きされています。そこで

Set a_sheet = Thisworkbook.Worksheets(1)

中略

ThisWorkbook.SaveCopyAs Filename:=picFolderPath2 & pic_split(2) & ".xlsm"

ThisWorkbook.SaveAs filename:=picFolderPath2 & pic_split(2), FileFormat:=xlOpenXMLWorkbook
Set FSO = CreateObject("Scripting.FileSystemObject")
Set folderObject = FSO.getfolder(picFolderPath2)
For Each new_wbs In FSO.getfolder(folderObject).Files
set new_wb = Workbooks.Open(new_wbs)
if new_wb.Name = pic_split(2) then   'ここはざっくりです、試す環境にないので'
Set a_sheet = new_wb.Worksheets(1)

中略

new_wb.save

こんな感じでテンプブックシートを直に開かずに一旦先に保存してから画像転記を実行したらよいのでは？
と考えました。

Answer 1

自己解決法：

①元ブックシートを新ブックにコピー
thisworkbook.Worksheets.Copy

②新ブックシートをアクティブして画像貼付け等作業実行

③新ブック、元ブック保存

後から考えるとなんと単純かと費やした時間を考えると空しくなるますが、
一応解決法が見つかりましたのでよかったです。

Answer 2

質問を良く理解していませんが、xlsmのシートをテンプレートにして新しくブックを作成、そのブックに画像を貼り付けて保存、という流れでしょうか。
こんな感じのコードでどうでしょうか。

Dim thisbook As Workbook
Dim newbook As Workbook

' xlsx形式で保存するときのメッセージ抑制
Application.DisplayAlerts = False

' 元のxlsmを保持
Set thisbook = ActiveWorkbook

' 全シートをコピーして新ブックを作る
thisbook.Worksheets.Copy

' アクティブブックが新ブックになっているので保持
Set newbook = ActiveWorkbook

' 新ブックを編集
'画像貼り付け

' 名前を付けて保存＆閉じる
newbook.SaveAs picFolderPath2 & pic_split(2) & "xlsx", xlOpenXMLWorkbook
newbook.Close

' xlsx形式で保存するときのメッセージ回復
Application.DisplayAlerts = True

Comments

[hokosugi]

返事が遅くなりました。
ご回答のやり方が今まで考えて実行して解決した私のとのほぼ同じ
でした。先に読んでいればよかったと残念に思っています。
何はともあれ、ありがとうございます。

Answer 3

まず、「xlsx」に[.]が付いてないですけど、pic_split(2)に付いてます？

次に、SaveCopyAsってコピーを保存するから、拡張子を変えるというのはどうかと。
むしろ、正しく開ける可能性の方が少ないでしょう。
（なぜ拡張子を戻しても開けないのかは不明ですが）

SaveCopyAs で xlsm にしないのは、恐らくマクロを残したくないからでしょうか？

そうなると、手順としては、
１．「SaveCopyAs」で xlsm として一旦保存
２．保存した xlsm を開き直して、SaveAs で xlsx として保存
３．保存した xlsm を削除
という流れになるのではないでしょうか。

Comments

[hokosugi]

ご回答ありがとうございます。ドット付いていました、この質問を書く際に消えてしまったのかもしれません。ただ、"xlsm"のエラーはドットが抜けていたためでした。修正し正常に保存されましたが、問題解決には至りませんでした。追記で対策を考えましたが、セーブの段階でクリア出来るほうが簡単でいいので教示されました手順も書いてみたいと思います。

[ExcelVBAer]

たぶんお分かりだとは思いますが念の為、
「カンマ」=[,]
「ドット」=[.]
となります。
※余談ですが、CSV は カンマ セパレート バリュー の略で、カンマで区ったデータ形式、という意味です。(TSVはタブ区切りです)

[hokosugi]

あ、そうですｗｗ　今カンマ区切りの複数の整数に紐づけて転記するコードを調べていてカンマ頭になってまして・・・ありがとうございます。

Answer 4

テンプレート形式（マクロ付？）だと、開いた瞬間に別ファイルになるので、上書きになることがありません。
敢えて選択のなら上書きになりますが。
その辺も考慮して上手く使えればいかがでしょうか？

Comments

[hokosugi]

ご回答ありがとうございます。そう始めは考えていましたが、うまくいきません。初心者ですので兎にも角にも動くコードを書くしかありません。

[mattuwan]

ん。テンプレートならSaveAsで保存しちゃえばよくよくないですか？

[hokosugi]

テンプレートというのは拡張子が"xltx"のコピー用のファイルなんですね。テンプレート形式とはこの別ファイルのことではなく、テンプレートとして使っているからテンプレート形式だと勝手に判断しておりました。初心者ですのでご容赦を。帰ったら早速設定したいと思います。貴重なご意見ありがとうございます、助かります。

Answer 5

SaveCopyAsで保存したブックにはマクロが入っているので、マクロなしブックの形式で保存するとダイアログが出ているんだと思います。
こちらのように、シートだけコピーするようにしては？

Comments

[hokosugi]

ご回答ありがとうございます。有益な情報ありがとうございます。あとで読んでみたいと思います。取り急ぎお礼いたします。