エクセルでリストの作成

質問

複数のフォルダー内に有るエクセルのデーターで有るキワードで検索してその検索結果を１枚のシートにでまとめる事は出来ませんか？

回答No.27

toshi_2000 · ベストアンサー

残念ながらこれ以上は、実際のエクセルファイルを見ないことには、原因追究ができません。

お礼

長々とありがとうございました。
また、機会がありましたらご指導よろしくお願いします。

回答No.6

toshi_2000

次の手順で実行してください。
１．まとめるシートのSHEET1には１列目の２行目以降にファイル名をフルパスで入力しておいてください。
２．まとめるシートのSHEET2にデータがまとまります。
３．ツール－マクロ－Visual Basic Editorを起動して挿入から標準モジュールを選んでください。
標準モジュールに以下のコードを貼り付けてください。
Sub LISTOUT()
OUT_LINE = 1
MY_BOOK = ActiveWorkbook.Name
Sheets("SHEET1").Select
For FILE_GYO = 2 To Cells(2, 1).End(xlDown).Row
Sheets("SHEET1").Select
FILE_NAME = Cells(FILE_GYO, 1)
Workbooks.Open Filename:=FILE_NAME
OPEN_BOOK = ActiveWorkbook.Name
SHEET_SU = Sheets.Count
For I = 1 To SHEET_SU
Sheets(I).Select
For J = 2 To Cells(2, 2).End(xlDown).Row
If Left(Cells(J, 2), 3) = "KFR" Then
SHEET_NAME = ActiveSheet.Name
HINBAN = Cells(J, 2)
Workbooks(MY_BOOK).Activate
Sheets("SHEET2").Select
OUT_LINE = OUT_LINE + 1
Cells(OUT_LINE, 1) = FILE_NAME
Cells(OUT_LINE, 2) = SHEET_NAME
Cells(OUT_LINE, 3) = HINBAN
Workbooks(OPEN_BOOK).Activate
End If
Next
Next
ActiveWorkbook.Close
Next
End Sub
４．マクロの画面は閉じて、ツール－マクロ－マクロから実行を選んでください。
５．以上ですが、実データがなく検証不足のためプログラムの動きにおかしい部分が出るかもしれません。

補足

ありがとうございます。
やって見ましたがエラーがでます。
実行時エラー１００４がでます。
【デバック】を開いてみると【Workbooks.Open Filename:=FILE_NAME】が黄色の表示されています。
技能・能力不足でお手間をお掛けしますが、ご指導願います。

回答No.5

toshi_2000

追加質問です。
１．シート名は、ブックによって違いますか。
２．ブックにシートは１つだけですか。
３．シートに入っている具体的なデータを教えてください。

補足

１．シート名は、ブックによって違いますか。
回答．違います。
２．ブックにシートは１つだけですか。
回答．複数枚有ります。
３．シートに入っている具体的なデータを教えてください
回答．英数の混じった文字列です。
前回の時、サンプル的な物を貼り付けていました様な感じです。

よろしくお願いします。

回答No.4

toshi_2000

＜質問１＞
ブックの中のシートの名前は、何ですか。
＜質問２＞
KFRは、どの列に入っていますか。
＜質問３＞
一覧に必要な項目は、何ですか。

補足

＜質問１＞回答
機械の装置名に成っています。
＜質問２＞回答
Ｂ列です。
＜質問３＞回答
ユーザ名（ファイル名）・装置名（１列Ｂ行）・品番（３列Ａ行より）です。
よろしくお願いします。

No. Parts No.　　 Parts Name
1 BMY020420-2-1 Guide Frame
2 BMY020420-2-2 Guide Frame
3 BMY020420-3-1 Frame
4 BMY020420-3-2 Guide Frame Joint
5 BM1202-HC1-19 Guide Roller Shaft

回答No.3

toshi_2000

それでは、実現したいことをできるだけ具体的に（データを含めて）詳細に説明してください。（入力は何か、出力は何かなど）

補足

お手数お掛けします。
機械のパーツりストをエクセルで制作しています。
ユーザー事にフォルダーが有りその中にエクセルのファイルが有ります。そのブックの中に型番”KFR”で始まる部品をすべて洗い出したいのです。検索でも可能ですが、フォルダー数が２１社分有り、また、使用件数も数百ヒットするはずです。リストを修正する為に一覧がほしいのです。
よろしくお願いします。

回答No.2

toshi_2000

ＶＢＡを使ってプログラムを作ったことがありますか。
なければ、まずＶＢＡの勉強からしなければなりません。
そうなると実現するまでのハードルがちょっと高くなります。

補足

勉強したいのはやまやまですが、時間的余裕無いため質問させて頂いています。お助けください。

回答No.1

toshi_2000

ＶＢＡ（マクロ）を使用すれば可能です。

補足

その操作方法が知りたいのです。