目次
ステップ1 Excelを起動し、VBEを起動する
Excelを起動し白紙のブックを表示しましょう。
開発タブを表示する
下図のように「開発」タブが表示されていない場合は、次の手順で表示をします。




VBEを起動する
[開発]タブをクリックします。


ステップ2 標準モジュールを追加し、コードを記述する
[挿入]をクリックし[標準モジュール]をクリックします。

Sub ファイル一覧の取得()
Dim buf As String
Dim cnt As Long
Const Path As String = "C:\test\"
buf = Dir(Path & "*.xlsx")
Do While buf <> ""
cnt = cnt + 1
Cells(cnt, 1) = buf
buf = Dir()
Loop
End Sub
入力した結果は次の画面のようになります。

プログラムの説明
このプログラムはCドライブの「test」フォルダ内にある拡張子が「.xlsx」のファイル一覧を取得するものです。
マクロ有効ブックとしてファイルを保存
[表示 Microsoft Excel]をクリックします。


ステップ3 プログラムを実行する
[開発]タブをクリックし[マクロの表示]をクリックします。

