Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Excel 2016)
フォルダーの変名をVBAで
投稿日時: 18/03/11 17:37:06
投稿者: Nubo

久しぶりにの質問です。
 
下記のような形式のフォルダー名がたくさんあります。
 
九州 - 日田彦山1985 (1991)
東海 - 三重 (2001)
北海道 - 札幌 (1975)
 
年度は()の中の数値を対象とします。
 
 
これを、年度別にソートする必要が生じたので下記形式に変名したいのです。
 
1991 九州 - 日田彦山1985 (1991)
2001 東海 - 三重 (2001)
1975 北海道 - 札幌 (1975)
 
 
 
手動でチェックしながらの変名は、対象フォルダーの数が多くフォルダーが入れ子状態なのでその数が膨大となります。
 
一つのフォルダーを指定するとその中のフォルダーに含まれるフォルダー名を対象にして希望の形式に変名できるようなVBAを作成したいと思います。
 
以下を想定しています。
 
シート1の特定セルにフォルダー名(S:\AA\BB\CC)を指定する
シート1の特定セルに変名フォルダーを書き出すディレクトリー(D:\変名後)を指定する
シート2のセルに形式が変更されたフォルダー名(1991 九州 - 日田彦山1985 (1991))を相当数書き出す
書き出すディレクトリーに変名後のディレクトリーを相当数作成する
  D:\変名後¥AA\BB\CC\1991 九州 - 日田彦山1985 (1991)
 
近年、EXCELを利用する機会が減少しVBAも全く忘却状態です。
 
VBAの作成を丸投げするわけではありませんが、ヒントをいただければ幸いです。

回答
投稿日時: 18/03/11 18:08:49
投稿者: WinArrow
投稿者のウェブサイトに移動

ポイントは、大きく2つあります。
(1)フォルダ名(サブフォルダ名)の取得と変更がわからない
(1.1)フォルダ名(サブフォルダ名)の取得が分からない
(1.2)フォルダ名の変更が分からない。・・・(1)と対で考える
(2)フォルダ名の編集方法(文字列の操作)が分からない
 
何処が分からないのか明確にする必要がありますが、
取り敢えず(1)対応については、↓のページが参考になると思います。
 
https://www.tipsfound.com/vba/18023

投稿日時: 18/03/12 08:16:06
投稿者: Nubo

回答ありがとうございます。
 
リネームソフト「Advanced renamer」で目的の処理できましたので解決に至りました。