こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

投稿日時 - 2005-10-28 12:17:14

QNo.1741176

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

投稿日時 - 2005-10-28 13:01:16

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

ファイルチェックは 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

投稿日時 - 2005-10-28 12:46:04

あなたにオススメの質問