[[20080602104402]] 『ファイル名の変換方法』(sinmaipapa) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ファイル名の変換方法』(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.