[[20180811111539]]　『複数のエクセルファイルから指定のセルの値を抜き』（あっきぃ）　ページの最後に飛ぶ

『複数のエクセルファイルから指定のセルの値を抜き出しリスト化したい』（あっきぃ）

複数のエクセルファイルから指定のセルの値を抜き出しリスト化したいです。

イメージは、まず1つのフォルダに複数（50個くらい）のエクセルファイルを入れます。

たとえば　フォルダ名は　「今月の事例」とします。

その中に、11-1111.xls　とか　22-2222.xls　とかのファイル名のエクセルファイルを入れてあるとします。

作成したいのは、このフォルダ内のファイル名と指定されたセルに入力された値をボタン一つで抜き出し一覧にしたいのです。

出来上がりイメージ

　l　A　　 l　B l C l D l　E l F l G l ・・・

1 lファイル名l C1　 l BAA2 l E4　l　A6 l

2 l22-2222　l　いいえ l不合格 lなし l〇 l

3 l33-3333　l　いいえ l合格 lある l× l　

4 l44-4444 l　はい l不合格 lある l〇 l

5 l11-1112　l　いいえ l不合格 lある l〇 l

6 l11-2222 l　はい l合格 lある l〇 l

7 l34-2345　l　いいえ l合格 lある l×　 l

8 l11-1111 l はい l合格 lある l×　 l

1行目は値の説明で抜き出した情報の出どころです。

この例で言えば、　2行目は　22-2222　のファイルから

 C1　セルの　値として、　いいえ　
BAA2　セル　の値として　不合格
E4　セル　の値として　　なし
A6　セル　の値として　　〇を抜き出す

これができるようなマクロをくみたいのです。

どなたかお力を貸してください。

よろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

探せば簡参考になるものがみつかると思います
https://qiita.com/takahiro_itazuri/items/08754db91c6ab72deb03

（マナ） 2018/08/11(土) 12:02

 いろいろ、方法は有るかと思いますが。。。概略ですが
下記のような事でも　＾＾

 同じフォルダに全てのBOOKを格納
ここからVBA
1.読込ファイルのパターン設定
2.１件目のファイル名を取得
3.項目名を配列にセット
4.書込み対象シートを指定後、初期化
5.項目名書込み（ループで一括）
6.ＢＯＯＫの読込み処理開始～最終まで繰返し処理
7.書込み対象シートのＢＯＯＫは読み込まない
8.読込ＢＯＯＫの指定シートの指定セルを、書込み対象シートの二行目から列を指定し順次書込み
9.読込ＢＯＯＫを閉じる
10.次のファイル（ＢＯＯＫ）名を取得（6～10の間ループ）
11.列幅調整、オートフィット設定
12.罫線を引く

 終了（表が完成）
（隠居じーさん） 2018/08/12(日) 07:24

 過去スレでこんなのがあります。
[[20080905162923]]　『フォルダー内のブックを1つのまとめたい』
（seiya） 2018/08/12(日) 09:07

みなさま　コメント　ありがとうございます。
ちょっと私には、すぐには活用できなさそうです。

それぞれの策について確認させていただこうかと思います。

（あっきぃ） 2018/08/13(月) 22:35

コメント返信：

[ 一覧(最新更新順) ]

[[20180811111539]] 『複数のエクセルファイルから指定のセルの値を抜き』（あっきぃ） ページの最後に飛ぶ

[[20180811111539]]　『複数のエクセルファイルから指定のセルの値を抜き』（あっきぃ）　ページの最後に飛ぶ