Excel VBA – パスワード付きZIPファイルを解凍する | かとう中小企業診断士事務所

パスワード付きのZIPファイルを解凍するサンプルコードです。 以下のサンプルコードは、 指定のフォルダの全てのZIPファイル（パスワードaで圧縮）に対して 自動で”a”というパスワードを入力して、 指定のフォルダに解凍するものです。 Windows標準の状態で動作します。 Sub main() 'ファイルシステムオブジェクトの作成 Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") 'ファイルオブジェクトの作成 Dim fileObj As Object 'シェルオブジェクトの作成 Dim shellObj As Object Set shellObj = CreateObject("Shell.Application") Dim zipObj As Variant Dim ret As Long '

[blank]

PWD付ZIPファイルを展開する