エクセルVBA 開いているブックのコピー

filecopyを使って、ファイルをある場所から別の場所へコピーしたいと思っています。
しかし、コピー元のファイルが開かれていると、エラーが出ていることがわかりました。

FileCopy "C:\xxxxx\B.xls","C:\yyyyy\B.xls"

といったコードで、B.xlsが開かれていると、エラーが起こります。
エラーが起こるのはこのコマンドの仕様のようです。
ただし、自分自身(このコードを実行しているファイル)はA.ｘｌｓとします。

対象のファイルが開かれていてもコピーするには、どうしたらよいでしょうか？

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2014/03/02 17:29

こんにちは。

エラーになるのは、内部コマンドを使うからでは？

Set objFso = CreateObject("Scripting.FilesystemObject")
objFso.Copyfile "C:\xxxxx\B.xls","C:\yyyyy\B.xls"
Set objFso = Nothing

というようにしてみたら、いかがですか？

この回答へのお礼

みようみまねでやってみたらできました！

意味はよくわかっていないですが、とりあえず動いたので良しとします。

回答ありがとうございました。

お礼日時：2014/03/22 21:19

No.2 回答者： pidum 回答日時： 2014/03/02 17:54

下記方法でも可能だと思います。

ご参考まで。

Workbooks("B.xls").Activate
ActiveWorkbook.SaveAs Filename:="C:\yyyyy\B.xls"

この回答へのお礼

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

今度試してみますね。

お礼日時：2014/03/22 21:19