Excel VBAでオブジェクト指向プログラミング（GetDetailsOf編）

2021-10-082024-01-05

■GetDetailsOfメソッドを利用したExcelツール

ファイルの情報を表示するツールを作りたい場合、基本的な情報であればFileSystemObject(FSO)(※)で取得可能ですが、GetDetailsOfメソッドを利用すると、より多くの情報を取得できます。

GetDetailsOfメソッドは、Shellオブジェクトの下位オブジェクト（サブクラス）である、Folderオブジェクトに実装されたメソッドの1つです。

(※)FSOの詳細については、Excel VBAでオブジェクト指向プログラミング（FSO編）を参照して下さい。

■Shellオブジェクトとは

ShellオブジェクトはMicrosoftから提供されている、Windowsシェルを利用するためのオブジェクトで、さまざまな下位オブジェクト（サブクラス）やメソッドがありますが、本稿ではShellオブジェクトとFolderオブジェクトに絞って説明します。
⇒詳細はMicrosoftのサイト（Shell(シェル)オブジェクト）を参照して下さい。

Shellオブジェクトのメソッド

Shellオブジェクトで提供されているメソッドは、下表の通りです。

Folderオブジェクトのメソッド

Folderオブジェクトは、ShellオブジェクトのNameSpaceメソッドを使用し、「shell.NameSpace(フォルダのパス)」のようにして作成します。
Folderオブジェクトで提供されているメソッドは、下表の通りです。

GetDetailsOfメソッドを使用するための事前準備

GetDetailsOfメソッドを使用するための事前準備は、以下の3ステップです。
⇒オブジェクトを使用するための事前準備とオブジェクトブラウザによる調査方法については、Excel VBAでオブジェクト指向プログラミング（事前準備編）を参照して下さい。

①ライブラリの参照設定
Visual Basic Editor(VBE)のファイルメニューから[ツール]-[参照設定]を選択し、参照設定ダイアログでMicrosoft Shell Controls And Automationのチェックボックスにチェックを入れ、[OK]ボタンを押下。

②オブジェクト変数の定義
プログラムの宣言部でオブジェクト変数を定義。

1. Dim shell, folder As Object

③インスタンスの生成
プログラムの処理部でインスタンスを生成。

1. Set shell = New Shell32.shell
2. Set folder = shell.Namespace(“C:\work")
3. 'ここにGetDetailsOfメソッドを使用した処理を記述
4. Set folder = Nothing
5. Set shell = Nothing

（参考）「Set shell = New Shell32.shell」の部分を「Set shell = CreateObject(“Shell.Application")」と記述すれば、ステップ①（ライブラリの参照設定）は不要です。

GetDetailsOfメソッドの使用方法

GetDetailsOfメソッドの書式

GetDetailsOfメソッドは以下のように定義されていますので、アイテム（ファイル）とiColumn番号を引数として「folder.GetDetailsOf(vItem, iColumn)」のように記述すれば、結果を文字列型で受け取ることができます。
引数の詳細ついては、次項で説明します。

1. Function GetDetailsOf(vItem, iColumn As Long) As String

vItem引数

vItem引数は情報を取得したいファイルを指定する引数ですが、FolderItemオブジェクトを指定する必要があるため、FolderオブジェクトのParseNameメソッドを使用して「folder.ParseName(ファイル名)」のように指定します。
なお、vItem引数に空値を指定すると、iCulumn番号に対応する項目名を取得できます。

iColumn引数

iColumn引数には、取得したい情報のiColumn番号を整数で指定します。
MicrosoftのサイトでiColumn番号について調べてみると、「シェルビューに表示される０から始まる列番号」というように説明されています。
エクスプローラでファイルの一覧を表示している時、ファイルメニューから[表示]-[詳細表示の設定]を指定すると、表示する項目を選択することができますが、あの項目を指定するための番号がiColumn番号です。
なお、Windowsのバージョンアップに伴って項目が増えているため、Windowsのバージョンによって対応するiColumn番号が異なります。

使用しているWindowsのiColumn番号を一覧表示するExcelツール

行番号11でvItem引数に空値を指定してGetDetailsOfメソッドを実行し、iCulumn番号に対応する項目名を取得しています。

1. Dim sht, shell, folder As Object
2. Dim i As Integer
4. Private Sub Sample1()
5.     Set sht = ActiveSheet
6.     Set shell = New Shell32.shell
7.     Set folder = shell.Namespace(“C:\work")
8.     sht.Cells.Clear
9.     For i = 0 To 511
10.         sht.Cells(i + 1, 1) = i
11.         sht.Cells(i + 1, 2) = folder.GetDetailsOf(“", i)
12.     Next i
13.     Set folder = Nothing
14.     Set shell = Nothing
15. End Sub

指定したフォルダの直下にある音楽ファイルの一覧を表示するExcelツール

指定したフォルダの直下にあるファイルのうち、音楽ファイル（ここでは拡張子がmp3,m4a,wmaのファイル）について、「アルバム名」「トラック番号」「アーティスト名」「曲名」を一覧にして表示するツールです。
⇒このプログラムを作成した環境はWindows10ですので、各項目のiColumn番号は14,26,13,21になります。

行番号12のFor Eachでは、FolderオブジェクトのItemsメソッドでFolderItemsコレクションを取得し、そのコレクションからFolderItemオブジェクト（ファイル）を取得しています。
また、行番号19～22ではGetDetailsOfメソッドを使用して、「アルバム名」「トラック番号」「アーティスト名」「曲名」を取得しています。

1. Dim sht, shell, folder, item As Object
2. Dim ext As String
3. Dim pos, cnt As Integer
5. Private Sub Sample2()
6.     Set sht = ActiveSheet
7.     Set shell = New Shell32.shell
8.     Set folder = shell.Namespace(“C:\work")
9.     sht.Cells.Clear
10.     cnt = 0
12.     For Each item In folder.Items
13.         pos = InStrRev(item.Name, “.")
14.         If pos > 0 Then
15.             ext = LCase(Mid(item.Name, pos + 1))
16.             If (ext = “mp3") Or (ext = “m4a") Or (ext = “wma") Then
17.                 cnt = cnt + 1
18.                 sht.Cells(cnt, 1) = item.Name
19.                 sht.Cells(cnt, 2) = folder.GetDetailsOf(folder.ParseName(item.Name), 14)
20.                 sht.Cells(cnt, 3) = folder.GetDetailsOf(folder.ParseName(item.Name), 26)
21.                 sht.Cells(cnt, 4) = folder.GetDetailsOf(folder.ParseName(item.Name), 13)
22.                 sht.Cells(cnt, 5) = folder.GetDetailsOf(folder.ParseName(item.Name), 21)
23.             End If
24.         End If
25.     Next item
27.     Set item = Nothing
28.     Set folder = Nothing
29.     Set shell = Nothing
30. End Sub

FSOを使用して指定したフォルダの直下にある音楽ファイルの一覧を表示するExcelツール

前項のサンプルプログラムをFSOを使用して書き換えたものです。

行番号13でFSOを使用してFileオブジェクトを取得し、行番号20～23で「アルバム名」「トラック番号」「アーティスト名」「曲名」を取得しています。
ここで紹介しているサンプル・プログラムは、「指定したフォルダの直下」にあるファイルに限定していますが、FSOを使用している部分を少し書き換えれば、サブフォルダも含めて再帰的に処理することもできます。
⇒FSOの詳細については、Excel VBAでオブジェクト指向プログラミング（FSO編）を参照して下さい。

1. 1. Dim sht, shell, folder, fso, file As Object
   2. Dim ext As String
   3. Dim pos, cnt As Integer
   5. Private Sub Sample3()
   6.     Set sht = ActiveSheet
   7.     Set shell = New Shell32.shell
   8.     Set folder = shell.Namespace(“C:\work")
   9.     Set fso = New FileSystemObject
   10.     sht.Cells.Clear
   11.     cnt = 0
   13.     For Each file In fso.GetFolder(“C:\work").files
   14.         pos = InStrRev(file.Name, “.")
   15.         If pos > 0 Then
   16.             ext = LCase(Mid(file.Name, pos + 1))
   17.             If (ext = “mp3") Or (ext = “m4a") Or (ext = “wma") Then
   18.                 cnt = cnt + 1
   19.                 sht.Cells(cnt, 1) = file.Name
   20.                 sht.Cells(cnt, 2) = folder.GetDetailsOf(folder.ParseName(file.Name), 14)
   21.                 sht.Cells(cnt, 3) = folder.GetDetailsOf(folder.ParseName(file.Name), 26)
   22.                 sht.Cells(cnt, 4) = folder.GetDetailsOf(folder.ParseName(file.Name), 13)
   23.                 sht.Cells(cnt, 5) = folder.GetDetailsOf(folder.ParseName(file.Name), 21)
   24.             End If
   25.         End If
   26.     Next file
   28.     Set file = Nothing
   29.     Set fso = Nothing
   30.     Set folder = Nothing
   31.     Set shell = Nothing
   32. End Sub

Windowsのバージョンを確認する方法

前述した通り、iColumn番号はWindowsのバージョンによって異なりますので、バージョンの異なる環境でも動作するようにツールを作成するためには、Windowsのバージョンを判定したうえ、指定するiColumn番号を変える必要があります。

Excelの機能を使用した確認方法

ApplicationオブジェクトのOperatingSystemプロパティで、Windowsのバージョンを取得できます。
このプロパティで取得できるバージョンは、通称「NTバージョン」と呼ばれるもので、基本的には下表の通りですが、Excelのバージョンによって戻り値が変ったりするため、注意が必要です。

WMIを使用した確認方法

WMI(Windows Management Instrumentation)はMicrosoftから提供されている、Windowsのシステム情報を利用するためのオブジェクトです。
⇒詳細はMicrosoftのサイト（WMI(Windows Management Instrumentation)）を参照して下さい。

ここではWindowsのバージョンを取得するためのサンプルプログラムをご紹介します。

①ライブラリの参照設定
Visual Basic Editor(VBE)のファイルメニューから[ツール]-[参照設定]を選択し、参照設定ダイアログで
Microsoft WMI Scripting Vx.x Libraryのチェックボックスにチェックを入れ、[OK]ボタンを押下。

（参考）サンプル・プログラムの行番号4「Set locator = New WbemScripting.SWbemLocator」の部分を
「Set locator = CreateObject(“WbemScripting.SWbemLocator")]と記述すれば、ライブラリの参照設定は不要です。

②サンプル・プログラム
行番号9の処理を実行すると、Windowsのバージョンが「Microsoft Windows 10 Home」のような形式で取得できます。

1. Dim locator, service, osset, os As Object
3. Private Sub Sample4()
4.     Set locator = New WbemScripting.SWbemLocator
5.     Set service = locator.ConnectServer
6.     Set osset = service.ExecQuery(“Select * From Win32_OperatingSystem")
8.     For Each os In osset
9.         MsgBox (os.Caption)
10.     Next os
12.     Set os = Nothing
13.     Set osset = Nothing
14.     Set service = Nothing
15.     Set locator = Nothing
16. End Sub

Windowsのバージョンを確認せずにiColumn番号を指定する方法

vItem引数に空値を指定して、iCulumn番号に対応する項目名を取得するロジックを応用し、項目名からiColumn番号を特定する処理を組込めば、Windwosのバージョンを確認しなくても情報を取得することができます。

前述した「指定したフォルダの直下にある音楽ファイルの一覧を表示するExcelツール」を、この方式で書換えたものが以下のサンプル・プログラムです。
行番号9～20で項目名を基にiColumn番号を特定して変数に保存し、行番号31～34で保存した変数でiColumn番号を指定しています。

（参考）サンプル・プログラムの行番号11,15で複数の項目名を指定していますが、これはWindowsのバージョンによって項目名が異なるためです。全てのバージョンで動作確認を行ってはいませんが、Windows XP以降であれば、このロジックで情報を取得できると思います。

（追記）「リリース年」のiColumn番号を特定したい場合は、項目名を『年』にして探して下さい。

1. Dim sht, shell, folder, item As Object
2. Dim ext As String
3. Dim pos, cnt, i, album, track, artist, title As Integer
5. Private Sub Sample5()
6.     Set sht = ActiveSheet
7.     Set shell = New Shell32.shell
8.     Set folder = shell.Namespace(“C:\work")
9.     For i = 0 To 511
10.         Select Case folder.GetDetailsOf(“", i)
11.         Case “アルバム", “アルバムのタイトル"
12.             album = i
13.         Case “トラック番号"
14.             track = i
15.         Case “アーティスト", “参加アーティスト"
16.             artist = i
17.         Case “タイトル"
18.             title = i
19.         End Select
20.     Next i
21.     sht.Cells.Clear
22.     cnt = 0
24.     For Each item In folder.Items
25.         pos = InStrRev(item.Name, “.")
26.         If pos > 0 Then
27.             ext = LCase(Mid(item.Name, pos + 1))
28.             If (ext = “mp3") Or (ext = “m4a") Or (ext = “wma") Then
29.                 cnt = cnt + 1
30.                 sht.Cells(cnt, 1) = item.Name
31.                 sht.Cells(cnt, 2) = folder.GetDetailsOf(folder.ParseName(item.Name), album)
32.                 sht.Cells(cnt, 3) = folder.GetDetailsOf(folder.ParseName(item.Name), track)
33.                 sht.Cells(cnt, 4) = folder.GetDetailsOf(folder.ParseName(item.Name), artist)
34.                 sht.Cells(cnt, 5) = folder.GetDetailsOf(folder.ParseName(item.Name), title)
35.             End If
36.         End If
37.     Next item
39.     Set item = Nothing
40.     Set folder = Nothing
41.     Set shell = Nothing
42. End Sub