ファイルの名称を取り込みたい

質問

フォルダにあるファイルを管理したいのです。
どんなファイルがあるかエクセル等に取り込めないでしょうか？
今は、プリントスクリーンで取り込んだものをワードに貼り付けて印刷しております。
宜しくお願いします。

回答No.2

yetinmeyi · ベストアンサー

ファイルネームピッカー
各ドライブ内のファイル名称をエクセルへ変換出力

参考URL：

http://www.vector.co.jp/soft/winnt/business/se322869.html

お礼

活用させて頂こうと思います。ありがとうございます。

回答No.3

BLUEPIXY

ＶＢＡでサンプルを作ってみました
マクロを選んで実行すると、フォルダを選択するダイアログででて、選んだフォルダのパスを１行目に表示し、２行目以降にそこに含まれるファイル名を表示します。（そこに含まれるフォルダについては処理しませんが、同じようにして取り込むことはできます。）
ファイルのリストはFileListというシートに作成します。あらかじめなければいけません。
シート名や取り込む位置は適当に変更すればいいです。

Public Sub makeFileList()
Dim folderPath As String
Dim fso, wsho, folder
Dim i, x

Sheets("FileList").Select
Cells.ClearContents 'ファイルリストシートをクリア

With Application.FileDialog(msoFileDialogFolderPicker) 'リストするフォルダを指定させる
.Show
folderPath = .SelectedItems(1)
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set wsho = CreateObject("WScript.Shell")
Set folder = fso.GetFolder(folderPath)

Range("A1").Value = folderPath
i = 1
For Each x In folder.Files
Range("A1").Offset(i).Value = x.Name
i = i + 1
Next
Columns("A:A").EntireColumn.AutoFit '列幅の調整
End Sub

お礼

わざわざソフトまで作ってくれてありがとうございます。むつかしすぎて理解できません。とてもうれしく思います。

回答No.1

de_vo

↓なんていかがでしょう？
使用したことがないので結果はどうなるのかわかりませんが・・・

参考URL：

http://download.goo.ne.jp/software/category/win/util/file/list/

お礼

いろんなソフトがフリーウエアであるのですね。大変参考になりました。