エクセルのマクロでファイル名変更

質問

Dim フォルダ
パス = ActiveWorkbook.Path
本体 = ActiveWorkbook.Name
変更1 = Sheets(1).Range("B2")
フォルダ = パス & "\" & 変更1 ' & "\"
拡張子 = Sheets(1).Range("B3")
語句1 = Sheets(1).Range("B5")
語句2 = Sheets(1).Range("C5")
aa = 1
'7777777777 指定フォルダの書き出し 7777777777
Dim myFileName As String
Sheets(1).Select
Range("B7:B1000").Clear
Range("D7:E1000").Clear
'Rows("2:10000").ClearContents
'隠しファイルとシステムファイルも表示
myFileName = Dir(フォルダ & "\" & "*." & 拡張子, vbHidden + vbSystem)
Sheets(1).Select
While myFileName <> vbNullString
Cells(Rows.Count, 2).End(xlUp).Offset(1).Value _
= myFileName
myFileName = Dir()
Wend
下端 = Range("B" & Rows.Count).End(xlUp).Row
rrname = 1
For a = 7 To 下端
If rrname < 10 Then
Cells(a, 4) = "第00" & rrname & "話" & Cells(a, 3) & "." & 拡張子
ElseIf rrname >= 10 Then
Cells(a, 4) = "第0" & rrname & "話" & Cells(a, 3) & "." & 拡張子
ElseIf rrname >= 100 Then
Cells(a, 4) = "第" & rrname & "話" & Cells(a, 3) & "." & 拡張子
End If
rrname = rrname + 1
Next a

For b = 7 To 下端
旧ファイル名 = Cells(b, 2).Value
新ファイル名 = Cells(b, 4).Value
Name フォルダ & "\" & 旧ファイル名 As フォルダ & "\" & 新ファイル名
Next b

でファイル名変更マクロを作成したのですが、『ファイル名または番号が不正です』とエラーが返ってきますが、何が悪いのでしょうか？

回答No.1

o_chi_chi

どこでエラーになっているのでしょう？

正しく動くような気がしますが。。。。

質問とは関係ないですが、

Dir関数はファイルの取得順は不確定です。

取得順で無条件に第１話、第２話とつけると

ファイル名と中身が一致しないと思いますが。

また、新ファイル名をつくるところは

Cells(a, 4) = "第" & Format$(rrname,"000") & "話" & Cells(a, 3) & "." & 拡張子

でよいのでは

参考URL：

http://office.microsoft.com/ja-jp/access-help/HA001228824.aspx