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

解決済みの質問

フォルダ内のファイルをエクセルに一覧化

1つのフォルダ内に複数のフォルダがあり、その中に画像数百点が保存されています。
これをエクセルにファイル名のみリスト化してエクセルファイルにしたいのですが、そのようなソフトはありませんか?

内容としては…
チラシのようなものを作成しているのですが、毎回エクセルで今回のデータが送られて来ます。
新商品等画像が無ければメーカーに画像を送ってもらうように頼む必要があるので、以前使った画像があるかないかをチェックする必要があります。
毎回送られてくる内容のエクセルファイルには商品のコードが載っている為、それを元に管理できないかと考えました。(今までは商品名で管理)

画像ファイルをすべてコード名+拡張子として保存します。さらに、それを今回探しているソフトでリスト化し、エクセルファイルで保存します。(この時、拡張子をはずしたファイル名で保存してもらえると最高にベストです)
あとは、送られてくる内容ファイルと画像リストファイルを同時に開き、「もしコードが書かれているセルと画像リストファイルに一致するものが無ければこのセルに"なし"を表示」(こうしたいので拡張子抜きで保存したい)と言うIF文を仕込んで完成です。

考え方あってますか?
こんな事がしたいので、「フォルダ内のファイルを拡張子抜きでファイル名を一覧化し、エクセルファイルで保存」出来るソフトを探しています。

御存知の方教えてください。

投稿日時 - 2005-08-03 11:30:14

QNo.1556588

すぐに回答ほしいです

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

Excelでマクロを組んだらどうでしょう?
こんなのを作ってみました。

Sub ボタン1_Click()
 Dim file As String
 Dim row As Integer
 file = Dir("c:\*.*")
 row = 1
 While file <> ""
  Cells(row, 1) = Mid(file, 1, InStr(1, file, ".") - 1)
  file = Dir
  row = row + 1
 Wend
End Sub

ちょっと汚いソースですが、例えば空のシートにボタンを貼り付けてこの関数を呼ぶようにします。
4行目のところの c:\*.* は対象としたいフォルダ名に書き換えてください。
そうしてからシートでボタンをクリックすれば拡張子抜きのファイル名を抽出してシート上に書き出します。

投稿日時 - 2005-08-03 11:46:40

ANo.2

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

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

回答(4)

ANo.4

メモ帳で次のように入力します。

echo off
if exist list.csv del list.csv
for /R %%f in (*.jpg *.gif) do echo %%~nf>>list.csv
start list.csv

これを listmake.bat というファイル名でリストを作りたい
フォルダに保存します。
listmake.batを実行します。(ダブルクリック)
list.csvに拡張子なしのファイル名一覧ができます。エクセルで開きます。

投稿日時 - 2005-08-05 08:45:25

ANo.3

ソフトを使わなくても、コマンドプロンプトで対象のフォルダに移動して

dir /B >list.txt

とすればテキストファイルで一覧が拾えますよ

投稿日時 - 2005-08-03 11:48:31

ANo.1

この辺りのソフトの中から探してみては?
http://www.vector.co.jp/vpack/filearea/win/util/file/list/

参考URL:http://www.vector.co.jp/vpack/filearea/win/util/file/list/

投稿日時 - 2005-08-03 11:37:05

あなたにオススメの質問