vbdirectory」という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。Applications)のコードを探している方による検索です。VBAでフォルダを作成するときに、この定数を使う必要はありません。"同じ名前のフォルダが既に存在します。Sub上記のマクロを実行すると、カレントフォルダに「temp」フォルダが作成され、そのフォルダがエクスプローラーで開かれます。fold_pathの部分です。MkDirステートメントは、引数に指定されたフォルダを作成します。上記のマクロは、定数・FOLD_NAMEで、作成するフォルダの名前を指定するようにしてみました。"temp"CurDir関数で取得したカレントフォルダと、定数・FOLD_NAMEに格納された値から、作成するフォルダのフルパスを変数・fold_pathに格納します。FOLD_NAMEMkDirステートメントは、パスが指定されなかった場合はカレントフォルダに新しくフォルダを作成するので、単にMkDirするだけならCurDir関数でカレントフォルダを取得する必要はありませんが、上記のマクロではエラーチェックや、エクスプローラーで開く処理も含まれているため、カレントフォルダのフルパスと新規に作成するフォルダ名を格納しています。同じ名前のフォルダが存在しているときにエラーにならないように、事前にDir関数でチェックを行い、存在していた場合は、メッセージを表示します。"同じ名前のフォルダが既に存在します。いう検索をした方は、ここで使ったDir関数をご存じであったためvbdirectoryという語句を入れて検索されたのかな、と想像しています。同名フォルダが存在していなかったときに、フォルダを作成します。fold_path最後に、Shell関数を使って、作成したフォルダをエクスプローラーで開いています。_WindowStyle:=vbNormalFocus既に同じフォルダが存在していた場合にも、上記のマクロでは新規に作成したときと同じくエクスプローラーでそのフォルダを開くようにしています。今日の日付のフォルダーを作成するExcel(エクセル)マクロをご紹介しています。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。