VBA ある位置にある全てのxlsに対してマクロ実行

質問

あるフォルダ内の全てのxlsファイルに対して命令を実行するマクロを作成しています。
命令したいファイル群の、ブック名はバラバラ。シートは一つのみ。ファイル数は定まっていません。

ブック名や数が定まっているファイルに対して命令を実行するマクロなら作成したことがあるのですが、今回のようにあればある分だけ、命令を実行させるにはどのように記述すればいいのでしょうか？

どうかよろしくお願いします。

回答No.2

hallo-2007 · ベストアンサー

エクセル　VBA　Dir関数で調べてみると良いです。以下サンプルです。
Sub Sample1()
Dim buf As String
buf = Dir(Range("A1").Value & "\*.xls")'A1にフォルダ名を入れておいてフォルダ内のエクセルのファイル情報が変数に入れます。
Do While buf <> ""
Workbooks.Open Worksheets(1).Range("A1").Value & "\" & buf'ファイルをひとつ開く
'ここに実行したいVBAを記述します。
Workbooks(buf).Close SaveChanges:=False'ファイルを閉じる
buf = Dir()'次のファイルに進みます。
Loop
End Sub

お礼

ありがとうございます。
フォルダやファイル名を取得できる関数があったのですね。

大変参考になりました。

回答No.1

n-jun

検索：複数のブック
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rlz=1T4GGLG_jaJP310JP310&q=%e8%a4%87%e6%95%b0%e3%81%ae%e3%83%96%e3%83%83%e3%82%af

ご参考まで。