【VBAスキル】エクセルを使って大量のフォルダを一括作成 !

f:id:yshgs_elec:20200612221636j:plain

 

「データを仕分けするために大量のフォルダを作成しないといけない。でもひとつづつ作成して名前を変えるのはものずごく時間がかかりそうだ。」

 

この記事ではこんな悩みを解決します。

 

意外と知られていないのですが、エクセルでフォルダを作成したり、ファイルをコピーしたりすることは簡単にできます。

 

というわけでこの記事では、エクセルに備わっているVBAと呼ばれるプログラミングを用いて、任意の場所に任意の名前のフォルダを大量に一括作成する方法をご紹介します。

 

スポンサーリンク

VBA使用環境の構築

 簡単にできるとはいえ、まずはエクセルでVBAを使えるようにしなければ話になりません。

まずは以下の記事を参考にVBAの使い方をマスターしましょう。

www.higashisalary.com

 

すでにVBAの使用方法をご存じの方は、以下の手順に進みましょう。

 

スポンサーリンク

新規作成フォルダ名を指定するエクセルファイルの編集

本文今回はA2セルに指定したフォルダの中にA4以降のセルに記入されている名前のフォルダを作成していきます。

私の場合はデスクトップ上にある【Base_Folder】というフォルダの中に【*売上記録】というフォルダを作成していきます。

f:id:yshgs_elec:20200801225655j:plain

 

下準備はたったのこれだけ。

今回は12行目までしか記入していませんが、空欄を挟まなければ何行書いていても問題ありません

 

次はいよいよコードの作成です。

スポンサーリンク

フォルダ一括作成のコード作成

エクセルファイルの編集が終わったらVisual Basicを開き、以下のプログラムコードをコピペしましょう。

Sub make_folder()
'使用する変数の型を宣言
Dim base_fol As String
Dim fol_name As String
Dim fol_dir As String
Dim new_fol_name As String
Dim i As Integer

'実際の処理開始 base_fol = Cells(2, 1) i = 0 Do Until Cells(4 + i, 1) = "" fol_name = Cells(4 + i, 1) new_fol_dir = base_fol & "\" & fol_name new_fol_name = Dir(new_fol_dir, vbDirectory) If new_fol_name = "" Then MkDir new_fol_dir Else End If i = i + 1 Loop End Sub

 

スポンサーリンク

プログラムの実行⇒結果確認

コードの記入が終わったら実際にプログラムを実行してましょう。

Bisual BasicのWindowを閉じ、

開発タブ⇒マクロ⇒make_folderを選択⇒実行

でマクロを実行できます。 

 

いざ実行!!

 

マクロを実行した結果、以下のように、エクセルで指定した【Base_Folder】というフォルダの中に【*売上記録】というフォルダを作成されています。

今回はたったの9つのフォルダ作成しかしていませんが、A列に記載さえされていれば何個でも一瞬でフォルダを作成することが可能です。

 

f:id:yshgs_elec:20200801230336j:plain

 

 

スポンサーリンク

終わりに

というわけで今回はエクセルを使ってフォルダを大量作成する方法をご紹介しました。

今回は9つだけのフォルダ作成だったので、手作業でもすぐに終わるとは思いますが、これは何十、何百となれば時間がいくらあってもたりないでしょう。

ぜひ今回のスキルを習得し、業務を効率化していきましょう。

 

このブログでは、エクセルの他にも様々なプログラミングスキルを紹介しています。

 

プログラミングで効率化ができれば、あなたの業務に大きな余裕が生まれてきます。

そして余裕ができれば新たなことにチャレンジできる時間が出来ます。

 

そうなれば仕事が楽しくなってくるはずです!

ぜひ他の記事も読んでいただき、スキルアップしていきましょう!

 

最後に・・・

この記事が役に立ったという方は、ぜひ応援よろしくお願いします。

 ↓ 応援ボタン

にほんブログ村 IT技術ブログ VBAへ
にほんブログ村

 

それではまた!

コメント

タイトルとURLをコピーしました