Excelのシート名で検索はできませんか

普段ファイル検索にはFileSeeker3を使ってファイル名のみで検索しています。
しかし、いただいたファイルなどでファイル名がわからなくなってしまったファイルの検索で時間を取られてしまうことが多くて悩んでいます。
WindowsやGoogleのデスクトップ検索では、Excelブックのシート上に入力したテキストで検索ができます。
しかし、思い出せるのはシート名程度の場合はどうにもならず、それらしい場所に保存したファイルを1つずつ開いて確認するしかありません。

なにかの外部ツールやマクロを使うなどでシート名での検索はできないものでしょうか。

No.1 ベストアンサー 回答者： MarcoRossiItaly 回答日時： 2013/11/03 15:03

どこまでの機能を持たせるかですが…。

例えば次のコードは、特定フォルダ内の全ての Excel ファイルとそのシートの名前をイミディエイト・ウィンドウに書き出します。


Sub WriteUpSheetNames()
　　Dim f As String
　　Dim i As Integer
　　f = Dir("D:\My Documents\*.xls*", vbNormal + vbReadOnly)　　' D ドライブ直下の「ドキュメント」フォルダの場合
　　Do Until f = ""
　　　　Workbooks.Open f
　　　　For i = 1 To Worksheets.Count
　　　　　　Debug.Print "[" & f & "]" & Worksheets(i).Name
　　　　Next i
　　　　ActiveWorkbook.Close savechanges:=False, Filename:=f
　　　　f = Dir()　　'同一フォルダ内の別ファイルの名前を取得
　　Loop
End Sub

この回答へのお礼

お礼が遅くなりました。
ありがとうございます。

お礼日時：2015/01/26 09:53

No.2 回答者： MarcoRossiItaly 回答日時： 2013/11/03 15:13

No.1 です、何度もすみません。

先ほどのコード中、「, vbNormal + vbReadOnly」は削ってもいいです。Excel ファイルの拡張子を指定して開いており、フォルダ内のフォルダなどは対象外となるので。Excel の隠しファイルは調べることになります。

この回答へのお礼

私の知識では削ってもいい理由がまだわかりませんが、わざわざ補足ありがとうございます。もっと勉強することにします。

お礼日時：2014/01/11 13:08