VBA SAVEするワークブックを切替たい

質問

VBA初心者です

SAVEするワークブックを切替えたいのですが、どうすれば可能でしょうか？

例えば
(1)マクロのワークブック
(2)A（標準フォーマットファイル）
(3)B（データファイル）

とした場合、(3)を(2)に貼り付けて、(2)を別名で保存(ダイアログで）したいのですが、(1)が別名
で保存されてしまいます

(2)のファイル名で貼り付けは完了しています　ダイアログ無しでのファイル名指定であれば
SAVEできます

ダイアログでのSAVEを、(1)から(2)に切替えられれば良いのですが

OS:Windows8PRO
Excel2010

回答No.1

keithin · ベストアンサー

１．なんて名前で保存したいのか、ファイル名を取得します
２．操作したいブックを名指しで指名して、保存します。

例：
マクロブック、Ａ．ｘｌｓ、Ｂ．ｘｌｓの３つのブックが開いている状態から開始するとして。

sub macro1()
　dim myfile as string
　workbooks("B.xls").worksheets("シート名").range("コピーしたいセル範囲").copy _
　　destination:=workbooks("A.xls").worksheets("シート名").range("貼り付け先セル")

　myfile = application.getsaveasfilename()
　workbooks("A.xls").saveas filename:=myfile
end sub

お礼

お返事遅くなりました

無事動作するようになりました！　感謝です

ただ、また別の所でつまづいております　別途質問させて頂きます