エクスプローラー形式で大量の新規フォルダを作成するプログラムです。
特にフォルダ名が既に決まっている場合におススメです。
例えば・・・
1) 支店、拠点別のフォルダを作る。
2) 日付ごとのフォルダを作る。
イメージとしては↓のようにフォルダを作る時など。
数が少なければ、フォルダを作りたい場所で、右クリック→「新規作成」→「フォルダ」→フォルダ名を入力、でも出来ますが、10個も20個も作るとなると大変ですよね。
そこでこのプログラムの出番です。
余談ですが私が最初にVBAというものの凄さに衝撃を受けたプログラムでもあります。
前提の情報として作りたいフォルダの名前を一覧表にする必要があるのですが、フォルダ名一覧が既にあってコピペができる場合にはすぐ作れますし、
手入力でも一定の規則性があればエクセルでも簡単に入力して作成できます。
↓のような表を作ります。
重要なのは一番左側の列で、①～③は入力しやすいように工夫しています。
下記がそのコードです。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Sub MakeFolder()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
MkDir ThisWorkbook.Path & “\” & Cells(i, 1)
Next
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
これはA列の2行目（A2)から下に記載された文字をフォルダ名にします。
（連続していることが条件なので途中に空白があるとそこで止まります。）
先ほどのリストに対して先ほどのマクロを実行します。
結果は・・・
ちゃんと指定通りのフォルダ名で作成されました。
今回は中身が何もないフォルダの作成でした。中身もある一定の規則があるフォルダを大量に作成することもできますので、それは別のページに載せたいと思います。
もしよかったら参考にしてみてください。
コメント