| |
こんにちは。かみちゃん です。
>一つのフォルダの中にCSVファイルがたくさんあり、全部の名前の最後の一文字を消して、新たに文字を付け足したいのです。
>今のファイル名の最後には”0”が付きます。この”0”を消して”-1”をつけたいのです。
以下のような感じでできると思います。
ポイントは、Dir関数とNameステートメントです。
Sub Sample()
Dim strPath As String
Dim strFileName As String
strPath = ThisWorkbook.Path 'マクロが記述されているブックが保存されているフォルダ
strFileName = Dir(strPath & "\*.csv")
Do While strFileName <> ""
Name strPath & "\" & strFileName As strPath & "\" & Replace(strFileName, "0.csv", "-1.csv")
strFileName = Dir
Loop
End Sub
なお、変更後のファイル名がすでに存在しているかはチェックしていませんので、
そのようなファイルがある場合は、エラーになるかもしれません。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
