ベストアンサー

エクセルのVBAで特定のフォルダ内にあるファイル名称の一覧を取得できるような方法は？

2002/10/21 14:38

始めまして、ボスからの依頼ですが、わからなくて困っています。ひとつのフォルダに複数のエクセルファイルを保存し、それぞれのファイル（ブック）に対して加工を施すマクロを実行したいと考えています。その際、特定のフォルダ内にあるファイル名称の一覧を取得するようなマクロがあれば、１回の実行ですべてのファイルを加工できるので、時間の短縮を図れると考えました。そこで、そのようなことができるマクロ（マクロ単体ではなく、いくつかのマクロを組み合わせて取得する方法でも構いません）をご存知の方がいらっしゃいましたら教えていただけませんでしょうか。よろしくお願いします。

see-rat
お礼率16% (1/6)

オフィス系ソフト
回答数6
ありがとう数2

みんなの回答 （6）
専門家の回答

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

ベストアンサー

norakuma
ベストアンサー率29% (293/977)

2002/10/21 16:49 回答No.3

できました？久しぶりに、VBSで遊んでます＜私(^^) ファイル一覧取得用 Dim objFileSystem Dim objFolder Dim FolderName Dim EachFile Dim strList '知りたいフォルダをフルパスで入力。例として、C直下 FolderName = "C:\" Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objFolder = objFileSystem.GetFolder(FolderName) 'Text1を空に Text1 = "" 'フォルダ内のすべてのファイル名称をゲットして 'strList変数にまとめていく。 For Each EachFile In objFolder.Files Text1 = EachFile.Name strList = strList&"\" & Text1 Next 'strList変数にまとめたファイル名を、 'Split関数で分割。 strA = split(strList,"\") 'メッセージボックスでひとつずつ表示。 'ここで、ひとつずつファイル名が分割されるので、 '処理を行うなら、ここに記述すればよいでしょう。 For Each StrA In StrA Msgbox strA Next End では。

ログインすると、全ての回答が全文表示されます。

その他の回答 (5)

imogasi
ベストアンサー率27% (4737/17070)

2002/10/21 21:38 回答No.6

似たような質問に答えたことがあります。 http://www.okweb.ne.jp/kotaeru_reply.php3?q=351271

ログインすると、全ての回答が全文表示されます。

nishi6
ベストアンサー率67% (869/1280)

2002/10/21 17:39 回答No.5

Sheet1のコードウインドウに貼り付けます。指定フォルダのエクセルブック(*.xls)のファイル名をSheet1のＡ列に、パス＋ファイル名をB列に表示します。『myFolder』に、ドライブ名とフォルダを指定して実行します。Dirを使っています。 Sub getFileNames() 　　Dim myFolder As String 'ドライブ、フォルダ　　Dim filename As String 'ファイル名　　Dim rw As Long '行カウンタ　　myFolder = "C:\My Documents\・・・\・・・" '***ドライブ名とフォルダを指定します　　filename = Dir(myFolder & "\" & "*.xls") 　　While filename <> "" 　　　　rw = rw + 1 　　　　Cells(rw, 1) = filename 　　　　Cells(rw, 2) = myFolder & "\" & filename 　　　　filename = Dir 　　Wend End Sub

ログインすると、全ての回答が全文表示されます。

norakuma
ベストアンサー率29% (293/977)

2002/10/21 16:51 回答No.4

＃３書いてから気づきました。 For Each EachFile In objFolder.Files Text1 = EachFile.Name ここで処理を記述すればいいだけでしたね。あはは。。。 Next

ログインすると、全ての回答が全文表示されます。

norakuma
ベストアンサー率29% (293/977)

2002/10/21 15:07 回答No.2

補足です。下記の、FolderNameには、その前で、フルパスでフォルダまでのパスを代入しておいてください。 FolderName = "C:\なんとかかんとか" Set objFolder = objFileSystem.GetFolder(FolderName)

質問者

お礼 2002/10/21 16:05

素早い返信、どうもありがとうございました。さっそくこれから試してみます。

ログインすると、全ての回答が全文表示されます。

norakuma
ベストアンサー率29% (293/977)

2002/10/21 14:59 回答No.1

昔、VBSでこんなのを作りました。フォルダの中に、ファイルがあるかどうか確認するタスク用に作成したものですが、原理は同じです。 Text1にファイル名を入れるようにしてますので、表示するなり、テキストに吐き出すなり、作成してみてください。では。 Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objFolder = objFileSystem.GetFolder(FolderName) Text1 = "" FlgCount = 0 For Each EachFile In objFolder.Files Text1 = EachFile.Name If Text1 <> "" then 　　　　　'適当な処理 End If Next

ログインすると、全ての回答が全文表示されます。