VBAサンプル集
エクセルでファイル一覧を作成.№2（Dir関数1）

エクセルでファイル一覧を作成.№2（Dir関数1）

エクセルでファイル一覧を作成します、

サブフォルダ以下も全て取得し、一覧表示します、

その前に、マクロって何？と言う人は、

第3回.顧客登録のシートを作成、その前にマクロって何？

第4回.顧客登録のシートを作成(1)

第10回.コーディングとデバッグ

このあたりをお読みください。

モジュールの挿入方法や、変数定義については、本シリーズでは省略します。

まずは、完成イメージです。

とにかく、ファイルの一覧を取得しなければなりません。

使用するのは、Dir関数です。

FileSystemObjectというのもありますが、古くからあるDir関数をまず覚えてからです。

標準モジュールを追加して下さい。

以下を追加します。

セルB4には、自身のPCに存在するフォルダを指定して下さい。

必ず、最後に"\"を付けて下さい。

マクロを実行すると、セルB5にファィル名が表示されたはずです。

えっ、されない・・・ファィルのないフォルダを指定してもダメですよ。

しかし、これでは１つのファイルしか取得できません。

では、

strBuf = Dir(Cells(4, 2))
Cells(5, 2) = strBuf
strBuf = Dir(Cells(4, 2))
Cells(6, 2) = strBuf
にしたらどうでしょう、B5もB6も同じファィル名になってしまいましたね。

Dir関数では、次々にファィルを取得する場合は、

２回目からは、フォルダを指定せずに、

strBuf = Dir(Cells(4, 2))
Cells(5, 2) = strBuf
strBuf = Dir()
Cells(6, 2) = strBuf
のように指定します。

これで、セルB6に次のファィルが表示されました。

しかし、これを延々と続けて書くわけにはいきませんので、

このように書きます。

Dir関数は、ファイルすべての取得が終了すると、空白""を返します。

従って、空白以外の間、カウントアップしながら処理を続けます。

Do While strBuf <> ""

　　・・・

Loop
は、strBufが空白""以外の間、・・・の部分を繰り返し処理します。

「あれっ、サブファルダが表示されない」、それは次回に！

次回は、Dir関数の詳細説明をします。

Do WhileとDo Untilについて

上記のプログラムは、Do Whileを使用していますが、これをDo Until で書けば

Do Until strBuf = ""

となります。

どちらでも同じです。

Whileは「の間」、Untilは「になるまで」になります。

では使い分けはあるのかとの疑問が出てきます。

特にないです。（笑）

If文と同じ考えで良いと考えています。

If A <> B then

　　AとBが違う場合の処理

Else

　　AとBが同じう場合の処理

End If

これは、

If A = B then

　　AとBが同じ場合の処理

Else

　　AとBが違う場合の処理

End If

と同じです。

しかし、なるべくなら二重否定は使用しない方が好ましいです。

つまり、下の方が好ましい。

しかーし、時と場合によるのです。

プログラミングは言語です。

コンピューターに伝えるだけの言語ではありません、

同じ言語を使う他の人にも伝える必要があります。

そして、なるべく解り易く伝える必要があります。

AとBが違う事が通常（多くの場合）であるなら、上の記述の方が理解し易いのです。

Elseはその他例外の場合の処理と言う事になります。

例外処理を先に書くのは、理解しづらいのです。

戻って、WhileとUntilではどうでしょうか。

Whileを使った方が、否定形になっています。

この意味では、Untilの方が良いともいえます。

しかし、ネットのサンプルの多くは、Whileを使用しています。

その理由ははっきりしませんが。

私はどちらかと言うと、Untilを使う事が多いのですが、ある程度、使い分けしています。

コーディングをしていて、どちらを期待して書いているかの違いです。

「その状態の間は処理するよ」vs「その状態になったら終了するよ」

の違いです。

そして、もう１つの大切な判断基準は、流行です。

プログラミングは言語だと言いました。

言語には流行すたりがあります。

この点では、Whileになるでしょう。

Dir関数をつかっての処理で、Untilを使っているサンプルを見た事がないのです。

私は、昔からの癖で、どちらも使用してしまいますが、

Whileだけを使用するなら、それで統一するというのも、良い判断だと考えます。

また、

Do

　　・・・

Loop While 条件

という書き方もありますが、私は使いません。

使う事を否定はしませんが、必要性を感じません。