VBAでファイル名の変更の方法

質問

VBAでＡというファイルをＢというファイル名に変更したいのですが、方法がわかりません。
リネームする方法を教えて下さい。よろしくお願いします。

回答No.2

noname#4564 · ベストアンサー

> VBAでＡというファイルをＢというファイル名に変更したいのですが、方法がわかりません。
> リネームする方法を教えて下さい。

Name A As B

# わざわざFSOを使わなくても・・・。

お礼

簡単な方法があったと記憶していたのですが、すっかり忘れていました。探していたのはコレです。ありがとうございました。

回答No.1

mousengoke

Set objfs = CreateObject("Scripting.FileSystemObject")
If objfs.FileExists(B) Then
　MsgBox "すでにファイルがあります。"
Else
　objfs.MoveFile A B
End If

テストしてないので分かりませんが多分動くと思います。(というより厳密に言うとVBScriptのコードなんです。)

ちなみに現在のファイルの名前を変えて保存するのなら

Set objfs = CreateObject("Scripting.FileSystemObject")
If objfs.FileExists(newfile) Then
　MsgBox "すでにファイルがあります。"
Else
　ActiveWorkbook.SaveAs Filename:=B
End If

という感じになると思います。
あっ、二つとも関数の形でなくコードの部分だけで省かせてもらいました。そのまま関数にも出来ると思うけど。

お礼

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