VBAでzipファイルを展開したいです。

Question

前提・実現したいこと

初心者です。
VBAでzipファイルを展開したいのですが、
うまく展開できずコメント頂ければ助かります。

tetsuyanbo様の記事を引用しています。
（https://www.tetsuyanbo.net/tetsuyanblog/43217）

発生している問題・エラーメッセージ

コードを実行すると、zipファイルが解凍されず、そのまま指定フォルダ（\出力）にコピーされます。

該当のソースコード

Private Sub mae()
    Dim shell As Object
    Dim copyto As String
    Dim copyfrm As String
    
    copyfrm = "C:\Users\Owner\Documents\VBA\トレーニング\サンプル"
    copyto = "C:\Users\Owner\Documents\VBA\トレーニング\出力"
    Set shell = CreateObject("Shell.Application")
    
    ' zipファイルに入っているファイルを指定したフォルダーにコピーする
    'ShellオブジェクトのNameSpaceメソッドを使うとFolderオブジェクトが取得できる
    'CopyHere メソッドでZipファイル扱うのはMicrosoft非推奨みたい・・
    shell.Namespace((copyto)).CopyHere shell.Namespace((copyfrm)).Items
    
    ' オブジェクトを破棄する
    If Not shell Is Nothing Then
        Set shell = Nothing
    End If
End Sub

試したこと

PowerShell使ったコードを引用したりしました。
私的に取組みやすそうな、CopyHereを使用したコードで試しています。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

展開できない（ItemsでZIPファイル内の各ファイルを読み取れない）のは、質問者さんがコピー元としているフォルダー「C:\Users\Owner\Documents\VBA\トレーニング\サンプル」が、Windowsがそれと扱うZIP/圧縮フォルダーではないからだと思います。なので、そのままコピーされます。質問文中のURLの参考サイトでは、エクスプローラーの画像部分で「圧縮フォルダー」と出ていますね。ZIPファイルであるSample.zipそのもののPATHを正しく指定しているからです。

質問者さんのケースでは、WindowsでのZIP圧縮フォルダーの機能を有効にした上で、ZIPファイルそのもののPATHを指定するか、あるいは明示的に別の方法でZIPファイルの展開処理を行う必要があります。

Comments

[shu_shu]

ご丁寧な回答ありがとうございました。無事解決できました。

Answer 2

copyfrmにはzipファイルを指定しなければなりません。
サンプル.zipなら

copyfrm = "C:\Users\Owner\Documents\VBA\トレーニング\サンプル.zip"

Comments

[shu_shu]

ご回答ありがとうございました。無事解決できました。

Answer 3

https://bra-ve.co.jp/2529/