エクセル マクロについて

質問

エクセルのマクロについて教えてください。

下記のようなマクロを実行した場合
どのような条件でフォルダ内のファイルを
オープンしていくのでしょうか。

ファイルの名前や更新時間などでしょうか？

また、名前や更新時間順でファイルを開いていくように
するにはどうしたらよろしいでしょうか。

ご回答よろしくお願い致します。

以下マクロ

'オブジェクトを設定する
Set ファイルシステム = CreateObject("Scripting.FileSystemObject")
'読み込むファイルを1個指定する
あるブック = Application.GetOpenFilename("Excelファイル(*.xls),*.xls")
'親フォルダーを取得する
Set 親フォルダー = ファイルシステム.GetFile(あるブック).ParentFolder
'親フォルダー内の全ファイルに以下の操作をする
For Each ファイル In 親フォルダー.Files
'ファイルを開く
Workbooks.Open ファイル.Path
'ブック名を記憶する
ブック名 = ActiveWorkbook.Name
'開いたファイルの伝票(NO)のシートを「全データ」シートの後ろにコピーする
ActiveWorkbook.Worksheets("伝票(NO)").Copy After:=ThisWorkbook.Worksheets("全データ")
'開いたファイルを閉じる
Workbooks(ブック名).Close
Next

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　以上

回答No.1

keithin · ベストアンサー

ファイル名順ですが，通常は「ウィンドウズが並べてみせる順」とも，またエクセルなどで並べ替えたときの順とも違います。
大概の場合ウィンドウズでフォルダを開いたときに並ぶ順が一番「インテリジェント」ですが，そういう結果が欲しい時はご自分で「かなりガンバって」プログラムを自作する必要があります。

何かの理由でファイルの更新順で処理したい場合は，
作成例：
sub macro1()
　dim mypath as string
　dim myfile as string
　dim n

　mypath = "c:\test\"
　myfile = dir(mypath & "*.*")
　do until myfile = ""
　　n = n + 1
　　cells(n, 1) = mypath & myfile
　　cells(n, 2) = filedatetime(mypath & myfile)
　　myfile = dir()
　loop

　range("A:B").sort key1:=range("B1"), order1:=xlascending, header:=xlno
end sub

とかなんとかで，一回必要なデータを調査して並べ替えた後に，改めて上から順に処理していくような段取りにします。