[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ファイル名の変換方法』(sinmaipapa)
あるフォルダー内にあるファイル名をVBAで変換できたらと考えております。
追加する文字は2文字目に「0」を追加したいです。
例
ABCD → A0BCD
1256 → 10256
と言った具合です。
こういうことは可能なのでしょうか?
Left Mid Right Len で 文字列を操作し、 Nameステートメント でリネームします。 ただ、既存のファイル名との重複チェックが必要です。 Dir関数の戻り値でチェックできます。 ↓も参考になると思います。
[[20070117130924]]『フォルダの中にある複数のエクセルを一度に印刷したいのです。』(石田)
(MARBIN)
こんにちは、だるまです。 http://hp.vector.co.jp/authors/VA033788/index.html
>こういうことは可能なのでしょうか? はい、可能です。
このマクロブックの存在するフォルダ内のファイル名を変更します。 ただし、既に同じ名前があったり、二度実行したりということには配慮していません。^d^
Sub test() Dim myPath As String Dim Fn As String
myPath = ThisWorkbook.Path & "\" Fn = Dir(myPath & "*.xls") Do Until Fn = "" If Fn <> ThisWorkbook.Name Then Name myPath & Fn As Left$(Fn, 1) & "0" & Mid$(Fn, 2) End If Fn = Dir() Loop End Sub
何とかできました。
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.