PC フォルダー作成 Excel

中身が同一のエクセルファイルを大量に作る場合で、フォルダー名を○○1,○○2みたいに連番で作るやり方はありますか？

No.3 回答者： nicotinism 回答日時： 2021/07/30 00:34

VBAで処理する場合です。

下記はCドライブに、C:\test1フォルダを作成し、その中に
ここ001 ~ ここ100 のフォルダを100個作成しています。

Sub てすと()
Const BaseDir As String = "c:\TEST1"
Const TargetDir As String = "ここ"
Dim i As Byte
If Dir(BaseDir) = "" Then
MkDir BaseDir
End If
For i = 1 To 100
MkDir BaseDir & "\" & TargetDir & Format(i, "000")
DoEvents
Next i
Shell "explorer.exe " & BaseDir, vbNormalFocus '確認用
End Sub

この回答へのお礼

ありがとうございます！

お礼日時：2021/08/02 00:44

No.2 回答者： ぽち101 回答日時： 2021/07/29 23:50

リネーム系のアプリを使うか、

フォルダを複数選択した状態で右クリックして「名前を変更」するかでしょうか。

例えばWindows10だとすると。
・Aフォルダ
・Bフォルダ
・Cフォルダ
の３つがあって、両方を選択した状態で「名前を変更」で「テスト」と
入力してエンターを押すと
テスト
テスト (2)
テスト (3)
と一括で変更出来ます。

この回答へのお礼

ありがとうございます！

お礼日時：2021/08/02 00:44

No.1 回答者： かわごえ 回答日時： 2021/07/29 23:48

https://www.vector.co.jp/soft/win95/util/se07442 …
このようなツールで後からリネームすればよいのでは

ま、
＞中身が同一のエクセルファイルを大量に作る場合
この手段によるところだと思います。

この回答へのお礼

ありがとうございます！

お礼日時：2021/08/02 00:45