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

質問

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

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

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

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

回答No.1

WindFaller · ベストアンサー

こんにちは。

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

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

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

お礼

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

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

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

回答No.2

noname#203218

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

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

お礼

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

今度試してみますね。