VBA-EXCEL ファイルが存在しないときにある場所からコピーしてきてファイル名を変更したい

質問

ご教授お願いいたします。
Excel2002上のワークシートでボタンを作り，ボタンをクリックすることでファイルを開くマクロを作りました。
ただ，ファイルがないと当然開けないのですが，内場合，ある特定の決められた場所から，Excelファイルをコピーしてきて，そのコピーしたファイルの名前を変更するようなマクロを作りたいのですが，サンプルみたいなものはないでしょうか。
よろしくお願いいたします。

回答No.2

bdr · ベストアンサー

これで如何ですか？
ファイルがなかった場合、コピー元を開いて名前を付けて保存します

Dim wb As Workbook
Dim strFilePath As String
Dim strOriFilePath
strFilePath = "開くファイルのパス"
strOriFilePath = "コピー元ファイルのパス"
If Dir(strFilePath) = "" Then
Set wb = Workbooks.Open(strOriFilePath)
wb.SaveAs strFilePath
Else
Workbooks.Open strFilePath
End If

回答No.1

hana-hana3

ファイルチェックは　Dir()
コピーは、FileCopy が簡単だと思います。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_100.html

参考URL：

http://www.officetanaka.net/excel/vba/file/file06.htm