以前フォルダの構成をエクセルに書き出す機能を作ってみた。
逆にエクセルからフォルダを作成できると便利という場面も多いので作ってみた。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
Sub CreateFolder() Set w = Sheets("表紙") basePath = Application.ActiveWorkbook.Path r = 1 Do While w.Cells(r, 1).Value <> "" targetPath = basePath & "\" & w.Cells(r, 1).Value If "" <> Dir(targetPath, vbDirectory) Then MsgBox w.Cells(r, 1).Value & "は既に存在します。" Exit Sub End If r = r + 1 Loop r = 1 Do While w.Cells(r, 1).Value <> "" targetPath = basePath & "\" & w.Cells(r, 1).Value If "" = Dir(targetPath, vbDirectory) Then MkDir (targetPath) ' 指定が重複してた場合 r = r + 1 Loop MsgBox "完了しました。" End Sub |