- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：複数のサブフォルダー内のファイル名を抽出したい）
複数のサブフォルダー内のファイル名を抽出する方法
このQ&Aのポイント
- ネットショップで商品を一括登録する際に、複数のサブフォルダー内に保存されている画像ファイル名を抽出する方法について説明します。
- 通常、アイテム番号がファイル名に含まれている場合はエクセルの関数を使うことで抽出することができますが、不規則なファイル名の場合は別の方法が必要です。
- 不規則なファイル名の場合は、正規表現を用いて該当するファイル名を抽出することができます。具体的な方法や手順についてご説明します。
- saya100111
- お礼率6% (24/363)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
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
お礼
非常に助かります。ありがとうございます。