複数のエクセルファイルの数値をひとつのエクセルファイルでまとめるには？

質問

Winxp、Excel2003を使っています。複数のエクセルファイルから特定のセルの数値を抜き出し一つのファイルにまとめることは可能でしょうか？
　具体的に申し上げますと、データ集計のため、複数のエクセルファイル（500個程度）から125R×1Cのセル内の数値（○×）を抜き出し一つの新しいデータ集計用のエクセルファイルを作成する作業をしています。一つずつコピー＆ペーストで作成するとかなりの時間がかかってしまい困っています。

　上記のような作業を簡単に、正確に行うためのオススメの方法やフリーソフトがありましたら教えて頂けますでしょうか。お願い致します。

回答No.2

noname#52504

間に合わなかったかもしれませんが、まだ受付中のようなので…。
今後定型業務として繰り返し行うのであればやはりマクロを作成するのが最善かと思います。
ただ、今回限りの単発の作業であれば、そのためだけにVBAを勉強するというのもアレですね。
私であれば…

１．該当のブックを適当なフォルダにまとめる。
２．下記のようなファイル管理ソフトを使用して、各ファイルのフルパスとファイル名の一覧を取得する。
　　『ファイルリスト作成機』
　　http://www.vector.co.jp/soft/win95/util/se082901.html
　　　この手のソフトは山のようにあります。
　　　たまたま最初に見つけただけで、特にお奨めするというわけではありません。
　　　（一応動作確認はしました）　

３．任意のブックの適当な列に、２で作成したフルパスとファイル名の一覧を入れる。
　　　以下、例として
　　　　C1：C:\Documents and Settings\User_Name\デスクトップ\フォルダ
　　　　C2：ブック1.xls
　　　の形式でフルパスとファイル名が入ったものとします。

４．任意の列(以下C3列とします)で、下記のような数式を入力してファイルの数だけフィル
　　="★'"&RC1&"\["&RC2&"]Sheet1'!R125C1"
　　　次のような文字列が生成されるハズです。
　　　★'C:\Documents and Settings\User_Name\デスクトップ\フォルダ\[ブック1.xls]Sheet1'!R125C1

５．C3列をコピーして値貼り付けし、文字列定数として確定する。
６．Excelの置換機能で★を=に置換する（文字列定数を数式化する）
７．これでファイル名とR125C1の値の対応表ができるので、
　　後は、値貼り付けして整形するなりVLOOKUP等で参照するなりご自由に。
（Excel2003で実験済）

この手の作業に慣れてる人であれば、10～20分くらいの作業ですかねぇ。
こんな作業に慣れちゃうのもある意味哀しいものがありますが…（自嘲)

回答No.1

imogasi

VBAを勉強すれば、コード行数はそんなに多くなくてできると思います。
関数で不可能でしょう。
＞フリーソフトがありましたら
あまりにも一部の要求（ニーズ）なので、存在するかな。
同じ形式のシートを縦方向に集約するソフトなら見つかるかもしれない。
ーーー
５００個のファイルは、選ぶとき、どうして識別するのですか。そういうことを書かないと、複雑さが変わると思う。名前に共通部分がある、フォルダが同じ（フォルダに他に対象にしたくないファイルが混在してますか）シートは各ブック内で１シートですか、など。
フォルダが同じである場合
VBAなら
（１）同じフォルダのファイル名を取得するコード。Dir()でWEB照会のこと。場合によってはxlsファイル以外を捨てる。
（２）対象とする、エクセルのブックを読むコード
（３）１列を集約ファイルへコピー貼り付けか、参照代入するコード
　　　用済み後ブックを閉じる。
（４）（２）、（３）をブック数だけ繰り返し
（１）はWEBに実例がたくさんある。
（２）（３）はマクロの記録が参考になるかも知れない。