Excelファイルについて

Question

教えてください。

Zipファイル鍵なしが1000個あります。

1つのZIPファイル(鍵なし)の中には、
テキストファイルとCSV(Excel)とExce資料の３つのファイルがあります。

この中からCSVファイルだけを選択して、取り出したいのです。

何か良い方法はありますでしょうか？

その後は、Excelのパワークエリ機能で1000このCSVファイルを1つのExcelにまとめる想定です。

Comments

[y_waiwai]

質問文は編集できます
無駄に質問建てないで追記修正しましょう

[takuhiro.tone13]

大変失礼致しました。今後、重複がないよう十分注意して運用致します。
引き続きよろしくお願い致します。

Answer 1

https://pc-karuma.net/windows-10-search-include-compressed-files/
を参考に、フォルダーオプションの「検索」にて「圧縮されたファイルを含める」にチェックを入れる。
その後、zipファイルがあるフォルダをエクスプローラで開き、右上の検索ボックスに *.csv と入力。
zipファイルの中にあるcsvファイルが一覧表示されるので、全て選択してコピーし、適当なフォルダの中にペースト。

これで、何のツールもプログラムも使わずにcsvファイルだけを取り出せます。
（ただしcsvファイル名に重複がないことが前提）

Comments

[takuhiro.tone13]

こちらの方法で実施したところ、成功致しました。
誠にありがとうございます。

Answer 2

VBAを使うとしたらたとえばこんな感じ。

Sub sample()

    Dim inFolder, outFolder, zipFile, f
    inFolder = CurDir() & "\"       '環境に合わせて
    outFolder = inFolder & "out"    '設定してください
    zipFile = Dir(inFolder & "*.zip")
    
    With CreateObject("Shell.Application")
        Do While zipFile <> ""
            For Each f In .Namespace(inFolder & zipFile).Items
                If f.Path Like "*.csv" Then .Namespace(outFolder).CopyHere f
            Next
            zipFile = Dir()
        Loop
    End With
End Sub

Comments

[takuhiro.tone13]

ご回答ありがとうございます。
貴重なご意見として参考にさせて頂きます。