Ｐａｇｅ 824 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ファイルの名前を一括に変更する方法 じゅん 03/3/4(火) 15:57 ┗Re:ファイルの名前を一括に変更する方法 パピー 03/3/5(水) 9:04 ─────────────────────────────────────── ■題名 ： ファイルの名前を一括に変更する方法 ■名前 ： じゅん ■日付 ： 03/3/4(火) 15:57 -------------------------------------------------------------------------
| こんにちは！ じゅんと言います、VBA初心者です。 質問なのですが、どなたか分かる方教えて下さい。 Excelのマクロで、参照するフォルダ内のすべてのファイル名（.btm画像）を一括に変更する方法がわかりません。 例えば、現在1から10と言うファイルネームがついた、ビットマップ形式の画像があるとします。それをVBAからそのディレクトリを指定したら、一括にTest1からTest10みたいに名前が変わるようにしたいです。 どなたか良きアドバイス宜しくお願いします。 |
| こんにちは｡ 他にもやり方があるかと思いますが､試してみて下さい｡ 外していたらごめんなさい｡ Sub test() Const MyPath As String = "D:\work\" Dim FileName As String Dim FileTBL(200) As String Dim n As Integer n = 0 FileName = Dir(MyPath & "*.bmp") '最初のファイル名の取得 If FileName = "" Then MsgBox "対象ファイルが１個もありません" Exit Sub End If Do Until FileName = "" n = n + 1 FileTBL(n) = FileName Debug.Print n, FileName FileName = Dir() '次のファイル名の取得 Loop For i = 1 To n Name MyPath & FileTBL(i) As MyPath & "TEST" & FileTBL(i) Next End Sub |