複数ファイルから特定セルの抽出の仕方

質問

エクセル：マクロの初心者で自分なりに勉強しましたがなかなかうまくいきません。

今、しようとしている事は、１つフォルダがありその中に複数のファイルがあります。このそれぞれのファイルのシートの特定のセルのデータを抜き出して、別に新しくシートを作り、表にまとめたいと思っています。

条件は
１，フォルダ名「risuto」、そのフォルダの中の複数あるシート（３００程あります）のタ　　イトルはそれぞれ違いますがシートの様式は同じです。
２，そのファイルの「sheet1」のセルM5からO5を抽出したいです。ファイルは閉じたまま　　でお願いします。
３，その抽出したデータを別のシートに表にしたいです。書き出しはどこでもOKです。

いろいろ調べた結果、一度名前がバラバラのファイルを何か読み取りやすい形に変えてから
それぞれのファイルを見に行きセルを抽出する方法がいいのでは、と考えているのですが、
初心者なので本に載っているような基本のコードしか解らずそれをどの順番にどのように加工したらいいか解らず困っています。
それぞれのファイル、シートをアクティブにしてシート開きそのセルのデータを拾いにいき
新しいシートに貼り付けるという順番でいいでしょうか？

かなり頭を悩ましています。
よろしくおねがいします。

回答No.2

keithin · ベストアンサー

おや，そんな所で引っかかるとはちょっと想定外でした。

＞初期化のところの”どこかのフォルダ”というのは何をさすのでしょうか？

アナタはナントナクでrisutoフォルダと簡単に説明してますが，具体的にそれはいったいどこにあるのですか？ということです。
もしまだrisutoフォルダを準備すらしてないというのなら，これはマクロがどうこう以前のアナタが今ヤリタイ事の大前提なのですから，先に用意してください。
対象のブックもそこに先に全部ぶち込んで，アナタがご相談で「こうしたい」という前提をキチンと準備してから，ようやく作業にかかれるというモノです。

ついでに。
もし，どう準備したらいいのかも判ってないなら。

調べ方：
アナタが用意したrisutoフォルダを右クリックしてプロパティを開いてみると，だいたい添付図のように現れます。
ここではrisutoフォルダは，Ｃドライブにあるtestというフォルダの中に置いてあることが示されています。

この場合マクロでは
mypath = "c:\test\risuto\"
のようにしなさいということです。

＃余談
また，元のご相談にもちょっとあって先の回答でも触れましたが，ごく基本のマクロについてキチンと勉強していれば

　set w = workbooks.open(filename:=mypath & myfile)

といった部分で，ファイルを開くには

参考書に出てくる基本構文：
　workbooks.open filename:="c:\どこかのフォルダ\risuto\book1.xls"

などのようにドライブ名（ｃ：など）から始まる「フルパス」をキチンと記入しなきゃいけません，みたいなこともごく基本の知識として身に付いていたはずです。
こういった要素技術を一つずつ丁寧に理解して組み合わせ，いまアナタのやりたい全体の仕事を組み上げていく事になります。

＃参考書によっては，curdirやcurdriveを先に設定してから，そこからの相対パスでファイルを開いたり保存する方法について追加で解説している場合もあります。

＃余談ついでに
アタマで考えるのは勿論悪い事じゃありませんが，考えるだけで終わりじゃちょっと情けないですね。
「こうかなぁ」と思ったのならまずご自分の手を動かしてやってみてから，それで失敗したら改めて「こう思ってこうしたらこんな具合に失敗した。どうしたらよかったか」みたいに質問してみたらどうですか？とは思います。

お礼

そうですね。それなりにわかったつもりでいたのですが、結果を早く出したいばかりに基本がなっていませんでした。
もっともっと勉強しなければなりません。
詳しく回答して頂いたのでこちらの思う表もできあがりました。
ありがとうございました。

回答No.1

keithin

参考書に載っているような基本のパターンを組み合わせて行います。ごく単純な応用問題です。

sub macro1()
　dim myPath as string
　dim myFile as string
　dim w as workbook
　dim n as long

’初期化
　mypath = "c:\どこかのフォルダ\risuto\"
　myfile = dir(mypath & "*.xls*")
　thisworkbook.worksheets.add before:=thisworkbook.worksheets(1)
　application.calculation = xlcalculationmanual
　application.screenupdating = false

’ブックの値を調べて持ってくる
　do until myfile = ""
　　set w = workbooks.open(filename:=mypath & myfile)
　　n = n + 1
　　thisworkbook.worksheets(1).range("M1:O1").offset(n).value = w.worksheets("Sheet1").range("M5:O5").value
　　w.close false
　　myfile = dir()
　loop
　application.screenupdating = true
　application.calculation = xlcalculationautomatic
end sub

補足

回答ありがとうございます。
通して読んで流れが解りよかったのですが、わからない点があります。
初期化のところの”どこかのフォルダ”というのは何をさすのでしょうか？risutoというフォルダが保存されているところなのか、これからつくる新しいシートの保存先なのでしょうか？