フォルダの中のエクセルブック一覧を作成する方法【VBA入門講座#26】

サブロー

こんにちは。サブローです。

『Microsoft Excel』(以下Excel、エクセル)の中の機能としてある[VBA] について基本的な説明をしていきます。

仕事の改善や個人的な知識向上に役立ててください(^o^)

第26回目の今回は

VBAを使って、フォルダの中のエクセルブック一覧を作成する方法

について解説していきますので、よろしくお願いします。

これまでのVBAに関する記事は、下記のINDEXを参照してくださいね。

↓サブログ内部リンク(VBA用INDEX)↓

スラスラ読めるExcel　VBAふりがなプログラミング [ リブロワークス ] 価格：2035円（税込、送料無料) (2021/1/9時点) 楽天で購入

『Dir』関数について

フォルダの中の一覧を取得したい場合は、『Dir』関数を使用します。一覧からある指定したエクセルを開くことができるなど、応用して使用すると非常に便利です。

構文

サンプルコード

下図のようなCドライブ直下の『VBA』ファイルの中の『エクセル一覧』内にあるエクセルファイル(.xlsx)を抽出するコードです。

---------------------------------------------------------------------------

Sub 一覧抽出()

Dim file As String

’ファイルを[String]型の変数とする。

Dim a As Integer

’"a"を[Integer]型の変数とする。

file = Dir("C:\VBA\エクセル一覧\*.xlsx")

’"抽出するフォルダ、及び拡張子を指定し、対象のファイルを変数”file”に抽出します。(★)

※.xlsxの拡張子分を抽出するため、拡張子の前は＊(アスタリスク)を使用します。

a = 2

’"a"に2を代入します。

Do While file <> ""

’"file"がある場合は処理を実行します。(▲)

Cells(a, 1).Value = file

’A列のaセルにfile(抽出したエクセル名)を書き出します。

file = Dir()

’★と同じ条件でファイル名を検索します。

a = a + 1

’aに1を足します。(入力箇所を1行下に下げる)

Loop

’処理を繰り返します。(▲に戻る)

End Sub

'終了!!

---------------------------------------------------------------------------

上記のプログラムを実行すると･････

↓

フォルダ内のエクセルファイル(.xlsx)が抽出されます。

モグゾー

それでは、今回はここまで。最後までお読みいただきありがとうございました！
下のVBA講座も是非ご覧下さい！！