VBAでフォルダ内のファイル数とフォルダ数をカウントしてExcelに出力

by Gene320

VBAを使うとフォルダ内のフォルダ数やファイル数をカウントすることができます。

今回は、フォルダ内のフォルダ件数やファイル件数を取得してエクセルへ出力するプログラムを紹介します。

・フォルダ内のフォルダ数とファイル数を取得

・Excelへ個数を書き込む

それでは以下で詳しく紹介していきます。

1 VBAで指定フォルダ内のサブフォルダ数・ファイル数をエクセルに出力
- 1.1 手順1. エクセルのセルB2に情報を取得したいフォルダパスを入力
- 1.2 手順2. VBAプログラムを実行（フォルダ数やファイル数をExcelに出力）
2 VBAのプログラムソース解説
3 Excel VBAについて詳しく理解したいなら
- 3.1 VBAの勉強方法
4 VBAを自分で書けるようになる
- 4.1 まずは無料でマクロを勉強してみる

VBAで指定フォルダ内のサブフォルダ数・ファイル数をエクセルに出力

今回は上記の画像のような結果が得られるようにプログラムを作っていきます。

以下で実行手順について説明します。

手順

手順1. エクセルのセルB2に情報を取得したいフォルダパスを入力

手順2. VBAプログラムを実行（フォルダ数やファイル数をExcelに出力）

なおこの手順はこのページで紹介する事例の場合のものです。

手順1. エクセルのセルB2に情報を取得したいフォルダパスを入力

まずエクセルファイルのセルB2にフォルダパス（情報を取得したいフォルダ）を入力します。

ここはフォルダを開いて[Alt] + [D]のショートカットキーで選択できるので、[Ctrl]+[C]でフォルダパスをコピーし、[Ctrl]+[V]でエクセルに貼り付けます。

セルB2にフォルダパスを入力しておかないと、本プログラムを実行してもエラーが出ます。

手順2. VBAプログラムを実行（フォルダ数やファイル数をExcelに出力）

VBAを実行します。これで、フォルダ内のファイルやサブフォルダの個数がエクセルに出力されます。（結果は以下の通り）

ボタンにVBAプログラムを登録

上記の画像では、VBAプログラムをボタンに登録しています。

ボタンにVBAプログラムを登録することで、ボタンを押下しプログラムを実行することができます。

ボタンをVBAプログラムを設定したい場合は、以下で動画も交えて設定方法を紹介しているので、そちらをご覧ください。

エクセルのボタンにマクロ登録｜色付け・削除の方法やボタンを押せないときの対処法まで

エクセルマクロを仕事で使うとき、ボタンを押してマクロを実行する方法は必ず知っておきたい技術です。実際、ボタンを押してマクロ実行できると、マクロを知らない人にも仕事を渡しやすくなります。そこで、この記事では以下の内容を […]

VBA入りのエクセルファイルをダウンロード

以下で紹介しているVBAプログラムをそのまま使いたい人は、以下のフォームからダウンロードできます。

登録したメールアドレスへ「VBAプログラムが含まれたエクセル」を送信します。

本プログラムの内容をそのまま使用可能です。ぜひお仕事にお役立てください。

読み込んでいます…

それでは、以下でプログラムについて詳細を説明します。

VBA作成前の2つの事前準備

ExcelでVBAを使うためにはいくつかの準備が必要です。

具体的には以下です。

1. ExcelでVBAを使うための事前準備

2. フォルダとファイルを扱うための事前準備

上記の2つに関して、以下で説明します。

1. ExcelでVBAを使うための事前準備

Excelで、以下の2つの準備をします。

1. Excelファイルを「.xlsm」として保存（「.xlsx」で保存しない）

2. 開発タブを追加

保存ファイルの拡張子変更、Excelの基本設定変更の2つです。

2つともで難しい作業はなく、それぞれ1分もあれば設定変更可能です。

上記に関しては、以下の記事で解説をしています。

エクセルマクロ使い方｜編集方法をVBA作成から保存のやり方まで解説

これからエクセルマクロを勉強しようとする人にとって、マクロの編集は一つのカベです。マクロというこれまで触ったことのないものを操作できるようになるのは決して簡単なことではありません。しかし順序良く学んでいけば、難しいも […]

もしVBAを使うための準備段階に不安がある人は上記をご覧ください。

この内容は以下の動画で紹介しています。

入門エクセルマクロの使い方｜マクロ作成から実行までを徹底解説

文字や画像だけで分かりづらい人は上記の動画をご覧ください。

2. フォルダとファイルを扱うための事前準備

VBAでフォルダやファイルを操作するためのプログラミングに入る前に、VBAの設定を変更しておく必要があります。

実はVBAのデフォルト設定の場合、フォルダやファイル操作はできません。

なぜなら、参照設定が変更だからです。参照設定とは、機能拡張させることです。

参照設定を変更することで、フォルダとファイルを操作できるようになります。

この記事で紹介するプログラムを使えるようにするには、以下の参照設定を変更します。

Microsoft Scripting Runtime

「Microsoft Scripting Runtime」にチェックを入れることで、添付ファイルを保存するフォルダを作成することができるようになります。

VBAの参照設定の方法

以下、具体的な設定方法を紹介します。

手順1.VBEを開いて頂いて、「ツール」→「参照設定」
手順2.Microsoft Scripting Runtimeのライブラリにチェックを入れて、OKをクリック

詳細はこちらの画像の通りです。

手順1.VBEを開いて頂いて、「ツール」→「参照設定」

手順2.Microsoft Scripting Runtimeのライブラリにチェックを入れて、OKをクリック

上記の設定をしていないと、本事例で紹介しているプログラムは動作しません。

必ずチェックを入れるようにします。

VBAのプログラムソース解説

今回紹介するプログラムの概要は以下です。

'プログラム0｜変数宣言の指定
Option Explicit

'プログラム1-1｜メインプログラム開始
Sub CountFoldersFiles()
    
    'プログラム1-2｜FileSystemObjectの設定
    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject

    'プログラム1-3｜シート設定
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    'プログラム1-4｜情報を取得するフォルダURLを取得
    Dim path As String
    path = ws.Range("B2").Value
    If fs.FolderExists(folderspec:=path) = False Then
        MsgBox ("正しいフォルダパスを入力してください")
        Exit Sub
    End If
        
    'プログラム1-5｜フォルダを取得
    Dim basefolder As Scripting.Folder
    Set basefolder = fs.GetFolder(path)
    
    'プログラム1-6｜変数設定
    Dim i As Long
    
    'プログラム1-7｜フォルダ内のフォルダを取得
    Dim myfolders As Scripting.Folders
    Set myfolders = basefolder.SubFolders
    Dim myfolder As Scripting.Folder
    For Each myfolder In myfolders
        ws.Range("A5").Offset(i, 0).Value = "フォルダ"
        ws.Range("B5").Offset(i, 0).Value = myfolder.Name
        ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)
        i = i + 1
    Next
    
    'プログラム1-8｜フォルダ内のファイルを取得
    Dim myfiles As Scripting.Files
    Set myfiles = basefolder.Files
    Dim myfile As Scripting.File
    For Each myfile In myfiles
        ws.Range("A5").Offset(i, 0).Value = fs.GetExtensionName(myfile)
        ws.Range("B5").Offset(i, 0).Value = myfile.Name
        ws.Range("C5").Offset(i, 0).Value = "0 (ファイルのため)"
        i = i + 1
    Next
    
    'プログラム1-9｜オブジェクト解放
    Set myfile = Nothing
    Set myfiles = Nothing
    Set myfolder = Nothing
    Set myfolders = Nothing
    Set basefolder = Nothing
    Set fs = Nothing
    
'プログラム10｜プログラム終了
End Sub

'プログラム2-1｜サブプログラム開始
Function Counter(path)
    
    Debug.Print path
    
    'プログラム2-2｜FileSystemObjectの設定
    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject
    
    'プログラム2-3｜フォルダを取得
    Dim basefolder As Scripting.Folder
    Set basefolder = fs.GetFolder(path)
        
    'プログラム2-4｜フォルダ内のフォルダを取得
    Dim myfolders As Scripting.Folders
    Set myfolders = basefolder.SubFolders
        
    'プログラム2-5｜フォルダ内のファイルを取得
    Dim myfiles As Scripting.Files
    Set myfiles = basefolder.Files
        
    'プログラム2-6｜フォルダ件数とファイル件数を出力
    Counter = "フォルダ：" & myfolders.Count & ", ファイル：" & myfiles.Count
    
    'プログラム2-7｜オブジェクト解放
    Set myfiles = Nothing
    Set myfolders = Nothing
    Set basefolder = Nothing
    Set fs = Nothing
    
'プログラム2-8｜サブプログラム終了
End Function

'プログラム0｜変数宣言の指定

Option Explicit

'プログラム1-1｜メインプログラム開始

Sub CountFoldersFiles()

'プログラム1-2｜FileSystemObjectの設定

Dim fs As Scripting.FileSystemObject

Set fs = New Scripting.FileSystemObject

'プログラム1-3｜シート設定

Dim ws As Worksheet

Set ws = Worksheets("Sheet1")

'プログラム1-4｜情報を取得するフォルダURLを取得

Dim path As String

path = ws.Range("B2").Value

If fs.FolderExists(folderspec:=path) = False Then

MsgBox ("正しいフォルダパスを入力してください")

Exit Sub

End If

'プログラム1-5｜フォルダを取得

Dim basefolder As Scripting.Folder

Set basefolder = fs.GetFolder(path)

'プログラム1-6｜変数設定

Dim i As Long

'プログラム1-7｜フォルダ内のフォルダを取得

Dim myfolders As Scripting.Folders

Set myfolders = basefolder.SubFolders

Dim myfolder As Scripting.Folder

For Each myfolder In myfolders

ws.Range("A5").Offset(i, 0).Value = "フォルダ"

ws.Range("B5").Offset(i, 0).Value = myfolder.Name

ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)

i = i + 1

'プログラム1-8｜フォルダ内のファイルを取得

Dim myfiles As Scripting.Files

Set myfiles = basefolder.Files

Dim myfile As Scripting.File

For Each myfile In myfiles

ws.Range("A5").Offset(i, 0).Value = fs.GetExtensionName(myfile)

ws.Range("B5").Offset(i, 0).Value = myfile.Name

ws.Range("C5").Offset(i, 0).Value = "0 (ファイルのため)"

i = i + 1

'プログラム1-9｜オブジェクト解放

Set myfile = Nothing

Set myfiles = Nothing

Set myfolder = Nothing

Set myfolders = Nothing

Set basefolder = Nothing

Set fs = Nothing

'プログラム10｜プログラム終了

End Sub

'プログラム2-1｜サブプログラム開始

Function Counter(path)

Debug.Print path

'プログラム2-2｜FileSystemObjectの設定

Dim fs As Scripting.FileSystemObject

Set fs = New Scripting.FileSystemObject

'プログラム2-3｜フォルダを取得

Dim basefolder As Scripting.Folder

Set basefolder = fs.GetFolder(path)

'プログラム2-4｜フォルダ内のフォルダを取得

Dim myfolders As Scripting.Folders

Set myfolders = basefolder.SubFolders

'プログラム2-5｜フォルダ内のファイルを取得

Dim myfiles As Scripting.Files

Set myfiles = basefolder.Files

'プログラム2-6｜フォルダ件数とファイル件数を出力

Counter = "フォルダ：" & myfolders.Count & ", ファイル：" & myfiles.Count

'プログラム2-7｜オブジェクト解放

Set myfiles = Nothing

Set myfolders = Nothing

Set basefolder = Nothing

Set fs = Nothing

'プログラム2-8｜サブプログラム終了

End Function

以下で詳しく説明しています。

プログラム0｜変数宣言の指定

Option Explicit

1	Option Explicit

「Option Explicit」とは、変数宣言を強制するためのものです。

変数宣言とは、「Dim XXX」のように変数を定義すること

これを入れておくと、変数を定義していない場合、エラーが出ます。

つまり、「Option Explicit」を入力しておくことで、たとえば「Dim i」をあらかじめ入力しないと、「i」という変数を使えません。

もし「Option Explicit」を入力しているのに、「Dim i」を書かずに「i = 1」と書くと、エラーメッセージが表示されます。

実は、この機能はあくまでオプションです。「Option Explicit」を入力しなくても、プログラムは動きます。

しかし、これを入れておくことで、変数の誤記によるエラーを防止することができます。

結果的に、プログラム作成速度が上がるので、「Option Explicit」を入力することを習慣化することをオススメします。

プログラム1-1｜メインプログラム開始

Sub CountFoldersFiles()

1	Sub CountFoldersFiles()

「Sub CountFoldersFiles()」のプログラムを開始することを意味します。

VBAではプロシージャという単位でプログラムを呼び出します。

プロシージャの構文は下記となっています。

Sub プロシージャ名()
    '実行プログラム
End Sub

Sub プロシージャ名()

'実行プログラム

End Sub

「Sub」で始まり「End Sub」で終わります。

「Sub XXXX」の「XXXX」の部分がプロシージャ名です。

このプロシージャ名はあらゆる文字（アルファベット、ひらがな、漢字、数字など）が使用可能です。

ただし、プロシージャ名の先頭は数字を入れるとエラーとなります。

あとで見たときに、「何のプログラムだったのか？」とならないようにするためです。

なお、「()」の中には何も記入されていません。これは引数なしという意味です。なお、プログラム2-1では引数を受け取ってプログラムを実行します。

初心者の内は、引数ということが分からなくてもVBAプログラムを書くことは可能です。

興味があれば、「VBA 引数」で検索して調べてみてください。

プログラム1-2｜FileSystemObjectの設定

    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject

1 2	Dim fs As Scripting.FileSystemObject Set fs = New Scripting.FileSystemObject

FileSystemObjectは、ファイルやフォルダを操作するときに使うオブジェクトです。

本事例ではFileSystemObjectをfsという変数として扱います。

変数fsは定義するだけではなく、「Set fs = New Scripting.FileSystemObject」と記入して使えるようになります。

これを忘れてしまうことが多いので、注意が必要です。

FileSystemObjectに関する注意点

参照設定にて、Microsoft Scripting Runtimeを設定に入れておく必要があります。

設定を忘れると動作しませんので、事前に設定を変更しておく必要があります。

なお、FileSystemObject以外にもフォルダを操作する方法はあります。しかしFileSystemObjectを使えば、ファイルとフォルダを両方操作できるので、覚えることが少なくて済みます。

細かいことを覚えるのが面倒な人は、ファイルやフォルダを操作するときはFileSystemObjectを使うと覚えておくといいです。

プログラム1-3｜シート設定

    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")

1 2	Dim ws As Worksheet Set ws = Worksheets("Sheet1")

変数wsをWorksheet(ワークシート)型で定義し、Excelのシート「Sheet1」を設定します。

プログラム1-4｜情報を取得するフォルダURLを取得

    Dim path As String
    path = ws.Range("B2").Value
    If fs.FolderExists(folderspec:=path) = False Then
        MsgBox ("正しいフォルダパスを入力してください")
        Exit Sub
    End If

Dim path As String

path = ws.Range("B2").Value

If fs.FolderExists(folderspec:=path) = False Then

MsgBox ("正しいフォルダパスを入力してください")

Exit Sub

End If

変数pathをString(文字列)型で定義します。

セルB2にはフォルダパス(情報を取得したいフォルダ)があらかじめ入力されているため、その値をpathとして取得します。

しかしセルB2にフォルダパスが入力されていなかったり、パスが正しくなかったりする場合があります。

そこで「If fs.FolderExists(folderspec:=path) = False Then」で、もしセルB2の値がフォルダパスでないとき、エラーメッセージを表示するようにします。

エラーメッセージ表示後に、「Exit Sub」でプログラムを強制終了させます。

プログラム1-5｜フォルダを取得

    Dim basefolder As Scripting.Folder
    Set basefolder = fs.GetFolder(path)

1 2	Dim basefolder As Scripting.Folder Set basefolder = fs.GetFolder(path)

変数basefolderをScripting.Folderとして扱います。

「Set basefolder = fs.GetFolder(path)」で、basefolderにpath(プログラム4)で設定したフォルダパスを設定します。

これでpath(セル2で指定したフォルダ)の中のサブフォルダやファイルを取得できるようになります。

プログラム1-6｜変数設定

    Dim i As Long

1	Dim i As Long

変数iをLong(整数)型で設定します。

この「i」はエクセルに情報を出力するときに、行数のカウンターとして使用します。

プログラム1-7｜フォルダ内のフォルダを取得

    Dim myfolders As Scripting.Folders
    Set myfolders = basefolder.SubFolders
    Dim myfolder As Scripting.Folder
    For Each myfolder In myfolders
        ws.Range("A5").Offset(i, 0).Value = "フォルダ"
        ws.Range("B5").Offset(i, 0).Value = myfolder.Name
        ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)
        i = i + 1
    Next

Dim myfolders As Scripting.Folders

Set myfolders = basefolder.SubFolders

Dim myfolder As Scripting.Folder

For Each myfolder In myfolders

ws.Range("A5").Offset(i, 0).Value = "フォルダ"

ws.Range("B5").Offset(i, 0).Value = myfolder.Name

ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)

i = i + 1

セルB2で指定したフォルダ内に含まれるフォルダを取得していきます。取得した情報としては以下を出力します。

A列：フォルダ
B列：フォルダ名
C列：件数(フォルダ内のサブフォルダ数、ファイル数)

この3つの情報のうち、C列の件数はFunctionプロシージャであるサブプログラム2-1で取得する値を出力させます。

C列の件数を取得

    Dim myfolders As Scripting.Folders
    Set myfolders = basefolder.SubFolders
    Dim myfolder As Scripting.Folder
    For Each myfolder In myfolders
        ws.Range("A5").Offset(i, 0).Value = "フォルダ"
        ws.Range("B5").Offset(i, 0).Value = myfolder.Name
        ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)
        i = i + 1
    Next

7	ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)

上記のプログラムは、C列に「Counter(myfolder.path)」を出力するという意味です。

このCounterはプログラム2-1を指します。

'プログラム1-7｜フォルダ内のフォルダを取得(7行目)
ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)

'プログラム2-1｜サブプログラム開始
Function Counter(path)

'プログラム1-7｜フォルダ内のフォルダを取得(7行目)

ws.Range("C5").Offset(i, 0).Value = Counter(myfolder.path)

'プログラム2-1｜サブプログラム開始

Function Counter(path)

myfolder.pathをプログラム2-1に引き継ぎ、pathとして実行させることを意味します。

そしてプログラム2-1~プログラム2-8で処理を行った結果をプログラム1-7に返して、C列に値を出力します。

「プログラム1-7」のmyfolder.path = 「プログラム2-1」のpath

ここでは引き継ぐ要素は1つです。そのため、引き継ぐ要素数に過不足があるとエラーが出ます。

たとえば引き継ぐ要素が0や4だとプログラムが停止します。

引き継ぐ値(引数)の数を間違えないようにします。

プログラム1-8｜フォルダ内のファイルを取得

    Dim myfiles As Scripting.Files
    Set myfiles = basefolder.Files
    Dim myfile As Scripting.File
    For Each myfile In myfiles
        ws.Range("A5").Offset(i, 0).Value = fs.GetExtensionName(myfile)
        ws.Range("B5").Offset(i, 0).Value = myfile.Name
        ws.Range("C5").Offset(i, 0).Value = "0 (ファイルのため)"
        i = i + 1
    Next

Dim myfiles As Scripting.Files

Set myfiles = basefolder.Files

Dim myfile As Scripting.File

For Each myfile In myfiles

ws.Range("A5").Offset(i, 0).Value = fs.GetExtensionName(myfile)

ws.Range("B5").Offset(i, 0).Value = myfile.Name

ws.Range("C5").Offset(i, 0).Value = "0 (ファイルのため)"

i = i + 1

セルB2で指定したフォルダ内に含まれるファイルを取得していきます。取得した情報としては以下を出力します。

A列：拡張子：xlsm, docx, txtなど
B列：ファイル名
C列：0 (ファイルのため) ：対象がフォルダではないため、必ず0となる

上記をエクセルに出力します。

プログラム1-9｜オブジェクト解放

    Set myfile = Nothing
    Set myfiles = Nothing
    Set myfolder = Nothing
    Set myfolders = Nothing
    Set basefolder = Nothing
    Set fs = Nothing

Set myfile = Nothing

Set myfiles = Nothing

Set myfolder = Nothing

Set myfolders = Nothing

Set basefolder = Nothing

Set fs = Nothing

フォルダとファイルに関するオブジェクトを解放します。

VBAの場合、このプログラムがなくてもエラーは表示されません。

しかし今後、他のプログラミング言語を学んでいくと、この解放作業が求められることは少なくありません。

そのため、お作法として身に着けておくことをお勧めします。

プログラム1-10｜プログラム終了

End Sub

End Sub

プログラム1-1と対になるプログラムで、プログラム終了させるための記述です。

「End Sub」を読み込むと、プログラムが終了します。

プログラムの解説はここまでです。

プログラム2-1｜サブプログラム開始

Function Counter(path)

1	Function Counter(path)

Function Counter(path)でサブプログラムを実行します。このとき1つの引数を受け取ります。

1. path：情報を取得するフォルダパス

このプログラム2-1は、プログラム1-7から呼び出されます。

プログラム1-7の「myfolder.path」をpathとして取得します。

pathとして取得する値は、以下のとおりです。

Function Counter(path)
    Debug.Print path

'セルB2で指定したフォルダに含まれるサブフォルダの個数だけサブプログラムが実行される
>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\1.Excel
>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\2.Outlook
>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\3.Word
>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\4.Powerpoint
>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\5.Access
>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\6.その他

Function Counter(path)

Debug.Print path

'セルB2で指定したフォルダに含まれるサブフォルダの個数だけサブプログラムが実行される

>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\1.Excel

>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\2.Outlook

>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\3.Word

>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\4.Powerpoint

>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\5.Access

>>>D:\Website_パソコンスキルの教科書\305_VBA_フォルダ\07_フォルダ数をファイル数をカウントして出力\VBA\6.その他

上記のとおり、プログラム1-7の「myfolder.path」をpathとして取得し、その値は絶対パスを受け取っています。

なおプログラム1-4で取得したセルB2のフォルダに含まれるサブフォルダの数だけ、このサブプログラムが実行されます。ここではサブフォルダが6個あるため、サブプログラムは6回実行されています。

プログラム2-2｜FileSystemObjectの設定

    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject

1 2	Dim fs As Scripting.FileSystemObject Set fs = New Scripting.FileSystemObject

FileSystemObjectは、ファイルやフォルダを操作するときに使うオブジェクトです。

プログラム1-2でも同じ記述がありますが、サブプログラムの中で使用するFileSystemObjectは別で設定する必要があります。

よって面倒ですが、あらためてFileSystemObjectを設定します。

プログラム2-3｜フォルダを取得

    Dim basefolder As Scripting.Folder
    Set basefolder = fs.GetFolder(path)

1 2	Dim basefolder As Scripting.Folder Set basefolder = fs.GetFolder(path)

変数basefolderをScripting.Folderとして扱います。

「Set basefolder = fs.GetFolder(path)」で、basefolderにpath(プログラム2-1で引き継いだ値)で設定したフォルダパスを設定します。

プログラム2-4｜フォルダ内のフォルダを取得

    Dim myfolders As Scripting.Folders
    Set myfolders = basefolder.SubFolders

1 2	Dim myfolders As Scripting.Folders Set myfolders = basefolder.SubFolders

「Dim myfolders As Scripting.Folders」で、変数myfoldersをScripting.Foldersとして扱います。(複数形になっているのが大切です)

「Set myfolders = basefolder.SubFolders」で、サブフォルダに含まれるフォルダをまとめて取得します。

プログラム2-5｜フォルダ内のファイルを取得

    Dim myfiles As Scripting.Files
    Set myfiles = basefolder.Files

1 2	Dim myfiles As Scripting.Files Set myfiles = basefolder.Files

「Dim myfiles As Scripting.Files」で、変数myfilesをScripting.Filesとして扱います。

「Set myfiles = basefolder.Files」で、サブフォルダに含まれるファイルをまとめて取得します。

プログラム2-6｜フォルダ件数とファイル件数を出力

    Counter = "フォルダ：" & myfolders.Count & ", ファイル：" & myfiles.Count

1	Counter = "フォルダ：" & myfolders.Count & ", ファイル：" & myfiles.Count

Counterにフォルダ件数とファイル件数を設定します。

・myfolders.Count：プログラム2-4で取得したフォルダパスに含まれる「サブフォルダの数」

・myfiles.Count：プログラム2-5で取得したフォルダパスに含まれる「ファイルの数」

プログラム2-4で設定した「myfolders」のCountというプロパティでサブフォルダ数を取得します。

またプログラム2-5で設定した「myfiles」のCountというプロパティでファイル数を取得します。

そして「Counter = “フォルダ：X , ファイル：Y”」という形で、Counterをプログラム1-7に返します。

そうすると、C列に「フォルダ：X , ファイル：Y」と出力されます。

プログラム2-7｜オブジェクト解放

    Set myfiles = Nothing
    Set myfolders = Nothing
    Set basefolder = Nothing
    Set fs = Nothing

Set myfiles = Nothing

Set myfolders = Nothing

Set basefolder = Nothing

Set fs = Nothing

ここまで使用してきたFileSystemObjectに関するオブジェクトを解放します。

VBAの場合、このプログラムがなくてもエラーは表示されません。

しかし今後、他のプログラミング言語を学んでいくと、この解放作業が求められることは少なくありません。

そのため、ここでお作法として身に着けておくことをお勧めします。

プログラム2-8｜プログラム終了

End Sub

End Sub

プログラム2-1と対になるプログラムで、プログラム終了させるための記述です。

「End Sub」を読み込むと、プログラムが終了します。

プログラムの解説はここまでです。

Excel VBAについて詳しく理解したいなら

VBAを活用すると、仕事を効率化できる幅を広げることができます。

たとえば私が実際にVBAを活用して効率化してきた作業は以下の記事で紹介しています。

興味がある人は以下の記事もご覧ください。

エクセルマクロVBA「できること」は何？100事例で自動化を解説

エクセルマクロVBAを使えば面倒な仕事を自動化して、作業をエクセルに処理させることができます。しかし、エクセルマクロと聞いてもそもそも何か分からない人もいたり、どのようなことができるのか知らなかったりする人は多いです。 […]

動画でも解説しています。

エクセルマクロVBAで出来ることを15の事例で紹介｜日常業務をラクにするヒントを見つけよう！

(音声が小さいので、ボリュームを上げてご覧いただければと思います)

VBAの勉強方法

私はプログラミング初心者からVBAを勉強を始めて少しずつレベルアップしていきました。

成長の過程は以下で紹介しています。

→私のVBA習得の道のり（10ヶ月でVBA取得するまで）

学習の過程では、意識すべきポイントがあります。

特に独学の場合だと、勉強を優先してしまい、肝心な実践を疎かにしがちです。

私の経験では、実践から逆算した勉強が必要だと考えています。

目指すべきは会社でお金をもらいながら勉強することです。

要はVBAを仕事の一つとして上司に認めてもらうのです。

そうすればわざわざ高いお金を払って勉強をする必要がなくなります。

しかも作業を自動化して、会社やチームに貢献しつつ、自らのスキルアップできます。

そのために必要な考え方を以下で紹介しています。

→VBAを作成するときに覚えておきたい18のコツ

とはいえ、プログラミング初心者でVBAについて知識ゼロの人もいるはずです。

いきなり会社でVBAで使うことさえ、とてつもなくハードルが高く見えてしまうものです。

その場合は、VBAの基本について学ぶ必要があります。

たとえば車の運転も慣れてしまえば、たいしたことではありません。

しかし教習所で運転の基本を学び、免許を取得することで、公道で運転できるようになります。

VBAも同じです。VBAに免許はありませんが、まずは基本を学ばないことには会社で使えるレベルにはなりません。

実際に私もプログラミング初心者のときは、動画を見たり書籍を読んだりして勉強しました。

今はオンラインの教材で無料で学習できるものも多いです。

ExcelマクロVBAのオンライン通信講座おすすめ5選｜評判や内容

「ExcelマクロVBAやAccessVBAを学びたいから、オンラインの通信講座を試そう！」　こう考えて、ウェブで調べてみると、いくつも種類があり、どれを選べばいいのか判断に迷います。しかし、初心者には有料のオンライン […]

上記のリンクでは、私の経験から勉強にオススメの教材を紹介しています。

興味がある人はご覧ください。

VBAを自分で書けるようになる

さて、本記事で紹介したマクロを利用すれば、作業の自動化が可能になります。

しかしデメリットもあります。それはカスタムできないことです。

なぜなら、色々な要望が増えるからです。

この動画を見たとき、「もっと○○ができるのでは？」や「ここはなんとかならないのか」と感じる人は少なくないはずです。

例えば、「他の条件を付け加えたい」や「日付毎に条件を変えたい」といった要望が出るかもしれません。

このような要望を満たすには、マクロを勉強して自力でマクロを編集できるようになる必要があります。

もし、自力でマクロを編集できるようになれば、今より仕事の効率はグッと上がります。

実際、私も自力でマクロを書けるようになってからは、仕事の生産性が一気に上がりました。

他の人が30分～1時間かけて行う仕事が、ボタン一つで終わらせることができるようになったのです。

その結果、周囲からの信頼も増し、仕事で高い評価を得られるようになりました。

ただ、要望に応えるようになるためには、マクロを学ぶ必要があります。

まずは無料でマクロを勉強してみる

ウェブや書籍で勉強すれば、マクロを習得できると考えている人は少なくありません。

しかし、仕事で使えるマクロを習得したいなら、仕事で使える部分に特化した教材で学ぶことをお勧めします。

なぜなら、ウェブや書籍には仕事に関係しない部分まで提供していることが多いからです。

例えば、マクロ初心者なのに配列を学ぼうとする人がいます。実は配列なしでも仕事で使えるマクロを書くことは可能です。

しかし、マクロ初心者ほど「全ての知識が必要だ」と考えて、無駄な学習に時間を使ってしまうのです。詳しくは、こちらの記事で紹介しています。

エクセルマクロVBAのプログラムやコードは全てを覚える必要はない

エクセルマクロVBAを勉強している人の中には、自分の知らないプログラムやコードを必死で理解しようとする人がいます。しかし、仕事で使えるエクセルマクロを習得するためには、プログラムやコードをすべて覚える必要はありません。 […]

エクセルマクロVBAを独学で習得できるか？自学の限界と挫折する理由

エクセルマクロ習得には継続的な学習が必須です。とくにマクロ初心者が独学で習得するには、少なくとも数ヶ月は地道に学習を続ける必要があります。ただ忙しい社会人の場合、毎日30分の勉強時間でさえ確保するのが難しい人もいます。 […]

そこで、私がお勧めするのは仕事に直結するマクロ教材です。とくにお勧めするのは、こちらの無料オンライン動画です。

なぜなら、仕事に直結する部分に絞って、エクセルマクロを学ぶことができるからです。

マクロの作り方・考え方から解説しているので、教材をしっかり学べばここで紹介したマクロをゼロから書けるようになります。

マクロ初心者が、仕事に直結したいマクロを学ぶなら、まずはこちらの無料オンライン動画を試すのがいいです。

興味がある人は、まずは無料でエクセルマクロの勉強を始めてみてください。

もっと学びたいと感じたら、さらに深く勉強をしてみることをお勧めします。

VBAで指定フォルダ内のサブフォルダ数・ファイル数をエクセルに出力

手順1. エクセルのセルB2に情報を取得したいフォルダパスを入力

手順2. VBAプログラムを実行（フォルダ数やファイル数をExcelに出力）

ボタンにVBAプログラムを登録

VBA入りのエクセルファイルをダウンロード

VBA作成前の2つの事前準備

1. ExcelでVBAを使うための事前準備

2. フォルダとファイルを扱うための事前準備

VBAの参照設定の方法

手順1.VBEを開いて頂いて、「ツール」→「参照設定」

手順2.Microsoft Scripting Runtimeのライブラリにチェックを入れて、OKをクリック

VBAのプログラムソース解説

プログラム0｜変数宣言の指定

プログラム1-1｜メインプログラム開始

プログラム1-2｜FileSystemObjectの設定

FileSystemObjectに関する注意点

プログラム1-3｜シート設定

プログラム1-4｜情報を取得するフォルダURLを取得

プログラム1-5｜フォルダを取得

プログラム1-6｜変数設定

プログラム1-7｜フォルダ内のフォルダを取得

C列の件数を取得

プログラム1-8｜フォルダ内のファイルを取得

プログラム1-9｜オブジェクト解放

プログラム1-10｜プログラム終了

プログラム2-1｜サブプログラム開始

プログラム2-2｜FileSystemObjectの設定

プログラム2-3｜フォルダを取得

プログラム2-4｜フォルダ内のフォルダを取得

プログラム2-5｜フォルダ内のファイルを取得

プログラム2-6｜フォルダ件数とファイル件数を出力

プログラム2-7｜オブジェクト解放

プログラム2-8｜プログラム終了

Excel VBAについて詳しく理解したいなら

VBAの勉強方法

VBAを自分で書けるようになる

まずは無料でマクロを勉強してみる

Footer

人気記事

サイト運営情報

パソコンスキル

仕事術