VBAにてファイル名を一括変更したいです。

Question

前提・実現したいこと

VBAにてファイル名を一括変更したいです。
具体的には
xx01.txt → aaa_xx01.txt
xx02.txt → aaa_xx02.txt
xx03.txt → aaa_xx03.txt
xx04.txt → aaa_xx04.txt
xx05.txt → aaa_xx05.txt
という具合にファイル名を一括変更したいです。

発生している問題・エラーメッセージ

「実行時エラー'53':
ファイルが見つかりません。」

該当のソースコード

VBA

Public Sub NameChange()

Dim SourcePath As String
Dim DestinationPath As String
Dim i As Integer
Dim j As Integer

SourcePath = "\C:abc\test\"
DestinationPath = "\D:123\test"

j = 1

For i = 1 To 5
    Name SourcePath & "xx0" & "j" & ".txt" _
    As DestinationPath & "aaa_xx0" & "j" & ".txt"
    j = j + 1
Next i

End Sub

試したこと

最初は変数jを使わずに変数iを使ってファイル名を表現していたが、
上手く動作しなかった為、変数jを使いプログラミングをしたが、
未だに解決出来ずにいます。

補足情報（FW/ツールのバージョンなど）

1つだけファイル名を変更するプログラムは、問題なく動作しました。

Public Sub NameChange()

Dim SourcePath As String
Dim DestinationPath As String

SourcePath = "\C:abc\test\"
DestinationPath = "\D:123\test"

Name SourcePath & "xx01.txt" _
As DestinationPath & "aaa_xx01.txt"

End Sub

Answer 1

「j」が変数ではなく"j"（文字列）になっています。ダブルクオーテーションは不要です。

Comments

[gackt395]

無事にプログラムが動作しました。
ありがとうございました。

ただ、どうしてそれで正常に動作するのかが分からなかった為、
職場の先輩に伺った所、VBAはCと違っていちいちキャストしなくても内部処理でキャストしてくれる為、ダブルクオテーションは不要ということでした。

お忙しい中時間を割いて頂き、ありがとうございました。

[mdj]

念のため。
明示的にキャストをするなら　cStr(j)　になります。

ダブルクオーテーションが不要な理由は「文字列(ここでは「j」という文字)」と判断されるためなので、自動的にキャストされるから大丈夫、という理由とは違います。

debug.printなどをしてみていただければわかりやすいかと思います。

---
For i = 1 To 5
debug.print("xx0" & "j" & ".txt")
next
---