一致したファイル名を先頭に抽出させる方法
Sub Sample()
sPath = "C:\Users\Owner\Downloads\base\setting_000002016\"
nRow = 2
sSubFol = Cells(nRow, 1).Text
Do While sSubFol <> ""
nCol = 11
sFileName = Dir(sPath & sSubFol & "\*.jpg")
Do While sFileName <> ""
Cells(nRow, nCol) = sFileName
sFileName = Dir()
nCol = nCol + 1
Loop
nRow = nRow + 1
sSubFol = Cells(nRow, 1).Text
Loop
End Sub
こちらは、指定の商品番号と同じ商品番号の名前になっているサブフォルダ名のファイル名をK列以降に抽出するというvbaでつくられたプログラムです。
実際の例で説明いたします。
商品番号が123、サブフォルダ名123だとして、
ファイル名が001.jpg,002.jpg.003.jpg,123.jpgという不規則なファイル名があったとします。
上記のプログラムはファイル名の順番問わず
K列から順番に001.jpg,002.jpg.003.jpg,123.jpgに抽出されるようになっております。
しかし、仮名のファイルですが、123.jpgというファイル名が最初の列に抽出されたほうがこちらとしましても都合がいいので、同じ名前のファイルがあったら先頭に抽出できるようにしたいのですがどのようにしたらよろしいでしょうか?
お礼
さっそくの回答ありがとうございます。 もう一度保存の順番を変えたりと確認してみたら、まったくそのとおりでした!!今までなんとなく気になっていたのがすっきりしました。 ありがとうございます!