【VBA】ZIP（圧縮）ファイルを自動的に展開（解凍）する方法-PowerShellコマンド-

6月 21, 202212月 1, 2024

ExcelVBAやAccessVBAでZIP（圧縮）ファイルを自動的に展開（解凍）したい人向けに書いています。

本記事の内容

・VBA（マクロ）でZIP（圧縮）ファイルを自動的に展開（解凍）する方法

VBA（マクロ）で自動的にZIPファイルを解凍したいと思っていませんか？
自動的にZIPファイルを解凍する方法を紹介します。

以下がZIPファイルを自動的に展開（解凍）するプログラムです。

'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'＊　Zipファイル展開
'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Sub UNZIP()
Dim psCommand As String 'PowerShellのコマンドレット組み立て
Dim wsh As Object 'Shellオブジェクト
Dim result As Integer 'PowerShellのコマンドレット実行結果
Dim zipFilepath As String 'ZIPファイルパス
Dim destinationFolderpath As String 'ZIPファイル展開先フォルダ
'ZIPファイルパス
zipFilepath = “D:\Webページ保存ファイル\edgedriver_win64.zip"
'ZIPファイル展開先フォルダ
destinationFolderpath = “D:\Webページ保存ファイル\ZIP展開先"
'Shellオブジェクトを作成する
Set wsh = CreateObject(“WScript.Shell")
'実行するPowerShellのコマンドレットを組み立て
psCommand = “Expand-Archive -Path " & zipFilepath & " -DestinationPath " & destinationFolderpath & " -Force"
'PowerShellのコマンドレットを実行
result = wsh.Run(“powershell -NoProfile -ExecutionPolicy Unrestricted " & psCommand, WindowStyle:=0, WaitOnReturn:=True)
'実行結果確認
If (result = 0) Then
MsgBox “ZIP展開完了"
Else
MsgBox “ZIP展開失敗"
End If
Set wsh = Nothing
End Sub