エクセル名称に特定の文字列が含まれたファイルの抽出

質問

フォルダ内にある多数のエクセルファイルの中で、特定の文字列（例えば”統計”という文字列）が名称の中に含まれているエクセルファイルを抽出したい。
抽出したいエクセルファイルの例
　　　　　札幌の気温の変化に関する統計資料
　　　　　統計調査分析（3）
よろしくお願いいたします。

回答No.1

noname#252332 · ベストアンサー

バッチ処理でいいなら、Windowsシステムツールの中のコマンドコンソールを開いて、

dir (目的のフォルダ)￥*統計*.xls > (結果を保存したいフォルダ)￥list.txt

などと打てば、目的のリストlist.txtが作成されます。

何度も同じ作業をするなら上記を書いたテキストファイルをメモ帳で作って、拡張子をTXTからBATに変更して保存し、これをダブルクリックすれば簡単に実行できます。

　上のサンプルは￥が半角では文字化けするので全角で書きましたが、実際は半角です。

お礼

テキストファイル出来ました。ありがとうございました。

回答No.3

kkkkkm

エクセルのマクロでしたら以下のような感じで
シートのA列にファイル名を書き出します。

Sub Sample()
Dim FSO As Object, mFile As Variant
Dim mPath As String, LastRow As Long
Dim SearchWord As String

Set FSO = CreateObject("Scripting.FileSystemObject")

mPath = "C:\Users\herohero" '実際のフォルダーのパスを
'マクロ実行ファイルと同じ場所なら上は
'mPath = ThisWorkbook.Path
SearchWord = "統計" '探す文字列
For Each mFile In FSO.GetFolder(mPath).Files
If InStr(mFile.Name, SearchWord) > 0 Then
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Cells(LastRow + 1, "A") = mFile.Name
End If
Next mFile
End Sub

お礼

出来ました。ありがとうございました。

回答No.2

msMike

Windowsのバージョンは？
質問する際はそのくらいは明記するのが常道です。

補足

Windows10 です。ご指摘あろがとうございます。