ExcelVBAで同一フォルダにある複数ファイルの特定セルの値を纏めたい

質問

ＶＢＡ初心者です。同じような質問があがっていましたが、初心者のため応用が効かずよく分からないので教えてください。（Ｅｘｃｅｌ２００３使用）

Ｃドライブの直下に仮に「注文」という名前のフォルダがあり、
その中に同じ形式のＥｘｃｅｌファイルが複数入っています。
（ファイルの名前は全て異なります）

各ファイルのsheet1にＢ２セルは発注した人の名前、Ｈ４、Ｈ７に注文した商品の単価、Ｈ１４に合計額（ＳＵＭ関数）が入ってます。
このＢ２セルとＨ４、Ｈ７、Ｈ１４の値のみを別ファイルに一つにまとめたいのですがどうすればよいでしょうか。

　　　　　　Ａ列　　　　　　　　　 　　 ｜Ｂ列　　　　｜Ｃ列　　　　｜Ｄ列　
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
１行目　　｜○○（Ｂ２の名前） 　 ｜１５（Ｈ４）｜１０（Ｈ７）｜２５（Ｈ１４）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
２行目　　｜△△(別ファイルＢ2） ｜０　 　　 　｜１５　　　　｜１５
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
３行目　　｜××(別ファイルＢ2 　｜２０　　 　 ｜０　　　　　｜２０

といった感じにしたいです・・

よろしくお願いします。

回答No.2

imogasi

ブックを読んで、各ブック（名）を捕まえるのは
http://okwave.jp/qa5411462.html
と同じ内容の質問では無いか。
でも初心者には難しいと思う。
ーー
各ブックを捉えて、その中の決ったシートのセルの値を開いているシートに一覧化するコードは目算がついているのか。
搗いて無いレベルだと、そっくりコードを書いてくれ（丸投げ質問）にならざるをえないが。

回答No.1

n-jun

別ファイルが
＞Ｃドライブの直下に仮に「注文」という名前のフォルダがあり、
ここに入っていないとします。

Sub　try()
　Dim　wb　As　Workbook
　Dim　r　As　Range
　Dim　P_name　As　String
　Dim　F_name　As　String

　Application.ScreenUpdating　=　False

　Set　r　=　ActiveSheet.Range("A1")

　P_name　=　"C:\注文\"
　F_name　=　Dir(P_name　&　"*.xls",　vbNormal)

　Do　Until　F_name　=　""
　　　　Set　wb　=　Workbooks.Open(P_name　&　F_name)

　　　　With　wb.Worksheets("Sheet1")
　　　　　　　　　r.Value　=　.Range("B2").Value
　　　　　　　　　r.Offset(,　1).Value　=　.Range("H2").Value
　　　　　　　　　r.Offset(,　2).Value　=　.Range("H4").Value
　　　　　　　　　r.Offset(,　3).Value　=　.Range("H14").Value
　　　　End　With

　　　　Set　r　=　r.Offset(1)
　　　　wb.Close　False
　　　　F_name　=　Dir()
　Loop
　Set　r　=　Nothing
　Set　wb　=　Nothing
　Application.ScreenUpdating　=　True
End　Sub

一例です。
ご参考になれば。