vba 指定BOOKにシートを保存

Question

現在実行するとexcelファイルのシートをコピーしてきて、そのシートに対して処理を行うマクロを作っているのですが、処理を終えた後、コピーしてきたシートを指定されたディレクトリ下にあるBOOKに保存していくような流れを作りたいのです。
どういった方法を用いたら別BOOKにシートを保存できるのでしょうか？

Answer 1

「指定されたディレクトリ下にあるBOOK」という部分が、毎回新規ブックに保存することになるのか、既存のブックに追加していくことになるのかで若干処理が変わると思いますが、大まかには以下の流れになると思います。

【処理手順】
①コピー先ブックを開く（または新規ブックを作成）

Set wbCopyTo = Workbooks.Open(strFileName)  '既存のブックを開く
'Set wbCopyTo = Workbooks.Add               '新規ブックの作成

②コピー元シートをコピー先ブックにコピー

wbCopyFrom.Sheets("コピー元シート").Copy before:=wbCopyTo.Sheets(1)

③コピー先ブックを上書き保存（または名前を付けて保存）

wbCopyTo.Save                       '既存ファイルに上書き保存
'wbCopyTo.SaveAs(strFileName)       '名前をつけてファイルを保存

④コピー先ブックを閉じる

wbCopyTo.Close

未完成でもご自身で作成されたコードが提示されていればサンプルコードを掲載しようかと思いましたが、今回はコード未提示でしたので概要だけのアドバイスとさせていただきました。
わかりずらいかもしれませんが、参考になれば幸いです。

Comments

[jawa]

既に解決済みでした、、解決できたようで何よりです(^-^

Answer 2

SaveCopyAsというメソッドがあります。
Excel Tips ブックを保存 （Save、SaveAs、SaveCopyAs）