EXCEL VBAでの質問です。

質問

EXCEL VBAでの質問です。
集計用のファイル１つと参照するファイルが30あります。

参照するファイルは基本的に書式は全部同じで数値だけが違い、参照させたいセル位置は全て同じです。
そしてAにある表にこのように順次下に転記させたいです。

B 1 2 4 6 2 5
C 4 5 3 7 8 4
D 2 3 7 5 3 2

この時いちいち別のコードで１つ１つのファイルを転記させるのではなく30のファイルをひとまとめに転記させるコードを作りたいと思っています。
もしわかる方がおりましたらコードをよろしくお願いします。

回答No.3

imogasi

#2です。
１つ考え方（方法）を追加します。
（１）対象のブックうを１つのフォルダに集める
または
（２）または対象としないブックを、今のフォルダより別のフォルダに移す。
のどちらかを行う。手動で操作処理することになろう。
その後
Ｄ。（１）ＶＢＡというよりＶＢＳｃりｐｔのＦＳＯですが、フォルダ内の全ファイル（エクセルＢｏｏｋ）を１つづつ順次捉える。
http://www.happy2-island.com/vbs/cafe02/capter01216.shtml
のようにＦｏｒ　Ｅａｃｈ　・・・　Ｎｅｘｔを使う。
そして集計ファイルのシートに対し処理する
（２）ＶＢのＤｉｒ関数を使って、フォルダ内の全ファイルを順次捉まえる。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html　参考
これらの方法で処理対象にできる。こちらのほうが具体的なエクセルＢｏｏｋの名前を問題にしないのでスマートかも。集計シートのＡ列のデータとして、ブック名が必要なら、上例（１）のＷＥＢのobjItem.Nameでとらえられる。

回答No.2

imogasi

質問の内容がよくわからない。他人に質問するなら、文書や模擬例の説明を丁寧にすること。急に「Aにある表」とでるがＡはブック名か。Ｂ．Ｃもブック名かの説明が必要だろう。
シート名は全ブックで同じ名前なのか、すなわち１つしかないのか。Sheets(1)にあたるシートばかりだけか。
＞B 1 2 4 6 2 5の 1 2 4 6 2 5は各列のセルの数値データを示すのか。
エクセルでは「フォルダー」ー「ブック」ー「シート」ー「セル範囲」の考えを常にふまえて説明するのが常識だろう。
ーー
意図を察すると
For i=1 to 30
処理（適宜のところで、iで指定した情報を使う）
Next i
のような処理で済ませたいのか。
であれば
Ａ．（ブックのあるフォルダは同じとして）ブック名をＢ＝Array()の（）の内に定義（３０要素）して、ブック名の文字列をB(i)で取り出して使うか
Ｂ．集計用のシートのＡ列の各行に、ブック名の文字列をあらかじめ入れておいて（１度のみプログラムコードの中）、Cells(i,"A")で取り出して使うかなどが考えられる。
Ｃ，テキストファイルに、ブック名を記録する手もあろう（テキストファイルを作る）。３０レコードをよみながら、その都度ブック名の指定としてそれを使う。
＞もしわかる方がおりましたら
質問する場合なら、「もしわかる方がおられましたら」、が適当な表現ではないか。
＞コードをよろしくお願いします。
丸写しを望まず、回答をヒントにしてコードは自分で作ること。プログラムを作る下請けコーナーではない。

回答No.1

washi001

参照させるファイル名の名前を工夫すれば、ファイルを開く際のファイル名を
変数で作成して同じルーチン内でオープンできると思います。
例えば、ファイル名を「file01」とかにして、01の部分を昇順に30まで並べ、
VBAでファイル名を変数にして、「01」の部分を増やせばよいかと。