説明（2017年3月22日）：
1。
1「ファイルで指定されたフォルダを横断するように 指定されたフォルダを横断する2」、ファイル（フォルダを除く）第一の層に戻す 。3パブリックサブTEST1（） 。4％K薄暗い 。5 $暗いファイル名 。6 $薄暗い路 7 =はThisWorkbookパス。パス 。8「指定されたファイル名の拡張子を返します。複数の*。*ファイルが存在する場合は、 条件が見つかった下9「関数は、ファイル名を返します。 10「第二は、Dir関数を呼び出しますが、任意のパラメータを指定せずに、機能は*次を返します。*ファイルと同じディレクトリに 。11名= DIR（パス＆ 『\ *。*』） 12は」範囲（「A1 ：のAlO "）=" " 13がそうであるファイル名まで=" " 14 1 K = K + 15「細胞（K ,. 1）ファイル名= 16のDebug.Print（ファイル名） 。17 = DIRファイル名 18がループである 19のDebug.Print（"完全「） 20 End Subの 21 ' 23薄暗いのk％、パス$、ファイル名$ = ThisWorkbook.path＆24パス"\ 2 \" 25 "DIR第二个参数vbDirectory 26名= DIR（パス、vbDirectory） 27行い、ファイル名まで= "" 28でない場合は、ファイル名以下のような"*。*"そして 29 K '= K + 1 30'細胞（K、1）=ファイル名 31のDebug.Print（ファイル名） 32 END IF 33名= DIR 34ループ 35 End Subの
説明（2017年3月22日）：
1。
1「ファイルで指定されたフォルダを横断するように 指定されたフォルダを横断する2」、ファイル（フォルダを除く）第一の層に戻す 。3パブリックサブTEST1（） 。4％K薄暗い 。5 $暗いファイル名 。6 $薄暗い路 7 =はThisWorkbookパス。パス 。8「指定されたファイル名の拡張子を返します。複数の*。*ファイルが存在する場合は、 条件が見つかった下9「関数は、ファイル名を返します。 10「第二は、Dir関数を呼び出しますが、任意のパラメータを指定せずに、機能は*次を返します。*ファイルと同じディレクトリに 。11名= DIR（パス＆ 『\ *。*』） 12は」範囲（「A1 ：のAlO "）=" " 13がそうであるファイル名まで=" " 14 1 K = K + 15「細胞（K ,. 1）ファイル名= 16のDebug.Print（ファイル名） 。17 = DIRファイル名 18がループである 19のDebug.Print（"完全「） 20 End Subの 21 ' 23薄暗いのk％、パス$、ファイル名$ = ThisWorkbook.path＆24パス"\ 2 \" 25 "DIR第二个参数vbDirectory 26名= DIR（パス、vbDirectory） 27行い、ファイル名まで= "" 28でない場合は、ファイル名以下のような"*。*"そして 29 K '= K + 1 30'細胞（K、1）=ファイル名 31のDebug.Print（ファイル名） 32 END IF 33名= DIR 34ループ 35 End Subの