フォームが表示される時、指定したパスのファイルの一覧を、
フォームの表示エリア内(リストボックスなど)に表示する。
下の①～③は、事前にExcelのワークシート上に設定しておく。
※このメモ書きでは③についての処理は特に使用していません。
Private Sub UserForm_Initialize()
Dim strFilefilter As String 'ファイルの拡張子
Dim strFilepath_IN As String '変換前のファイルの配置場所
Dim strFilepath_OUT As String '変換後のファイルの出力場所
Dim strFilename As String '読み込むファイルと拡張子を含めたフルパス
'①処理するファイルの拡張子を指定
strFilefilter = Worksheets(3).Cells(2, 2)
'②変換前のファイルの配置場所
strFilepath_IN = Worksheets(3).Cells(3, 2)
'③変換後のファイルの出力場所
strFilepath_OUT = Worksheets(3).Cells(4, 2)
'読み込むファイルと拡張子を含めたフルパスを指定
strFilename = Dir(strFilepath_IN & strFilefilter, vbNormal)
'対象ファイルが無くなるまでループしリストボックスにセット
Do While strFilename <> ""
ListFileName.AddItem (strFilename)
strFilename = Dir
Loop
End Sub
