こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

複数のサブフォルダー内のファイル名を抽出したい

分かりやすく完成形のイメージをキャプチャーしたのでご覧ください。

ネットショップで商品を一括登録する際に添付画像のように
J~N列に画像ファイル名を記載する必要がございます。
キャプチャー画像では一つのアイテム番号を例にしておりますが、この番号がサブフォルダー名になっており
C:\Users\Owner\Downloads\通販素材\tsuhan_jp_5028_2018-02-26\setting_000002016
に保存されております。

実際に説明いたします。
アイテム番号111621のファイル名がもし111621.jpg,111621-1.jpg,111621-2.jpg
であればエクセルの関数でも対応できるのですが、
000033340_0001.jpg、000033340_0002.jpg、000033340_0003.jpgのように不規則になっているので、このような場合の画像ファイル名を抽出させるにはどのようにすればよろしいでしょうか?

投稿日時 - 2018-02-26 09:02:37

QNo.9432826

困ってます

質問者が選んだベストアンサー

VBカテですが、画像からしてExcel VBAの話で良いんでしょうか?
また、画像はjpgだけで良いですね?
Do While Loop を2つ回して見つかったjpgファイル名をJ列以降に入れ、A列が空になったところで止めています。

Sub Sample()
  sPath = "C:\Users\Owner\Downloads\通販素材\tsuhan_jp_5028_2018-02-26\setting_000002016\"
  nRow = 2
  sSubFol = Cells(nRow, 1).Text
  Do While sSubFol <> ""
    nCol = 10
    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

投稿日時 - 2018-02-26 16:05:33

お礼

非常に助かります。ありがとうございます。

投稿日時 - 2018-02-27 07:32:47

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問