ファイルのZip化は以前の記事で紹介しました♪
エクセルマクロでファイルをZip化する！ フォルダ圧縮 ファイルの圧縮 VBA マクロ
今回は圧縮ファイルの解凍をマクロでする方法をご紹介します
★必要な材料一覧
・圧縮元フォルダーのパス
・解凍先フォルダーのパス
・Shellオブジェクト （参照設定で Microsoft shell controls and automation を選択）
★手順
１、圧縮元フォルダーパスの変数と解凍先フォルダーパスの変数を用意
２、Shell.Namespaceメソッドと Shell.CopyHere メソッドで フォルダを解凍します♪
※Shell.Namespaceメソッドはフォルダーオブジェクトを取得
※Shell.Namespace.Itemsはフォルダーのファイル郡を取得
Shell.CopyHereでコピペするってことですね♪
サンプルコードは下記♪
ちなみに
すでに解凍先のフォルダーが存在する場合、
置換またはスキップの確認ダイアログが出てきます
ご活用あれ♪
ではでは♪
コメント