excelのファイルコピー

質問

excelvbaでファイルコピーをしようと思っています。
コピーは自分自身のファイルをコピーしようとしています。

ファイル１.xls(自分自身、コピー元)
ファイル２.xls(コピーされたファイル)

FileCopyを使用し以下のようにやろうとしましたが、書き込みエラーがでてうまくいきませんでした。
エラーメッセージ「実行時エラー '70': 書き込みできません。」

FileCopy "ファイル１.xls", "ファイル２.xls"

どのようにすればうまくいくのでしょうか？

回答No.1

820mth · ベストアンサー

例１：
自分自身、コピー元の ファイル１.xls をExcelで開く時、読み取り専用で開いた時には、
FileCopy 出来るようです。

読み取り専用で開くには、
Excelのファイルを開くメニューのオプション、
VBAの場合、例えば
Workbooks.Open FileName:="場所" & "\" & _
"ファイル１.xls", ReadOnly:=True
他には、事前にファイル属性を読み取り専用に変更する方法もあります。

例２：
ファイル１.xls をExcelで開く時、書き込み可能の状態で開きたい時は、
FileCopyではなく、コマンドプロンプトの copy コマンドを使用する方法があります。VBAの場合、例えば
Shell ("cmd /C copy """ & _
ThisWorkbook.Path & "\" & ThisWorkbook.Name & """ """ & _
ThisWorkbook.Path & "\" & "ファイル２.xls"""), vbHide

で出来るようです。
上記はExcel97Excel97,Excel2002で試しています。
開いているBookをコピーしようとしていますので、ExcelやOSの種類等によってはエラーになるかもしれません。

Windows98系の場合、cmd の箇所は command.com になります。