Q&A
やりたいことが少し分からないのですが、FSO,GetFolder(Path).Files で列挙されたファイル名を昇順（あるいは降順）で並び替えたい（ソートしたい）と言うことなのでしょうか？ 例えばfile2.txt, file3.txt, file1.txt なら、file1.txt, file2.txt, file3.txt とのように。
現在、
Excel
1 Set objFile = FSO.GetFolder(Path).Files 2 For Each fList In objFile 3 If Right(fList.Name, 3) <> "csv" Then GoTo Next_File 4 Call CSV_READ_Macro(fList, Array) 5 Next fList
という処理を行っていますがファイルオーダーを
処理１
処理２
処理３
処理４・・・
という並びで行ってほしいと依頼が来ました。
汎用性を持たせたいので個別の「処理」という文字列を使わないで順序を作りたいのですが
良い方法、アドバイスはありますでしょうか、それとも配列に入れて+Counter値でパス名を
作るのが良い方法でしょうか。
ご意見ご指導よろしくお願いします。
その通りです。
ただ10個以上ファイルがある場合純然たる昇順だと１，２、～とはならず１，１０，２という並びになるのが昇順だと考えますが、依頼は１，２，３，４，５という並びで処理してほしい、とのことです。
アプリはExcelですか、Accessですか、それとも、アプリに関わりなくVBA上のみで完結したいですか。
Excelならシート上で並べ替え、Accessならクエリで並べ替えができます。
アプリはExcelです。シート上での並べ替えは思いつきませんでした。
作業用シートを作って並び替えて再度配列に入れて処理する事を考えてみたいと思います。
ありがとうございます。
作業列で「処理」の部分を取り除いて数値に変換して、それを昇順にソートすればいいですね。
実際のファイル名は具体的にはどのようになっていますか。
処理n.csv でしょうか。（nは0以上の整数の数字）
概ねその通りです。
処理中ｘ.csv(個数は可変)
止め.csv（常に同じ名前）
が1フォルダにまとめられています。
回答1件
0
自己解決
今回は特定業務専用のプログラム作成だということで、
不本意ながら出現する可能性があるファイル名＋連番をふって
処理する事になりました。
みなさまお知恵をお借りいたしました。感謝いたします。
しかしながら、これ以降同様かつファイル名称が予想できない
同様のケースもあると思われます。
その際はまたお知恵をお借りいたしたいと考えています。
末筆ながら、大変ありがとうございました。
投稿2020/02/05 08:21
総合スコア19
汎用性を求められたので、ご意見頂いた中で簡単に実装できそうな「Excelならシート上で並べ替え」を利用させていただきました。まずファイル名をA列に列挙してB列に処理順を入力してもらい、B列をキーにソートをかけてそのオーダーでファイルを処理するようにしたところ大変満足していただきました。改めてありがとうございました。
あなたの回答
tips
プレビュー
