『サブフォルダも含めた名前の変更』(みぃ)
Sub folder_name_change()
Dim folder_path As String Dim j As Integer
folder_path = Cells(2, 1) & "\"
j = 1
Do Until Cells(j + 3, 1) = "" Name folder_path & Cells(j + 3, 1) As folder_path & Cells(j + 3, 2) j = j + 1 Loop
End Sub
A2には対象のフォルダ名
A3以降のA列には変更したいフォルダの名前、
B3以降のB列には変更後のフォルダの名前が入力されていて該当するものは変更されます。
この処理をサブフォルダにも全て行いたいのですが、どのようなコードにすればいいでしょうか。
< 使用 Excel:Excel2013、使用 OS:Windows11 >
コードを修正する必要はなくて、A列,B列に入力するフォルダ名の方で対応するのが簡単ではないでしょうか
| A | B 1| | 2| D:\AAA\ | 3| | 4| BBB | newBBB 5| newBBB\CCC | newBBB\newCCC 6| newBBB\DDD | newBBB\newDDD のような感じ 上から順に処理されるので、 | A | B 1| | 2| D:\AAA\ | 3| | 4| BBB\CCC | BBB\newCCC 4| BBB\DDD | BBB\newDDD 4| BBB | newBBB としてもいいです (´・ω・`) 2023/09/21(木) 10:54:46
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.