エクセル 複数のブックのなかから 特定のシート名を

質問

宜しくお願い致します　Excel for Microsoft 365を使っています　複数のブックのなかから　特定のシートを探したいのですが　ひとつずつブックを開いて　目的のシートを探す方法は　すぐ見つかりましたが、フォルダに１００余りのエクセルファイルがあり、そのなかから特定の名称のタブ　すなわちシートを探したいのですが　そのための方法もしくは　アプリを　御存じの方　御教示くださいませ
windows10使用しています

回答No.2

HohoPapa · ベストアンサー

マクロを書いてみました。

添付画像のように、C2セルに探したいシート名を埋め
後記マクロを書き込んだマクロブックを
検索したいフォルダーに配置し
メインマクロを実行してください。

配置したフォルダー、更のその下階層のフォルダー、
更にその下階層のフォルダー...と、
全ての下階層のフォルダーにある.xlsxのファイルのシート名のすべてをを調べ
ヒットするとメッセージを表示します。

'//----------　シートを探すメインマクロ
Sub sample()
　GetFileName ThisWorkbook.Path, Range("C2").Text
End Sub

'//---全てのフォルダー内のエクセルブックを総当たり
Sub GetFileName(strPath As String, ShName As String)

　Dim tSfo As Object
　Dim tGf As Object
　Dim tFi As Object
　Dim tSub As Object

　Set tSfo = CreateObject("Scripting.FileSystemObject")
　Set tGf = tSfo.GetFolder(strPath)
　For Each tFi In tGf.Files
　　If Right(tFi.Name, 5) = ".xlsx" Then
　　　ShSearch tFi.Path, ShName
　　End If
　Next

　For Each tSub In tGf.SubFolders
　　GetFileName tSub.Path, ShName
　Next

End Sub

'//---------- シートを探すサブルーチン
Sub ShSearch(BookPath As String, SearchName As String)

　Dim tgBook As Workbook
　Dim i As Long

　Set tgBook = Workbooks.Open(Filename:=BookPath)
　For i = 1 To tgBook.Sheets.Count
　　If tgBook.Sheets(i).Name = SearchName Then
　　　MsgBox "シート発見　path::" & BookPath
　　End If
　Next i
　tgBook.Close

End Sub

お礼

ご丁寧な、ご回答、誠に有り難うございました

回答No.3

imogasi

＞特定のシートを探したい
コンピュターを使う人らしからぬ、あいまいな質問表現だと思う。
そもそも、ブック名（ファイル名）以外は、そのものを開かずしても読める、まとめた情報を記録したところなど無いはず。
だからブックを、所定の操作で実際開かないと、シート（名さえ）の存在もわからないでしょう。VBAと言うのは、人間の操作でできることを、コード（スクリプト）でやらせるだけ。
エクセルのインサイダー情報まで詳しい、MSなどの人、互換ソフト開発者は、シート名一覧がどこをどう見ればよいか知っているだろうが、そんなの問題にもできない。
（１）本質問ではその中のシート名（その文字列を指定して）を基に、そのシートの存在確認をしたいのか、
（１’）　またはそのシートを開くのか。シート名で選別して提供してほしいとか。
（２）さらにシートの中にある文字列などが存在する、セルや、その前後の文字列まで知りたいのか。
（１）か（２）か質問で、はっきりさせること。
どちらにしても、人間の手操作では、ブックの数が多く、手間がかかるという予想なのだろう。
そうしたら、こんなのは、エクセル関数ではできないので、VBAでやるしかないのは当たり前。
そして、１ブック及びシートを、１つ1つ当たらないといけないので、処理時間が掛かる。
ーー
VBAを組めるといっても、OKWAVEを見ている普通の人は、そんなに熟達しているわけでないと思うから、
ForEachなどでブック、シートを総なめチェックをするぐらいだろう。これなら少しWEBを調べれば、コードが載っている。
それで対応できないことなら、フリーなりの出来合いソフトがあれば、それなりに技量のある人が作っている可能性がある。
＝＝
この作業をして、役立てる、用途（目的）を質問に書けば、相当、回答方針の助けになるはず。
しかし過去の経験から、ここの質問者はそれをほとんどしない。だから、ほんとに回答が正しい方向か判らない。
ーー
Googleなどにやらせたら、どこ（文書、ブック（シート）、WEB記事など）に何があるというインデックス的情報を作ることは出来るだろうが、従事する人のスキルと使うコスト（資源）が違う。でも、そういうのを見せられると、「私にでもできそう」と思いがちだが、その辺（素人＋αができることか）の見極めが大切。
＝＝
Googleで「ブック内のデータを検索する」でWEB記事を照会し、出てくる記事を
二三読んで、質問を考えなおすことだと思う。

お礼

有り難うございました

回答No.1

kon555

vbaで対応するしかないと思います。下記のページがまさにそのようなコードを公開していますので、ご覧下さい。
https://excel.kuuneruch.com/excel-sheet-list/

お礼

有り難うございました