本記事では「VBAでフォルダ作成をする方法」を解説していきます。
フォルダ作成の方法には下の２つがあります。
・FileSystemObjectオブジェクト
・Foldersコレクション
では、上の２つでフォルダを作成していきましょう。
FileSystemObjectオブジェクトを使ったフォルダ作成
まずはFileSystemObjectオブジェクトでのフォルダ作成のコードです。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Sub Sample1() Dim myPath As String Dim fso As Object myPath = "C:\Users\username\Desktop\test" '--- フォルダを作成した場所のパス Set fso = CreateObject("Scripting.FileSystemObject") '--- インスタンス化 fso.CreateFolder (myPath & "\sample1") '--- 新規フォルダー作成 Set fso = Nothing End Sub |
9行目で「フォルダを作成する場所のパス」と「作成するフォルダの名前」を一気に指定しています。
コレで指定した場所にフォルダが作成されます。
Foldersコレクションを使ったフォルダ作成
つぎにFoldersコレクションでのフォルダ作成です。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub Sample2() Dim myPath As String Dim fso As Object Dim myFolders As Object myPath = "C:\Users\username\Desktop\test" Set fso = CreateObject("Scripting.FileSystemObject") '--- インスタンス化 Set myFolders = fso.GetFolder(myPath).SubFolders myFolders.Add "sample2" '--- 新規フォルダー作成 Set myFolders = Nothing End Sub |
こちらのやり方だと、10行目のようにFoldersの取得が必要になります。
ですが、11行目のaddメソッドの引数では「作成したいフォルダ名のみ」の記述で済みます。
〇おすすめのVBA参考書ランキング！
1位 | 2位 | 3位 |
|---|---|---|
| Excel VBA 脱初心者のための集中講座 | パーフェクトExcel VBA | ExcelVBA 実戦のための技術 |
| 初心者～中級者 | 中級者 | 初心者～中級者 |
| 【初心者が手に取るべき参考書】 ・「書籍＋動画」で圧倒的に理解しやすい入門書になっている。 ・丁寧で詳しい解説でボリューム感がある。 | 【より深い理解をしたい方にお勧めな参考書】 ・テーマに対して丁寧な解説・適度な深さで解説されている。 ・幅広くテーマを扱っていることから、基礎知識をあらかた網羅できる。 | 【入門書と一緒に買うべき参考書】 ・１つ１つのテーマを経験豊富なエンジニア視点で解説してくれている。 ・実践的で効果的なコードの書き方が理解できる。 |
| 【読んでみた一言】 正直、入門書はコレ一冊でいいかも。あとは中級者用の参考書に進むべし。 | 【読んでみた一言】 深く書かれているが、少々専門的に書かれていることから、読む前に数冊の入門書を読破したほうが良い。 | 【読んでみた一言】 基礎知識を持っている人が次のレベルに達するきっかけを与えてくれる参考書である。 |
スポンサーリンク
