VBA フォルダ内のファイルを昇順に読み出す方法

質問

以下のような簡単なプログラムを組みました。
ファイル名を昇順に読み出せると思っていましたが、そうならない場合があるようです。
なぜなのでしょうか？　また、どうすればファイルを昇順に読み出せるのでしょうか？
どなたか教えて頂けないでしょうか？

（抜粋）
Set WS1 = Worksheets("データー（org）") '書き出すシート
Set WS3 = Worksheets("集計")

Dim a As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
PathName = .SelectedItems(1) & "\" 'ファイルの入っているフォルダを指定
End With

BookName = Dir(PathName) '処理するファイル
Do Until BookName = ""

Workbooks.Open PathName & BookName 'ファイルを開く
Set WS2 = Worksheets(1) '読み込むシート

WS2.Rows("1:" & WS2.UsedRange.Rows.Count).Copy

If WS1.UsedRange.Rows.Count = 1 Then
WS1.Rows(WS1.UsedRange.Rows.Count).PasteSpecial Paste:=xlValues
Else
WS1.Rows(WS1.UsedRange.Rows.Count + 1).PasteSpecial Paste:=xlValues
End If

Workbooks(BookName).Close 'ファイルを閉じる
BookName = Dir() 'ファイル名をクリア

Loop

回答No.2

imogasi

＃１です。
エクセルを使っているようだから、ファイル名を一旦シートの同一列のセルに固定し（代入し）、数値と文字列を判別するとか
特別の望みの順（エクセルで、そのままのソート（後の）順では気に食わないとき）に並べたいなら隣列に修正ソートキー（注）をプログラムでつくり、
ソートはエクセルのソートを使うほうが良いと思う（マクロの記録でそのコードはわかる。自作は避ける！バグが心配）。
エクセルでフリガナでソートなどにはなっていないか注意。
（注）コンピュターのまたはソフト（エクセルなど）のソートのクセ（ルール）を逆手にとって、自分に向いたソートキー列データを別途作る。
FORMAT関数（結果文字列）などで望みのソートに都合の良い文字列を作る。
数字部分は先頭０付きの固定桁数の数字文字にするとかのようなこと。
＝＝＝
これの作り方に迷ったら、別途！、質問を立てて、識者の知恵を借りること。

お礼

お返事が遅くなりました。
ご回答ありがとうございました。

回答No.1

imogasi

フォルダ内は名前の昇順に整理されていないはず。
だからFSOのFor EachやVBのDir関数でフォルダのファイルを取り出しても名前の順序にはならない。
質問のコードはこれでは無いようなので、この方法でやってみて。
http://soft1.jp/trouble/w/w014.html
のように見た目は並べ替えアッれるが、上記でファイル名を取得すると、その並べ替えが効かないのではなかったかな。
もしそうなら、ファイル名をシートに記録して、それをソートして、上からそのファイル名で読み出すしかないでしょう。
そのファイルを読んだとき（その後の）の処理にも拠るが、ファイルのデータを全部入手して、それから都合の良い順序（ファイルの名前順）にソートしても良い場合があると思うが。
ーー
しかし
http://officetanaka.net/excel/vba/file/file07.htm
Dir関数が返すファイルの順番
のような説明もあるので、「NTFS]を確認して、やってみてください。

お礼

御回答ありがとうございました。
早速、次のようなマクロを組んでみました（冗長な部分が多いですが）。
でも、例えば、ファイル名が数字の1～22だと、当然ながら
1,10,11,・・・,19,2,20,21,22,3,4,・・・,9 となってしまいます。
（文字だと上手くいきます。T100,T101,・・・,T110, とか）

EXCELのオートフィルタを使うと昇順に数字や文字が混在していても並ぶと思いますが、同じ動作をさせたいのですが、どのようなマクロを組めばよろしいでしょうか？

よろしくお願いします。

（抜粋）
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
PathName = .SelectedItems(1) & "\"
End With

BookName = Dir(PathName)

Do Until BookName = ""
ReDim Preserve strMyFile(nnn)
strMyFile(nnn) = BookName
BookName = Dir()
nnn = nnn + 1
Loop

jjj = 0 '要素0から順に直接的にソートする
Do While jjj < nnn - 1
iii = jjj + 1
Do While iii < nnn
If StrComp(strMyFile(jjj), strMyFile(iii), 1) = 1 Then '入れ替え
temp = strMyFile(jjj)
strMyFile(jjj) = strMyFile(iii)
strMyFile(iii) = temp
End If
iii = iii + 1
Loop
jjj = jjj + 1
Loop

For i = 0 To nnn - 1

BookName = strMyFile(i)

nn = nn + 1

Workbooks.Open PathName & BookName 'ファイルを開く
Set WS2 = Worksheets(1) '読み込むシート

WS2.Rows("1:" & WS2.UsedRange.Rows.Count).Copy

If WS1.UsedRange.Rows.Count = 1 Then
WS1.Rows(WS1.UsedRange.Rows.Count).PasteSpecial Paste:=xlValues
Else
WS1.Rows(WS1.UsedRange.Rows.Count + 1).PasteSpecial Paste:=xlValues
End If

Workbooks(BookName).Close 'ファイルを閉じる

Next i